MFC
Exascale flow solver
Loading...
Searching...
No Matches
m_rhs.fpp.f90
Go to the documentation of this file.
1# 1 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2!>
3!! @file
4!! @brief Contains module m_rhs
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# 9 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
13
14! For moving immersed boundaries in simulation
15# 14 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
16# 6 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.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# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
31
32# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
33
34# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
35
36# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
37
38# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
39
40# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
41
42# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
43! New line at end of file is required for FYPP
44# 2 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
45# 1 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 1
46# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
47# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
48# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
49# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
50# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
51# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
52
53# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
54# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
55# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
56
57# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
58
59# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
60
61# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
62
63# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
64
65# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
66
67# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
68
69# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
70! New line at end of file is required for FYPP
71# 2 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 2
72
73# 4 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
74# 5 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
75# 6 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
76# 7 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
77# 8 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
78
79# 20 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
80
81# 43 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
82
83# 48 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
84
85# 53 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
86
87# 58 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
88
89# 63 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
90
91# 68 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
92
93# 76 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
94
95# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
96
97# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
98
99# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
100
101# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
102
103# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
104
105# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
106
107# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
108
109# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
110
111# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
112
113# 151 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
114
115# 192 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
116
117# 206 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
118
119# 231 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
120
121# 242 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
122
123# 244 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
124# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
125
126# 284 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
127
128# 294 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
129
130# 304 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
131
132# 313 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
133
134# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
135
136# 340 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
137
138# 347 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
139
140# 353 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
141
142# 359 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
143
144# 365 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
145
146# 371 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
147
148# 377 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
149! New line at end of file is required for FYPP
150# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
151# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
152# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
153# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
154# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
155# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
156# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
157# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
158
159# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
160# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
161# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
162
163# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
164
165# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
166
167# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
168
169# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
170
171# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
172
173# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
174
175# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
176! New line at end of file is required for FYPP
177# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
178
179# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
180
181# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
182
183# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
184
185# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
186
187# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
188
189# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
190
191# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
192
193# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
194
195# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
196
197# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
198
199# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
200
201# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
202
203# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
204
205# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
206
207# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
208
209# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
210
211# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
212
213# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
214
215# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
216
217# 193 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
218
219# 215 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
220
221# 244 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
222
223# 259 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
224
225# 269 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
226
227# 278 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
228
229# 294 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
230
231# 304 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
232
233# 311 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
234! New line at end of file is required for FYPP
235# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
236
237! GPU parallel region (scalar reductions, maxval/minval)
238# 23 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
239
240! GPU parallel loop over threads (most common GPU macro)
241# 43 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
242
243! Required closing for GPU_PARALLEL_LOOP
244# 55 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
245
246! Mark routine for device compilation
247# 112 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
248
249! Declare device-resident data
250# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
251
252! Inner loop within a GPU parallel region
253# 145 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
254
255! Scoped GPU data region
256# 164 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
257
258! Host code with device pointers (for MPI with GPU buffers)
259# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
260
261! Allocate device memory (unscoped)
262# 207 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
263
264! Free device memory
265# 219 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
266
267! Atomic operation on device
268# 231 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
269
270! End atomic capture block
271# 242 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
272
273! Copy data between host and device
274# 254 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
275
276! Synchronization barrier
277# 266 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
278
279! Import GPU library module (openacc or omp_lib)
280# 275 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
281
282! Emit code only for AMD compiler
283# 282 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
284
285! Emit code for non-Cray compilers
286# 289 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
287
288! Emit code only for Cray compiler
289# 296 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
290
291! Emit code for non-NVIDIA compilers
292# 303 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
293
294# 305 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
295# 306 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
296! New line at end of file is required for FYPP
297# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
298
299# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
300
301! Caution: This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI
302! rank. That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0. For an
303! example see misc/nvidia_uvm/bind.sh. NVIDIA unified memory page placement hint
304# 57 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
305
306! Allocate and create GPU device memory
307# 77 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
308
309! Free GPU device memory and deallocate
310# 85 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
311
312! Cray-specific GPU pointer setup for vector fields
313# 109 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
314
315! Cray-specific GPU pointer setup for scalar fields
316# 125 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
317
318! Cray-specific GPU pointer setup for acoustic source spatials
319# 150 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
320
321# 156 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
322
323# 163 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
324! New line at end of file is required for FYPP
325# 7 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp" 2
326
327!> @brief Assembles the right-hand side of the governing equations using finite-volume flux differencing, Riemann solvers, and
328!! physical source terms
329module m_rhs
330
331 use m_derived_types
332 use m_global_parameters
333 use m_mpi_proxy
334 use m_variables_conversion
335 use m_weno
336 use m_muscl
337 use m_riemann_solvers
338 use m_cbc
339 use m_bubbles_ee
340 use m_bubbles_el
341 use m_qbmm
342 use m_hypoelastic
343 use m_hyperelastic
344 use m_acoustic_src
345 use m_viscous
346 use m_ibm
347 use m_nvtx
348 use m_boundary_common
349 use m_helper
350 use m_surface_tension
351 use m_body_forces
352 use m_chemistry
353 use m_igr
354 use m_thinc
355 use m_pressure_relaxation
356
357 implicit none
358
359 private; public :: s_initialize_rhs_module, s_compute_rhs, s_finalize_rhs_module
360
361 type(vector_field) :: q_cons_qp !< WENO-reconstructed cell-average conservative variables at quadrature points
362
363# 43 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
364#if defined(MFC_OpenACC)
365# 43 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
366!$acc declare create(q_cons_qp)
367# 43 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
368#elif defined(MFC_OpenMP)
369# 43 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
370!$omp declare target (q_cons_qp)
371# 43 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
372#endif
373
374 type(vector_field) :: q_prim_qp !< Primitive variables at cell-interior quadrature points
375
376# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
377#if defined(MFC_OpenACC)
378# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
379!$acc declare create(q_prim_qp)
380# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
381#elif defined(MFC_OpenMP)
382# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
383!$omp declare target (q_prim_qp)
384# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
385#endif
386
387 !> @name The first-order spatial derivatives of the primitive variables at cell- interior Gaussian quadrature points. These are
388 !! WENO-reconstructed from their respective cell-average values, obtained through the application of the divergence theorem on
389 !! the integral-average cell-boundary values of the primitive variables, located in qK_prim_n, where K = L or R.
390 !> @{
391 type(vector_field), allocatable, dimension(:) :: dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp
392
393# 53 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
394#if defined(MFC_OpenACC)
395# 53 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
396!$acc declare create(dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp)
397# 53 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
398#elif defined(MFC_OpenMP)
399# 53 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
400!$omp declare target (dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp)
401# 53 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
402#endif
403 !> @}
404
405 !> @name The left and right WENO-reconstructed cell-boundary values of the cell- average first-order spatial derivatives of the
406 !! primitive variables. The cell-average of the first-order spatial derivatives may be found in the variables dq_prim_ds_qp,
407 !! where s = x, y or z.
408 !> @{
409 type(vector_field), allocatable, dimension(:) :: dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n
410 type(vector_field), allocatable, dimension(:) :: dqr_prim_dx_n, dqr_prim_dy_n, dqr_prim_dz_n
411#if defined(MFC_OpenACC)
412
413# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
414#if defined(MFC_OpenACC)
415# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
416!$acc declare create(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
417# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
418#elif defined(MFC_OpenMP)
419# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
420!$omp declare target (dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
421# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
422#endif
423
424# 64 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
425#if defined(MFC_OpenACC)
426# 64 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
427!$acc declare create(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)
428# 64 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
429#elif defined(MFC_OpenMP)
430# 64 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
431!$omp declare target (dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)
432# 64 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
433#endif
434#endif
435 !> @}
436
437 type(scalar_field), allocatable, dimension(:) :: tau_re_vf
438
439# 69 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
440#if defined(MFC_OpenACC)
441# 69 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
442!$acc declare create(tau_Re_vf)
443# 69 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
444#elif defined(MFC_OpenMP)
445# 69 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
446!$omp declare target (tau_Re_vf)
447# 69 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
448#endif
449
450 !> @name The cell-boundary values of the fluxes (src - source, gsrc - geometrical source). These are computed by applying the
451 !! chosen Riemann problem solver on the left and right cell-boundary values of the primitive variables
452 !> @{
453 type(vector_field), allocatable, dimension(:) :: flux_n
454 type(vector_field), allocatable, dimension(:) :: flux_src_n
455 type(vector_field), allocatable, dimension(:) :: flux_gsrc_n
456
457#if defined(MFC_OpenACC)
458
459# 79 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
460#if defined(MFC_OpenACC)
461# 79 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
462!$acc declare create(flux_n, flux_src_n, flux_gsrc_n)
463# 79 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
464#elif defined(MFC_OpenMP)
465# 79 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
466!$omp declare target (flux_n, flux_src_n, flux_gsrc_n)
467# 79 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
468#endif
469#endif
470 !> @}
471
472 type(vector_field), allocatable, dimension(:) :: ql_prim, qr_prim
473#if defined(MFC_OpenACC)
474
475# 85 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
476#if defined(MFC_OpenACC)
477# 85 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
478!$acc declare create(qL_prim, qR_prim)
479# 85 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
480#elif defined(MFC_OpenMP)
481# 85 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
482!$omp declare target (qL_prim, qR_prim)
483# 85 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
484#endif
485#endif
486
487 type(int_bounds_info) :: iv !< Vector field indical bounds
488
489# 89 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
490#if defined(MFC_OpenACC)
491# 89 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
492!$acc declare create(iv)
493# 89 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
494#elif defined(MFC_OpenMP)
495# 89 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
496!$omp declare target (iv)
497# 89 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
498#endif
499
500 !> @name Indical bounds in the x-, y- and z-directions
501 !> @{
502 type(int_bounds_info) :: irx, iry, irz
503
504# 94 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
505#if defined(MFC_OpenACC)
506# 94 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
507!$acc declare create(irx, iry, irz)
508# 94 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
509#elif defined(MFC_OpenMP)
510# 94 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
511!$omp declare target (irx, iry, irz)
512# 94 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
513#endif
514
515 type(int_bounds_info) :: is1, is2, is3
516 !> @}
517
518# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
519#if defined(MFC_OpenACC)
520# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
521!$acc declare create(is1, is2, is3)
522# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
523#elif defined(MFC_OpenMP)
524# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
525!$omp declare target (is1, is2, is3)
526# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
527#endif
528
529 !> @name Saved fluxes for testing
530 !> @{
531 type(scalar_field) :: alf_sum
532 !> @}
533
534# 104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
535#if defined(MFC_OpenACC)
536# 104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
537!$acc declare create(alf_sum)
538# 104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
539#elif defined(MFC_OpenMP)
540# 104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
541!$omp declare target (alf_sum)
542# 104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
543#endif
544
545 real(wp), allocatable, dimension(:,:,:) :: blkmod1, blkmod2, alpha1, alpha2, kterm
546 real(wp), allocatable, dimension(:,:,:,:) :: ql_rsx_vf, qr_rsx_vf
547 real(wp), allocatable, dimension(:,:,:,:) :: dql_rsx_vf, dqr_rsx_vf
548
549# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
550#if defined(MFC_OpenACC)
551# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
552!$acc declare create(blkmod1, blkmod2, alpha1, alpha2, Kterm)
553# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
554#elif defined(MFC_OpenMP)
555# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
556!$omp declare target (blkmod1, blkmod2, alpha1, alpha2, Kterm)
557# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
558#endif
559
560# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
561#if defined(MFC_OpenACC)
562# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
563!$acc declare create(qL_rsx_vf, qR_rsx_vf)
564# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
565#elif defined(MFC_OpenMP)
566# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
567!$omp declare target (qL_rsx_vf, qR_rsx_vf)
568# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
569#endif
570
571# 111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
572#if defined(MFC_OpenACC)
573# 111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
574!$acc declare create(dqL_rsx_vf, dqR_rsx_vf)
575# 111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
576#elif defined(MFC_OpenMP)
577# 111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
578!$omp declare target (dqL_rsx_vf, dqR_rsx_vf)
579# 111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
580#endif
581
582 integer :: iglob
583
584# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
585#if defined(MFC_OpenACC)
586# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
587!$acc declare create(iglob)
588# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
589#elif defined(MFC_OpenMP)
590# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
591!$omp declare target (iglob)
592# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
593#endif
594
595contains
596
597 !> Initialize the RHS module
598 impure subroutine s_initialize_rhs_module
599
600 integer :: i, j, k, l, id !< Generic loop iterators
601
602
603# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
604#if defined(MFC_OpenACC)
605# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
606!$acc enter data copyin(idwbuff)
607# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
608#elif defined(MFC_OpenMP)
609# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
610!$omp target enter data map(to:idwbuff)
611# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
612#endif
613
614# 124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
615#if defined(MFC_OpenACC)
616# 124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
617!$acc update device(idwbuff)
618# 124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
619#elif defined(MFC_OpenMP)
620# 124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
621!$omp target update to(idwbuff)
622# 124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
623#endif
624
625#ifdef MFC_DEBUG
626# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
627 block
628# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
629 use iso_fortran_env, only: output_unit
630# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
631
632# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
633 print *, 'm_rhs.fpp:126: ', '@:ALLOCATE(q_cons_qp%vf(1:sys_size))'
634# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
635
636# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
637 call flush (output_unit)
638# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
639 end block
640# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
641#endif
642# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
643 allocate (q_cons_qp%vf(1:sys_size))
644# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
645
646# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
647
648# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
649#if defined(MFC_OpenACC)
650# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
651!$acc enter data create(q_cons_qp%vf)
652# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
653#elif defined(MFC_OpenMP)
654# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
655!$omp target enter data map(always,alloc:q_cons_qp%vf)
656# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
657#endif
658#ifdef MFC_DEBUG
659# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
660 block
661# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
662 use iso_fortran_env, only: output_unit
663# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
664
665# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
666 print *, 'm_rhs.fpp:127: ', '@:ALLOCATE(q_prim_qp%vf(1:sys_size))'
667# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
668
669# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
670 call flush (output_unit)
671# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
672 end block
673# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
674#endif
675# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
676 allocate (q_prim_qp%vf(1:sys_size))
677# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
678
679# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
680
681# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
682#if defined(MFC_OpenACC)
683# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
684!$acc enter data create(q_prim_qp%vf)
685# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
686#elif defined(MFC_OpenMP)
687# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
688!$omp target enter data map(always,alloc:q_prim_qp%vf)
689# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
690#endif
691
692 if (.not. igr) then
693 do l = 1, sys_size
694#ifdef MFC_DEBUG
695# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
696 block
697# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
698 use iso_fortran_env, only: output_unit
699# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
700
701# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
702 print *, 'm_rhs.fpp:131: ', '@:ALLOCATE(q_cons_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
703# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
704
705# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
706 call flush (output_unit)
707# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
708 end block
709# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
710#endif
711# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
712 allocate (q_cons_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
713# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
714
715# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
716
717# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
718#if defined(MFC_OpenACC)
719# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
720!$acc enter data create(q_cons_qp%vf(l)%sf)
721# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
722#elif defined(MFC_OpenMP)
723# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
724!$omp target enter data map(always,alloc:q_cons_qp%vf(l)%sf)
725# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
726#endif
727# 133 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
728 end do
729 do l = eqn_idx%mom%beg, eqn_idx%E
730#ifdef MFC_DEBUG
731# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
732 block
733# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
734 use iso_fortran_env, only: output_unit
735# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
736
737# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
738 print *, 'm_rhs.fpp:135: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
739# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
740
741# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
742 call flush (output_unit)
743# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
744 end block
745# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
746#endif
747# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
748 allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
749# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
750
751# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
752
753# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
754#if defined(MFC_OpenACC)
755# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
756!$acc enter data create(q_prim_qp%vf(l)%sf)
757# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
758#elif defined(MFC_OpenMP)
759# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
760!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf)
761# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
762#endif
763# 137 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
764 end do
765 end if
766
767 if (surface_tension) then
768 do l = eqn_idx%adv%end + 1, eqn_idx%c - 1
769#ifdef MFC_DEBUG
770# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
771 block
772# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
773 use iso_fortran_env, only: output_unit
774# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
775
776# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
777 print *, 'm_rhs.fpp:142: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
778# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
779
780# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
781 call flush (output_unit)
782# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
783 end block
784# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
785#endif
786# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
787 allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
788# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
789
790# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
791
792# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
793#if defined(MFC_OpenACC)
794# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
795!$acc enter data create(q_prim_qp%vf(l)%sf)
796# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
797#elif defined(MFC_OpenMP)
798# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
799!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf)
800# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
801#endif
802# 144 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
803 end do
804 else
805 do l = eqn_idx%adv%end + 1, sys_size
806#ifdef MFC_DEBUG
807# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
808 block
809# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
810 use iso_fortran_env, only: output_unit
811# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
812
813# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
814 print *, 'm_rhs.fpp:147: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
815# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
816
817# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
818 call flush (output_unit)
819# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
820 end block
821# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
822#endif
823# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
824 allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
825# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
826
827# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
828
829# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
830#if defined(MFC_OpenACC)
831# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
832!$acc enter data create(q_prim_qp%vf(l)%sf)
833# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
834#elif defined(MFC_OpenMP)
835# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
836!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf)
837# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
838#endif
839# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
840 end do
841 end if
842
843 if (.not. igr) then
844#ifdef _CRAYFTN
845# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
846 block
847# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
848 integer :: macros_setup_vfs_i
849# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
850
851# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
852#ifdef MFC_DEBUG
853# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
854 block
855# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
856 use iso_fortran_env, only: output_unit
857# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
858
859# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
860 print *, 'm_rhs.fpp:153: ', '@:ACC_SETUP_VFs(q_cons_qp, q_prim_qp)'
861# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
862
863# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
864 call flush (output_unit)
865# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
866 end block
867# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
868#endif
869# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
870
871# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
872
873# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
874#if defined(MFC_OpenACC)
875# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
876!$acc enter data copyin(q_cons_qp)
877# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
878#elif defined(MFC_OpenMP)
879# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
880!$omp target enter data map(to:q_cons_qp)
881# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
882#endif
883# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
884
885# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
886#if defined(MFC_OpenACC)
887# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
888!$acc enter data copyin(q_cons_qp%vf)
889# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
890#elif defined(MFC_OpenMP)
891# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
892!$omp target enter data map(to:q_cons_qp%vf)
893# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
894#endif
895# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
896 if (allocated(q_cons_qp%vf)) then
897# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
898 do macros_setup_vfs_i = lbound(q_cons_qp%vf, 1), ubound(q_cons_qp%vf, 1)
899# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
900 if (associated(q_cons_qp%vf(macros_setup_vfs_i)%sf)) then
901# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
902
903# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
904#if defined(MFC_OpenACC)
905# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
906!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i))
907# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
908#elif defined(MFC_OpenMP)
909# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
910!$omp target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i))
911# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
912#endif
913# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
914
915# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
916#if defined(MFC_OpenACC)
917# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
918!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)%sf)
919# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
920#elif defined(MFC_OpenMP)
921# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
922!$omp target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i)%sf)
923# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
924#endif
925# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
926 end if
927# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
928 end do
929# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
930 end if
931# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
932
933# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
934#if defined(MFC_OpenACC)
935# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
936!$acc enter data copyin(q_prim_qp)
937# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
938#elif defined(MFC_OpenMP)
939# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
940!$omp target enter data map(to:q_prim_qp)
941# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
942#endif
943# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
944
945# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
946#if defined(MFC_OpenACC)
947# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
948!$acc enter data copyin(q_prim_qp%vf)
949# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
950#elif defined(MFC_OpenMP)
951# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
952!$omp target enter data map(to:q_prim_qp%vf)
953# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
954#endif
955# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
956 if (allocated(q_prim_qp%vf)) then
957# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
958 do macros_setup_vfs_i = lbound(q_prim_qp%vf, 1), ubound(q_prim_qp%vf, 1)
959# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
960 if (associated(q_prim_qp%vf(macros_setup_vfs_i)%sf)) then
961# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
962
963# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
964#if defined(MFC_OpenACC)
965# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
966!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i))
967# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
968#elif defined(MFC_OpenMP)
969# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
970!$omp target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i))
971# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
972#endif
973# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
974
975# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
976#if defined(MFC_OpenACC)
977# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
978!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)%sf)
979# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
980#elif defined(MFC_OpenMP)
981# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
982!$omp target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i)%sf)
983# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
984#endif
985# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
986 end if
987# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
988 end do
989# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
990 end if
991# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
992 end block
993# 153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
994#endif
995
996 do l = 1, eqn_idx%cont%end
997 if (relativity) then
998 ! Cons and Prim densities are different for relativity
999#ifdef MFC_DEBUG
1000# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1001 block
1002# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1003 use iso_fortran_env, only: output_unit
1004# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1005
1006# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1007 print *, 'm_rhs.fpp:158: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1008# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1009
1010# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1011 call flush (output_unit)
1012# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1013 end block
1014# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1015#endif
1016# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1017 allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1018# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1019
1020# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1021
1022# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1023#if defined(MFC_OpenACC)
1024# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1025!$acc enter data create(q_prim_qp%vf(l)%sf)
1026# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1027#elif defined(MFC_OpenMP)
1028# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1029!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf)
1030# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1031#endif
1032# 160 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1033 else
1034 q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
1035
1036# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1037#if defined(MFC_OpenACC)
1038# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1039!$acc enter data copyin(q_prim_qp%vf(l)%sf)
1040# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1041#elif defined(MFC_OpenMP)
1042# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1043!$omp target enter data map(to:q_prim_qp%vf(l)%sf)
1044# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1045#endif
1046
1047# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1048#if defined(MFC_OpenACC)
1049# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1050!$acc enter data attach(q_prim_qp%vf(l)%sf)
1051# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1052#elif defined(MFC_OpenMP)
1053# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1054!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf)
1055# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1056#endif
1057 end if
1058 end do
1059
1060 do l = eqn_idx%adv%beg, eqn_idx%adv%end
1061 q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
1062
1063# 169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1064#if defined(MFC_OpenACC)
1065# 169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1066!$acc enter data copyin(q_prim_qp%vf(l)%sf)
1067# 169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1068#elif defined(MFC_OpenMP)
1069# 169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1070!$omp target enter data map(to:q_prim_qp%vf(l)%sf)
1071# 169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1072#endif
1073
1074# 170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1075#if defined(MFC_OpenACC)
1076# 170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1077!$acc enter data attach(q_prim_qp%vf(l)%sf)
1078# 170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1079#elif defined(MFC_OpenMP)
1080# 170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1081!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf)
1082# 170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1083#endif
1084 end do
1085 end if
1086
1087 if (surface_tension) then
1088 q_prim_qp%vf(eqn_idx%c)%sf => q_cons_qp%vf(eqn_idx%c)%sf
1089
1090# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1091#if defined(MFC_OpenACC)
1092# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1093!$acc enter data copyin(q_prim_qp%vf(eqn_idx%c)%sf)
1094# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1095#elif defined(MFC_OpenMP)
1096# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1097!$omp target enter data map(to:q_prim_qp%vf(eqn_idx%c)%sf)
1098# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1099#endif
1100
1101# 177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1102#if defined(MFC_OpenACC)
1103# 177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1104!$acc enter data attach(q_prim_qp%vf(eqn_idx%c)%sf)
1105# 177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1106#elif defined(MFC_OpenMP)
1107# 177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1108!$omp target enter data map(always,to:q_prim_qp%vf(eqn_idx%c)%sf)
1109# 177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1110#endif
1111 end if
1112
1113 if (hyper_cleaning) then
1114 q_prim_qp%vf(eqn_idx%psi)%sf => q_cons_qp%vf(eqn_idx%psi)%sf
1115
1116# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1117#if defined(MFC_OpenACC)
1118# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1119!$acc enter data copyin(q_prim_qp%vf(eqn_idx%psi)%sf)
1120# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1121#elif defined(MFC_OpenMP)
1122# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1123!$omp target enter data map(to:q_prim_qp%vf(eqn_idx%psi)%sf)
1124# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1125#endif
1126
1127# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1128#if defined(MFC_OpenACC)
1129# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1130!$acc enter data attach(q_prim_qp%vf(eqn_idx%psi)%sf)
1131# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1132#elif defined(MFC_OpenMP)
1133# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1134!$omp target enter data map(always,to:q_prim_qp%vf(eqn_idx%psi)%sf)
1135# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1136#endif
1137 end if
1138
1139 if (.not. igr) then
1140#ifdef MFC_DEBUG
1141# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1142 block
1143# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1144 use iso_fortran_env, only: output_unit
1145# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1146
1147# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1148 print *, 'm_rhs.fpp:187: ', '@:ALLOCATE(flux_n(1:num_dims))'
1149# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1150
1151# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1152 call flush (output_unit)
1153# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1154 end block
1155# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1156#endif
1157# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1158 allocate (flux_n(1:num_dims))
1159# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1160
1161# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1162
1163# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1164#if defined(MFC_OpenACC)
1165# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1166!$acc enter data create(flux_n)
1167# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1168#elif defined(MFC_OpenMP)
1169# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1170!$omp target enter data map(always,alloc:flux_n)
1171# 187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1172#endif
1173#ifdef MFC_DEBUG
1174# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1175 block
1176# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1177 use iso_fortran_env, only: output_unit
1178# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1179
1180# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1181 print *, 'm_rhs.fpp:188: ', '@:ALLOCATE(flux_src_n(1:num_dims))'
1182# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1183
1184# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1185 call flush (output_unit)
1186# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1187 end block
1188# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1189#endif
1190# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1191 allocate (flux_src_n(1:num_dims))
1192# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1193
1194# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1195
1196# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1197#if defined(MFC_OpenACC)
1198# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1199!$acc enter data create(flux_src_n)
1200# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1201#elif defined(MFC_OpenMP)
1202# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1203!$omp target enter data map(always,alloc:flux_src_n)
1204# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1205#endif
1206#ifdef MFC_DEBUG
1207# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1208 block
1209# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1210 use iso_fortran_env, only: output_unit
1211# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1212
1213# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1214 print *, 'm_rhs.fpp:189: ', '@:ALLOCATE(flux_gsrc_n(1:num_dims))'
1215# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1216
1217# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1218 call flush (output_unit)
1219# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1220 end block
1221# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1222#endif
1223# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1224 allocate (flux_gsrc_n(1:num_dims))
1225# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1226
1227# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1228
1229# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1230#if defined(MFC_OpenACC)
1231# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1232!$acc enter data create(flux_gsrc_n)
1233# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1234#elif defined(MFC_OpenMP)
1235# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1236!$omp target enter data map(always,alloc:flux_gsrc_n)
1237# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1238#endif
1239
1240 do i = 1, num_dims
1241#ifdef MFC_DEBUG
1242# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1243 block
1244# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1245 use iso_fortran_env, only: output_unit
1246# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1247
1248# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1249 print *, 'm_rhs.fpp:192: ', '@:ALLOCATE(flux_n(i)%vf(1:sys_size))'
1250# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1251
1252# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1253 call flush (output_unit)
1254# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1255 end block
1256# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1257#endif
1258# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1259 allocate (flux_n(i)%vf(1:sys_size))
1260# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1261
1262# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1263
1264# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1265#if defined(MFC_OpenACC)
1266# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1267!$acc enter data create(flux_n(i)%vf)
1268# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1269#elif defined(MFC_OpenMP)
1270# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1271!$omp target enter data map(always,alloc:flux_n(i)%vf)
1272# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1273#endif
1274#ifdef MFC_DEBUG
1275# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1276 block
1277# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1278 use iso_fortran_env, only: output_unit
1279# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1280
1281# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1282 print *, 'm_rhs.fpp:193: ', '@:ALLOCATE(flux_src_n(i)%vf(1:sys_size))'
1283# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1284
1285# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1286 call flush (output_unit)
1287# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1288 end block
1289# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1290#endif
1291# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1292 allocate (flux_src_n(i)%vf(1:sys_size))
1293# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1294
1295# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1296
1297# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1298#if defined(MFC_OpenACC)
1299# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1300!$acc enter data create(flux_src_n(i)%vf)
1301# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1302#elif defined(MFC_OpenMP)
1303# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1304!$omp target enter data map(always,alloc:flux_src_n(i)%vf)
1305# 193 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1306#endif
1307#ifdef MFC_DEBUG
1308# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1309 block
1310# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1311 use iso_fortran_env, only: output_unit
1312# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1313
1314# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1315 print *, 'm_rhs.fpp:194: ', '@:ALLOCATE(flux_gsrc_n(i)%vf(1:sys_size))'
1316# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1317
1318# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1319 call flush (output_unit)
1320# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1321 end block
1322# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1323#endif
1324# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1325 allocate (flux_gsrc_n(i)%vf(1:sys_size))
1326# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1327
1328# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1329
1330# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1331#if defined(MFC_OpenACC)
1332# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1333!$acc enter data create(flux_gsrc_n(i)%vf)
1334# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1335#elif defined(MFC_OpenMP)
1336# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1337!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf)
1338# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1339#endif
1340
1341 if (i == 1) then
1342 do l = 1, sys_size
1343#ifdef MFC_DEBUG
1344# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1345 block
1346# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1347 use iso_fortran_env, only: output_unit
1348# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1349
1350# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1351 print *, 'm_rhs.fpp:198: ', '@:ALLOCATE(flux_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1352# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1353
1354# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1355 call flush (output_unit)
1356# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1357 end block
1358# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1359#endif
1360# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1361 allocate (flux_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1362# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1363
1364# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1365
1366# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1367#if defined(MFC_OpenACC)
1368# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1369!$acc enter data create(flux_n(i)%vf(l)%sf)
1370# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1371#elif defined(MFC_OpenMP)
1372# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1373!$omp target enter data map(always,alloc:flux_n(i)%vf(l)%sf)
1374# 198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1375#endif
1376# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1377#ifdef MFC_DEBUG
1378# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1379 block
1380# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1381 use iso_fortran_env, only: output_unit
1382# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1383
1384# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1385 print *, 'm_rhs.fpp:200: ', '@:ALLOCATE(flux_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1386# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1387
1388# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1389 call flush (output_unit)
1390# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1391 end block
1392# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1393#endif
1394# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1395 allocate (flux_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1396# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1397
1398# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1399
1400# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1401#if defined(MFC_OpenACC)
1402# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1403!$acc enter data create(flux_gsrc_n(i)%vf(l)%sf)
1404# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1405#elif defined(MFC_OpenMP)
1406# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1407!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf(l)%sf)
1408# 200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1409#endif
1410# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1411 end do
1412
1413 if (viscous .or. surface_tension) then
1414 do l = eqn_idx%mom%beg, eqn_idx%E
1415#ifdef MFC_DEBUG
1416# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1417 block
1418# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1419 use iso_fortran_env, only: output_unit
1420# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1421
1422# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1423 print *, 'm_rhs.fpp:206: ', '@:ALLOCATE(flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1424# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1425
1426# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1427 call flush (output_unit)
1428# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1429 end block
1430# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1431#endif
1432# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1433 allocate (flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1434# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1435
1436# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1437
1438# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1439#if defined(MFC_OpenACC)
1440# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1441!$acc enter data create(flux_src_n(i)%vf(l)%sf)
1442# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1443#elif defined(MFC_OpenMP)
1444# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1445!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf)
1446# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1447#endif
1448# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1449 end do
1450 end if
1451
1452#ifdef MFC_DEBUG
1453# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1454 block
1455# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1456 use iso_fortran_env, only: output_unit
1457# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1458
1459# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1460 print *, 'm_rhs.fpp:211: ', '@:ALLOCATE(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1461# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1462
1463# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1464 call flush (output_unit)
1465# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1466 end block
1467# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1468#endif
1469# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1470 allocate (flux_src_n(i)%vf(eqn_idx%adv%beg)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1471# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1472
1473# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1474
1475# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1476#if defined(MFC_OpenACC)
1477# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1478!$acc enter data create(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf)
1479# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1480#elif defined(MFC_OpenMP)
1481# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1482!$omp target enter data map(always,alloc:flux_src_n(i)%vf(eqn_idx%adv%beg)%sf)
1483# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1484#endif
1485# 213 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1486
1487 if (riemann_solver == 1 .or. riemann_solver == 4) then
1488 do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
1489#ifdef MFC_DEBUG
1490# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1491 block
1492# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1493 use iso_fortran_env, only: output_unit
1494# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1495
1496# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1497 print *, 'm_rhs.fpp:216: ', '@:ALLOCATE(flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1498# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1499
1500# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1501 call flush (output_unit)
1502# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1503 end block
1504# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1505#endif
1506# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1507 allocate (flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1508# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1509
1510# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1511
1512# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1513#if defined(MFC_OpenACC)
1514# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1515!$acc enter data create(flux_src_n(i)%vf(l)%sf)
1516# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1517#elif defined(MFC_OpenMP)
1518# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1519!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf)
1520# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1521#endif
1522# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1523 end do
1524 end if
1525
1526 if (chemistry) then
1527 do l = eqn_idx%species%beg, eqn_idx%species%end
1528#ifdef MFC_DEBUG
1529# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1530 block
1531# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1532 use iso_fortran_env, only: output_unit
1533# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1534
1535# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1536 print *, 'm_rhs.fpp:223: ', '@:ALLOCATE(flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1537# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1538
1539# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1540 call flush (output_unit)
1541# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1542 end block
1543# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1544#endif
1545# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1546 allocate (flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1547# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1548
1549# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1550
1551# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1552#if defined(MFC_OpenACC)
1553# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1554!$acc enter data create(flux_src_n(i)%vf(l)%sf)
1555# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1556#elif defined(MFC_OpenMP)
1557# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1558!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf)
1559# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1560#endif
1561# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1562 end do
1563 if (chem_params%diffusion .and. .not. viscous) then
1564#ifdef MFC_DEBUG
1565# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1566 block
1567# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1568 use iso_fortran_env, only: output_unit
1569# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1570
1571# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1572 print *, 'm_rhs.fpp:227: ', '@:ALLOCATE(flux_src_n(i)%vf(eqn_idx%E)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1573# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1574
1575# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1576 call flush (output_unit)
1577# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1578 end block
1579# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1580#endif
1581# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1582 allocate (flux_src_n(i)%vf(eqn_idx%E)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1583# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1584
1585# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1586
1587# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1588#if defined(MFC_OpenACC)
1589# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1590!$acc enter data create(flux_src_n(i)%vf(eqn_idx%E)%sf)
1591# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1592#elif defined(MFC_OpenMP)
1593# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1594!$omp target enter data map(always,alloc:flux_src_n(i)%vf(eqn_idx%E)%sf)
1595# 227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1596#endif
1597# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1598 end if
1599 end if
1600 else
1601 do l = 1, sys_size
1602#ifdef MFC_DEBUG
1603# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1604 block
1605# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1606 use iso_fortran_env, only: output_unit
1607# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1608
1609# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1610 print *, 'm_rhs.fpp:233: ', '@:ALLOCATE(flux_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1611# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1612
1613# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1614 call flush (output_unit)
1615# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1616 end block
1617# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1618#endif
1619# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1620 allocate (flux_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1621# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1622
1623# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1624
1625# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1626#if defined(MFC_OpenACC)
1627# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1628!$acc enter data create(flux_gsrc_n(i)%vf(l)%sf)
1629# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1630#elif defined(MFC_OpenMP)
1631# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1632!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf(l)%sf)
1633# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1634#endif
1635# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1636 end do
1637 end if
1638
1639#ifdef _CRAYFTN
1640# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1641 block
1642# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1643 integer :: macros_setup_vfs_i
1644# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1645
1646# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1647#ifdef MFC_DEBUG
1648# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1649 block
1650# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1651 use iso_fortran_env, only: output_unit
1652# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1653
1654# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1655 print *, 'm_rhs.fpp:238: ', '@:ACC_SETUP_VFs(flux_n(i))'
1656# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1657
1658# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1659 call flush (output_unit)
1660# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1661 end block
1662# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1663#endif
1664# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1665
1666# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1667
1668# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1669#if defined(MFC_OpenACC)
1670# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1671!$acc enter data copyin(flux_n(i))
1672# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1673#elif defined(MFC_OpenMP)
1674# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1675!$omp target enter data map(to:flux_n(i))
1676# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1677#endif
1678# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1679
1680# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1681#if defined(MFC_OpenACC)
1682# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1683!$acc enter data copyin(flux_n(i)%vf)
1684# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1685#elif defined(MFC_OpenMP)
1686# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1687!$omp target enter data map(to:flux_n(i)%vf)
1688# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1689#endif
1690# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1691 if (allocated(flux_n(i)%vf)) then
1692# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1693 do macros_setup_vfs_i = lbound(flux_n(i)%vf, 1), ubound(flux_n(i)%vf, 1)
1694# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1695 if (associated(flux_n(i)%vf(macros_setup_vfs_i)%sf)) then
1696# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1697
1698# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1699#if defined(MFC_OpenACC)
1700# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1701!$acc enter data copyin(flux_n(i)%vf(macros_setup_vfs_i))
1702# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1703#elif defined(MFC_OpenMP)
1704# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1705!$omp target enter data map(to:flux_n(i)%vf(macros_setup_vfs_i))
1706# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1707#endif
1708# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1709
1710# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1711#if defined(MFC_OpenACC)
1712# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1713!$acc enter data copyin(flux_n(i)%vf(macros_setup_vfs_i)%sf)
1714# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1715#elif defined(MFC_OpenMP)
1716# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1717!$omp target enter data map(to:flux_n(i)%vf(macros_setup_vfs_i)%sf)
1718# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1719#endif
1720# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1721 end if
1722# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1723 end do
1724# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1725 end if
1726# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1727 end block
1728# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1729#endif
1730#ifdef _CRAYFTN
1731# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1732 block
1733# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1734 integer :: macros_setup_vfs_i
1735# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1736
1737# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1738#ifdef MFC_DEBUG
1739# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1740 block
1741# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1742 use iso_fortran_env, only: output_unit
1743# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1744
1745# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1746 print *, 'm_rhs.fpp:239: ', '@:ACC_SETUP_VFs(flux_src_n(i), flux_gsrc_n(i))'
1747# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1748
1749# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1750 call flush (output_unit)
1751# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1752 end block
1753# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1754#endif
1755# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1756
1757# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1758
1759# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1760#if defined(MFC_OpenACC)
1761# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1762!$acc enter data copyin(flux_src_n(i))
1763# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1764#elif defined(MFC_OpenMP)
1765# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1766!$omp target enter data map(to:flux_src_n(i))
1767# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1768#endif
1769# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1770
1771# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1772#if defined(MFC_OpenACC)
1773# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1774!$acc enter data copyin(flux_src_n(i)%vf)
1775# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1776#elif defined(MFC_OpenMP)
1777# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1778!$omp target enter data map(to:flux_src_n(i)%vf)
1779# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1780#endif
1781# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1782 if (allocated(flux_src_n(i)%vf)) then
1783# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1784 do macros_setup_vfs_i = lbound(flux_src_n(i)%vf, 1), ubound(flux_src_n(i)%vf, 1)
1785# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1786 if (associated(flux_src_n(i)%vf(macros_setup_vfs_i)%sf)) then
1787# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1788
1789# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1790#if defined(MFC_OpenACC)
1791# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1792!$acc enter data copyin(flux_src_n(i)%vf(macros_setup_vfs_i))
1793# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1794#elif defined(MFC_OpenMP)
1795# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1796!$omp target enter data map(to:flux_src_n(i)%vf(macros_setup_vfs_i))
1797# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1798#endif
1799# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1800
1801# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1802#if defined(MFC_OpenACC)
1803# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1804!$acc enter data copyin(flux_src_n(i)%vf(macros_setup_vfs_i)%sf)
1805# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1806#elif defined(MFC_OpenMP)
1807# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1808!$omp target enter data map(to:flux_src_n(i)%vf(macros_setup_vfs_i)%sf)
1809# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1810#endif
1811# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1812 end if
1813# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1814 end do
1815# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1816 end if
1817# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1818
1819# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1820#if defined(MFC_OpenACC)
1821# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1822!$acc enter data copyin(flux_gsrc_n(i))
1823# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1824#elif defined(MFC_OpenMP)
1825# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1826!$omp target enter data map(to:flux_gsrc_n(i))
1827# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1828#endif
1829# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1830
1831# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1832#if defined(MFC_OpenACC)
1833# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1834!$acc enter data copyin(flux_gsrc_n(i)%vf)
1835# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1836#elif defined(MFC_OpenMP)
1837# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1838!$omp target enter data map(to:flux_gsrc_n(i)%vf)
1839# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1840#endif
1841# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1842 if (allocated(flux_gsrc_n(i)%vf)) then
1843# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1844 do macros_setup_vfs_i = lbound(flux_gsrc_n(i)%vf, 1), ubound(flux_gsrc_n(i)%vf, 1)
1845# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1846 if (associated(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)) then
1847# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1848
1849# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1850#if defined(MFC_OpenACC)
1851# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1852!$acc enter data copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i))
1853# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1854#elif defined(MFC_OpenMP)
1855# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1856!$omp target enter data map(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i))
1857# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1858#endif
1859# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1860
1861# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1862#if defined(MFC_OpenACC)
1863# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1864!$acc enter data copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)
1865# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1866#elif defined(MFC_OpenMP)
1867# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1868!$omp target enter data map(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)
1869# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1870#endif
1871# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1872 end if
1873# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1874 end do
1875# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1876 end if
1877# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1878 end block
1879# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1880#endif
1881
1882 if (i == 1) then
1883 if (riemann_solver /= 1) then
1884 do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
1885 flux_src_n(i)%vf(l)%sf => flux_src_n(i)%vf(eqn_idx%adv%beg)%sf
1886
1887# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1888#if defined(MFC_OpenACC)
1889# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1890!$acc enter data attach(flux_src_n(i)%vf(l)%sf)
1891# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1892#elif defined(MFC_OpenMP)
1893# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1894!$omp target enter data map(always,to:flux_src_n(i)%vf(l)%sf)
1895# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1896#endif
1897 end do
1898 end if
1899 else
1900 do l = 1, sys_size
1901 flux_n(i)%vf(l)%sf => flux_n(1)%vf(l)%sf
1902
1903# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1904#if defined(MFC_OpenACC)
1905# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1906!$acc enter data attach(flux_n(i)%vf(l)%sf)
1907# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1908#elif defined(MFC_OpenMP)
1909# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1910!$omp target enter data map(always,to:flux_n(i)%vf(l)%sf)
1911# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1912#endif
1913 flux_src_n(i)%vf(l)%sf => flux_src_n(1)%vf(l)%sf
1914
1915# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1916#if defined(MFC_OpenACC)
1917# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1918!$acc enter data attach(flux_src_n(i)%vf(l)%sf)
1919# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1920#elif defined(MFC_OpenMP)
1921# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1922!$omp target enter data map(always,to:flux_src_n(i)%vf(l)%sf)
1923# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1924#endif
1925 end do
1926 end if
1927 end do
1928 end if
1929
1930 if ((.not. igr)) then
1931#ifdef MFC_DEBUG
1932# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1933 block
1934# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1935 use iso_fortran_env, only: output_unit
1936# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1937
1938# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1939 print *, 'm_rhs.fpp:260: ', '@:ALLOCATE(dq_prim_dx_qp(1:1))'
1940# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1941
1942# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1943 call flush (output_unit)
1944# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1945 end block
1946# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1947#endif
1948# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1949 allocate (dq_prim_dx_qp(1:1))
1950# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1951
1952# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1953
1954# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1955#if defined(MFC_OpenACC)
1956# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1957!$acc enter data create(dq_prim_dx_qp)
1958# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1959#elif defined(MFC_OpenMP)
1960# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1961!$omp target enter data map(always,alloc:dq_prim_dx_qp)
1962# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1963#endif
1964#ifdef MFC_DEBUG
1965# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1966 block
1967# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1968 use iso_fortran_env, only: output_unit
1969# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1970
1971# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1972 print *, 'm_rhs.fpp:261: ', '@:ALLOCATE(dq_prim_dy_qp(1:1))'
1973# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1974
1975# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1976 call flush (output_unit)
1977# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1978 end block
1979# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1980#endif
1981# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1982 allocate (dq_prim_dy_qp(1:1))
1983# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1984
1985# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1986
1987# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1988#if defined(MFC_OpenACC)
1989# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1990!$acc enter data create(dq_prim_dy_qp)
1991# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1992#elif defined(MFC_OpenMP)
1993# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1994!$omp target enter data map(always,alloc:dq_prim_dy_qp)
1995# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1996#endif
1997#ifdef MFC_DEBUG
1998# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1999 block
2000# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2001 use iso_fortran_env, only: output_unit
2002# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2003
2004# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2005 print *, 'm_rhs.fpp:262: ', '@:ALLOCATE(dq_prim_dz_qp(1:1))'
2006# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2007
2008# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2009 call flush (output_unit)
2010# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2011 end block
2012# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2013#endif
2014# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2015 allocate (dq_prim_dz_qp(1:1))
2016# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2017
2018# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2019
2020# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2021#if defined(MFC_OpenACC)
2022# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2023!$acc enter data create(dq_prim_dz_qp)
2024# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2025#elif defined(MFC_OpenMP)
2026# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2027!$omp target enter data map(always,alloc:dq_prim_dz_qp)
2028# 262 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2029#endif
2030
2031#ifdef MFC_DEBUG
2032# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2033 block
2034# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2035 use iso_fortran_env, only: output_unit
2036# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2037
2038# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2039 print *, 'm_rhs.fpp:264: ', '@:ALLOCATE(qL_prim(1:num_dims))'
2040# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2041
2042# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2043 call flush (output_unit)
2044# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2045 end block
2046# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2047#endif
2048# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2049 allocate (ql_prim(1:num_dims))
2050# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2051
2052# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2053
2054# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2055#if defined(MFC_OpenACC)
2056# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2057!$acc enter data create(qL_prim)
2058# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2059#elif defined(MFC_OpenMP)
2060# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2061!$omp target enter data map(always,alloc:qL_prim)
2062# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2063#endif
2064#ifdef MFC_DEBUG
2065# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2066 block
2067# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2068 use iso_fortran_env, only: output_unit
2069# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2070
2071# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2072 print *, 'm_rhs.fpp:265: ', '@:ALLOCATE(qR_prim(1:num_dims))'
2073# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2074
2075# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2076 call flush (output_unit)
2077# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2078 end block
2079# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2080#endif
2081# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2082 allocate (qr_prim(1:num_dims))
2083# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2084
2085# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2086
2087# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2088#if defined(MFC_OpenACC)
2089# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2090!$acc enter data create(qR_prim)
2091# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2092#elif defined(MFC_OpenMP)
2093# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2094!$omp target enter data map(always,alloc:qR_prim)
2095# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2096#endif
2097
2098#ifdef MFC_DEBUG
2099# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2100 block
2101# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2102 use iso_fortran_env, only: output_unit
2103# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2104
2105# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2106 print *, 'm_rhs.fpp:267: ', '@:ALLOCATE(dqL_prim_dx_n(1:num_dims))'
2107# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2108
2109# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2110 call flush (output_unit)
2111# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2112 end block
2113# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2114#endif
2115# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2116 allocate (dql_prim_dx_n(1:num_dims))
2117# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2118
2119# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2120
2121# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2122#if defined(MFC_OpenACC)
2123# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2124!$acc enter data create(dqL_prim_dx_n)
2125# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2126#elif defined(MFC_OpenMP)
2127# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2128!$omp target enter data map(always,alloc:dqL_prim_dx_n)
2129# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2130#endif
2131#ifdef MFC_DEBUG
2132# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2133 block
2134# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2135 use iso_fortran_env, only: output_unit
2136# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2137
2138# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2139 print *, 'm_rhs.fpp:268: ', '@:ALLOCATE(dqL_prim_dy_n(1:num_dims))'
2140# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2141
2142# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2143 call flush (output_unit)
2144# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2145 end block
2146# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2147#endif
2148# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2149 allocate (dql_prim_dy_n(1:num_dims))
2150# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2151
2152# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2153
2154# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2155#if defined(MFC_OpenACC)
2156# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2157!$acc enter data create(dqL_prim_dy_n)
2158# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2159#elif defined(MFC_OpenMP)
2160# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2161!$omp target enter data map(always,alloc:dqL_prim_dy_n)
2162# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2163#endif
2164#ifdef MFC_DEBUG
2165# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2166 block
2167# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2168 use iso_fortran_env, only: output_unit
2169# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2170
2171# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2172 print *, 'm_rhs.fpp:269: ', '@:ALLOCATE(dqL_prim_dz_n(1:num_dims))'
2173# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2174
2175# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2176 call flush (output_unit)
2177# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2178 end block
2179# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2180#endif
2181# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2182 allocate (dql_prim_dz_n(1:num_dims))
2183# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2184
2185# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2186
2187# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2188#if defined(MFC_OpenACC)
2189# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2190!$acc enter data create(dqL_prim_dz_n)
2191# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2192#elif defined(MFC_OpenMP)
2193# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2194!$omp target enter data map(always,alloc:dqL_prim_dz_n)
2195# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2196#endif
2197#ifdef MFC_DEBUG
2198# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2199 block
2200# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2201 use iso_fortran_env, only: output_unit
2202# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2203
2204# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2205 print *, 'm_rhs.fpp:270: ', '@:ALLOCATE(dqR_prim_dx_n(1:num_dims))'
2206# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2207
2208# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2209 call flush (output_unit)
2210# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2211 end block
2212# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2213#endif
2214# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2215 allocate (dqr_prim_dx_n(1:num_dims))
2216# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2217
2218# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2219
2220# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2221#if defined(MFC_OpenACC)
2222# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2223!$acc enter data create(dqR_prim_dx_n)
2224# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2225#elif defined(MFC_OpenMP)
2226# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2227!$omp target enter data map(always,alloc:dqR_prim_dx_n)
2228# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2229#endif
2230#ifdef MFC_DEBUG
2231# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2232 block
2233# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2234 use iso_fortran_env, only: output_unit
2235# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2236
2237# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2238 print *, 'm_rhs.fpp:271: ', '@:ALLOCATE(dqR_prim_dy_n(1:num_dims))'
2239# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2240
2241# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2242 call flush (output_unit)
2243# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2244 end block
2245# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2246#endif
2247# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2248 allocate (dqr_prim_dy_n(1:num_dims))
2249# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2250
2251# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2252
2253# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2254#if defined(MFC_OpenACC)
2255# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2256!$acc enter data create(dqR_prim_dy_n)
2257# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2258#elif defined(MFC_OpenMP)
2259# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2260!$omp target enter data map(always,alloc:dqR_prim_dy_n)
2261# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2262#endif
2263#ifdef MFC_DEBUG
2264# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2265 block
2266# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2267 use iso_fortran_env, only: output_unit
2268# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2269
2270# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2271 print *, 'm_rhs.fpp:272: ', '@:ALLOCATE(dqR_prim_dz_n(1:num_dims))'
2272# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2273
2274# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2275 call flush (output_unit)
2276# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2277 end block
2278# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2279#endif
2280# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2281 allocate (dqr_prim_dz_n(1:num_dims))
2282# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2283
2284# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2285
2286# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2287#if defined(MFC_OpenACC)
2288# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2289!$acc enter data create(dqR_prim_dz_n)
2290# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2291#elif defined(MFC_OpenMP)
2292# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2293!$omp target enter data map(always,alloc:dqR_prim_dz_n)
2294# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2295#endif
2296
2297 do i = 1, num_dims
2298#ifdef MFC_DEBUG
2299# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2300 block
2301# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2302 use iso_fortran_env, only: output_unit
2303# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2304
2305# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2306 print *, 'm_rhs.fpp:275: ', '@:ALLOCATE(qL_prim(i)%vf(1:sys_size))'
2307# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2308
2309# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2310 call flush (output_unit)
2311# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2312 end block
2313# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2314#endif
2315# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2316 allocate (ql_prim(i)%vf(1:sys_size))
2317# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2318
2319# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2320
2321# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2322#if defined(MFC_OpenACC)
2323# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2324!$acc enter data create(qL_prim(i)%vf)
2325# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2326#elif defined(MFC_OpenMP)
2327# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2328!$omp target enter data map(always,alloc:qL_prim(i)%vf)
2329# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2330#endif
2331#ifdef MFC_DEBUG
2332# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2333 block
2334# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2335 use iso_fortran_env, only: output_unit
2336# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2337
2338# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2339 print *, 'm_rhs.fpp:276: ', '@:ALLOCATE(qR_prim(i)%vf(1:sys_size))'
2340# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2341
2342# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2343 call flush (output_unit)
2344# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2345 end block
2346# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2347#endif
2348# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2349 allocate (qr_prim(i)%vf(1:sys_size))
2350# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2351
2352# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2353
2354# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2355#if defined(MFC_OpenACC)
2356# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2357!$acc enter data create(qR_prim(i)%vf)
2358# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2359#elif defined(MFC_OpenMP)
2360# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2361!$omp target enter data map(always,alloc:qR_prim(i)%vf)
2362# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2363#endif
2364 do l = eqn_idx%mom%beg, eqn_idx%mom%end
2365#ifdef MFC_DEBUG
2366# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2367 block
2368# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2369 use iso_fortran_env, only: output_unit
2370# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2371
2372# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2373 print *, 'm_rhs.fpp:278: ', '@:ALLOCATE(qL_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
2374# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2375
2376# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2377 call flush (output_unit)
2378# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2379 end block
2380# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2381#endif
2382# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2383 allocate (ql_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
2384# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2385
2386# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2387
2388# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2389#if defined(MFC_OpenACC)
2390# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2391!$acc enter data create(qL_prim(i)%vf(l)%sf)
2392# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2393#elif defined(MFC_OpenMP)
2394# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2395!$omp target enter data map(always,alloc:qL_prim(i)%vf(l)%sf)
2396# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2397#endif
2398# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2399#ifdef MFC_DEBUG
2400# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2401 block
2402# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2403 use iso_fortran_env, only: output_unit
2404# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2405
2406# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2407 print *, 'm_rhs.fpp:280: ', '@:ALLOCATE(qR_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
2408# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2409
2410# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2411 call flush (output_unit)
2412# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2413 end block
2414# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2415#endif
2416# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2417 allocate (qr_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
2418# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2419
2420# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2421
2422# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2423#if defined(MFC_OpenACC)
2424# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2425!$acc enter data create(qR_prim(i)%vf(l)%sf)
2426# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2427#elif defined(MFC_OpenMP)
2428# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2429!$omp target enter data map(always,alloc:qR_prim(i)%vf(l)%sf)
2430# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2431#endif
2432# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2433 end do
2434#ifdef _CRAYFTN
2435# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2436 block
2437# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2438 integer :: macros_setup_vfs_i
2439# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2440
2441# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2442#ifdef MFC_DEBUG
2443# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2444 block
2445# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2446 use iso_fortran_env, only: output_unit
2447# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2448
2449# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2450 print *, 'm_rhs.fpp:283: ', '@:ACC_SETUP_VFs(qL_prim(i), qR_prim(i))'
2451# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2452
2453# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2454 call flush (output_unit)
2455# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2456 end block
2457# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2458#endif
2459# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2460
2461# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2462
2463# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2464#if defined(MFC_OpenACC)
2465# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2466!$acc enter data copyin(qL_prim(i))
2467# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2468#elif defined(MFC_OpenMP)
2469# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2470!$omp target enter data map(to:qL_prim(i))
2471# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2472#endif
2473# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2474
2475# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2476#if defined(MFC_OpenACC)
2477# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2478!$acc enter data copyin(qL_prim(i)%vf)
2479# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2480#elif defined(MFC_OpenMP)
2481# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2482!$omp target enter data map(to:qL_prim(i)%vf)
2483# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2484#endif
2485# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2486 if (allocated(ql_prim(i)%vf)) then
2487# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2488 do macros_setup_vfs_i = lbound(ql_prim(i)%vf, 1), ubound(ql_prim(i)%vf, 1)
2489# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2490 if (associated(ql_prim(i)%vf(macros_setup_vfs_i)%sf)) then
2491# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2492
2493# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2494#if defined(MFC_OpenACC)
2495# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2496!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i))
2497# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2498#elif defined(MFC_OpenMP)
2499# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2500!$omp target enter data map(to:qL_prim(i)%vf(macros_setup_vfs_i))
2501# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2502#endif
2503# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2504
2505# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2506#if defined(MFC_OpenACC)
2507# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2508!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i)%sf)
2509# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2510#elif defined(MFC_OpenMP)
2511# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2512!$omp target enter data map(to:qL_prim(i)%vf(macros_setup_vfs_i)%sf)
2513# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2514#endif
2515# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2516 end if
2517# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2518 end do
2519# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2520 end if
2521# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2522
2523# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2524#if defined(MFC_OpenACC)
2525# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2526!$acc enter data copyin(qR_prim(i))
2527# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2528#elif defined(MFC_OpenMP)
2529# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2530!$omp target enter data map(to:qR_prim(i))
2531# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2532#endif
2533# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2534
2535# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2536#if defined(MFC_OpenACC)
2537# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2538!$acc enter data copyin(qR_prim(i)%vf)
2539# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2540#elif defined(MFC_OpenMP)
2541# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2542!$omp target enter data map(to:qR_prim(i)%vf)
2543# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2544#endif
2545# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2546 if (allocated(qr_prim(i)%vf)) then
2547# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2548 do macros_setup_vfs_i = lbound(qr_prim(i)%vf, 1), ubound(qr_prim(i)%vf, 1)
2549# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2550 if (associated(qr_prim(i)%vf(macros_setup_vfs_i)%sf)) then
2551# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2552
2553# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2554#if defined(MFC_OpenACC)
2555# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2556!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i))
2557# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2558#elif defined(MFC_OpenMP)
2559# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2560!$omp target enter data map(to:qR_prim(i)%vf(macros_setup_vfs_i))
2561# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2562#endif
2563# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2564
2565# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2566#if defined(MFC_OpenACC)
2567# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2568!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i)%sf)
2569# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2570#elif defined(MFC_OpenMP)
2571# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2572!$omp target enter data map(to:qR_prim(i)%vf(macros_setup_vfs_i)%sf)
2573# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2574#endif
2575# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2576 end if
2577# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2578 end do
2579# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2580 end if
2581# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2582 end block
2583# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2584#endif
2585 end do
2586
2587#ifdef MFC_DEBUG
2588# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2589 block
2590# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2591 use iso_fortran_env, only: output_unit
2592# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2593
2594# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2595 print *, 'm_rhs.fpp:286: ', '@:ALLOCATE(qL_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
2596# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2597
2598# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2599 call flush (output_unit)
2600# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2601 end block
2602# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2603#endif
2604# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2605 allocate (ql_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
2606# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2607
2608# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2609
2610# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2611#if defined(MFC_OpenACC)
2612# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2613!$acc enter data create(qL_rsx_vf)
2614# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2615#elif defined(MFC_OpenMP)
2616# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2617!$omp target enter data map(always,alloc:qL_rsx_vf)
2618# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2619#endif
2620# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2621#ifdef MFC_DEBUG
2622# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2623 block
2624# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2625 use iso_fortran_env, only: output_unit
2626# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2627
2628# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2629 print *, 'm_rhs.fpp:288: ', '@:ALLOCATE(qR_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
2630# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2631
2632# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2633 call flush (output_unit)
2634# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2635 end block
2636# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2637#endif
2638# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2639 allocate (qr_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
2640# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2641
2642# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2643
2644# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2645#if defined(MFC_OpenACC)
2646# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2647!$acc enter data create(qR_rsx_vf)
2648# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2649#elif defined(MFC_OpenMP)
2650# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2651!$omp target enter data map(always,alloc:qR_rsx_vf)
2652# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2653#endif
2654# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2655
2656 if (.not. viscous) then
2657 do i = 1, num_dims
2658#ifdef MFC_DEBUG
2659# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2660 block
2661# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2662 use iso_fortran_env, only: output_unit
2663# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2664
2665# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2666 print *, 'm_rhs.fpp:293: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
2667# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2668
2669# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2670 call flush (output_unit)
2671# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2672 end block
2673# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2674#endif
2675# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2676 allocate (dql_prim_dx_n(i)%vf(1:sys_size))
2677# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2678
2679# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2680
2681# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2682#if defined(MFC_OpenACC)
2683# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2684!$acc enter data create(dqL_prim_dx_n(i)%vf)
2685# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2686#elif defined(MFC_OpenMP)
2687# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2688!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf)
2689# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2690#endif
2691#ifdef MFC_DEBUG
2692# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2693 block
2694# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2695 use iso_fortran_env, only: output_unit
2696# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2697
2698# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2699 print *, 'm_rhs.fpp:294: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
2700# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2701
2702# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2703 call flush (output_unit)
2704# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2705 end block
2706# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2707#endif
2708# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2709 allocate (dql_prim_dy_n(i)%vf(1:sys_size))
2710# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2711
2712# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2713
2714# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2715#if defined(MFC_OpenACC)
2716# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2717!$acc enter data create(dqL_prim_dy_n(i)%vf)
2718# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2719#elif defined(MFC_OpenMP)
2720# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2721!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf)
2722# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2723#endif
2724#ifdef MFC_DEBUG
2725# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2726 block
2727# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2728 use iso_fortran_env, only: output_unit
2729# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2730
2731# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2732 print *, 'm_rhs.fpp:295: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
2733# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2734
2735# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2736 call flush (output_unit)
2737# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2738 end block
2739# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2740#endif
2741# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2742 allocate (dql_prim_dz_n(i)%vf(1:sys_size))
2743# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2744
2745# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2746
2747# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2748#if defined(MFC_OpenACC)
2749# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2750!$acc enter data create(dqL_prim_dz_n(i)%vf)
2751# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2752#elif defined(MFC_OpenMP)
2753# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2754!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf)
2755# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2756#endif
2757#ifdef MFC_DEBUG
2758# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2759 block
2760# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2761 use iso_fortran_env, only: output_unit
2762# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2763
2764# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2765 print *, 'm_rhs.fpp:296: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
2766# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2767
2768# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2769 call flush (output_unit)
2770# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2771 end block
2772# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2773#endif
2774# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2775 allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
2776# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2777
2778# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2779
2780# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2781#if defined(MFC_OpenACC)
2782# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2783!$acc enter data create(dqR_prim_dx_n(i)%vf)
2784# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2785#elif defined(MFC_OpenMP)
2786# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2787!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf)
2788# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2789#endif
2790#ifdef MFC_DEBUG
2791# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2792 block
2793# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2794 use iso_fortran_env, only: output_unit
2795# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2796
2797# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2798 print *, 'm_rhs.fpp:297: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
2799# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2800
2801# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2802 call flush (output_unit)
2803# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2804 end block
2805# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2806#endif
2807# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2808 allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
2809# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2810
2811# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2812
2813# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2814#if defined(MFC_OpenACC)
2815# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2816!$acc enter data create(dqR_prim_dy_n(i)%vf)
2817# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2818#elif defined(MFC_OpenMP)
2819# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2820!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf)
2821# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2822#endif
2823#ifdef MFC_DEBUG
2824# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2825 block
2826# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2827 use iso_fortran_env, only: output_unit
2828# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2829
2830# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2831 print *, 'm_rhs.fpp:298: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
2832# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2833
2834# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2835 call flush (output_unit)
2836# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2837 end block
2838# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2839#endif
2840# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2841 allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
2842# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2843
2844# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2845
2846# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2847#if defined(MFC_OpenACC)
2848# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2849!$acc enter data create(dqR_prim_dz_n(i)%vf)
2850# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2851#elif defined(MFC_OpenMP)
2852# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2853!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf)
2854# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2855#endif
2856
2857 do l = eqn_idx%mom%beg, eqn_idx%mom%end
2858#ifdef MFC_DEBUG
2859# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2860 block
2861# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2862 use iso_fortran_env, only: output_unit
2863# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2864
2865# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2866 print *, 'm_rhs.fpp:301: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
2867# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2868
2869# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2870 call flush (output_unit)
2871# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2872 end block
2873# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2874#endif
2875# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2876 allocate (dql_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
2877# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2878
2879# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2880
2881# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2882#if defined(MFC_OpenACC)
2883# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2884!$acc enter data create(dqL_prim_dx_n(i)%vf(l)%sf)
2885# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2886#elif defined(MFC_OpenMP)
2887# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2888!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf(l)%sf)
2889# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2890#endif
2891#ifdef MFC_DEBUG
2892# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2893 block
2894# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2895 use iso_fortran_env, only: output_unit
2896# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2897
2898# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2899 print *, 'm_rhs.fpp:302: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
2900# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2901
2902# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2903 call flush (output_unit)
2904# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2905 end block
2906# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2907#endif
2908# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2909 allocate (dql_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
2910# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2911
2912# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2913
2914# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2915#if defined(MFC_OpenACC)
2916# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2917!$acc enter data create(dqL_prim_dy_n(i)%vf(l)%sf)
2918# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2919#elif defined(MFC_OpenMP)
2920# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2921!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf(l)%sf)
2922# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2923#endif
2924#ifdef MFC_DEBUG
2925# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2926 block
2927# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2928 use iso_fortran_env, only: output_unit
2929# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2930
2931# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2932 print *, 'm_rhs.fpp:303: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
2933# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2934
2935# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2936 call flush (output_unit)
2937# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2938 end block
2939# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2940#endif
2941# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2942 allocate (dql_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
2943# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2944
2945# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2946
2947# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2948#if defined(MFC_OpenACC)
2949# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2950!$acc enter data create(dqL_prim_dz_n(i)%vf(l)%sf)
2951# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2952#elif defined(MFC_OpenMP)
2953# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2954!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf(l)%sf)
2955# 303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2956#endif
2957#ifdef MFC_DEBUG
2958# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2959 block
2960# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2961 use iso_fortran_env, only: output_unit
2962# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2963
2964# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2965 print *, 'm_rhs.fpp:304: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
2966# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2967
2968# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2969 call flush (output_unit)
2970# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2971 end block
2972# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2973#endif
2974# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2975 allocate (dqr_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
2976# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2977
2978# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2979
2980# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2981#if defined(MFC_OpenACC)
2982# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2983!$acc enter data create(dqR_prim_dx_n(i)%vf(l)%sf)
2984# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2985#elif defined(MFC_OpenMP)
2986# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2987!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf(l)%sf)
2988# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2989#endif
2990#ifdef MFC_DEBUG
2991# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2992 block
2993# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2994 use iso_fortran_env, only: output_unit
2995# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2996
2997# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2998 print *, 'm_rhs.fpp:305: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
2999# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3000
3001# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3002 call flush (output_unit)
3003# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3004 end block
3005# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3006#endif
3007# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3008 allocate (dqr_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
3009# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3010
3011# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3012
3013# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3014#if defined(MFC_OpenACC)
3015# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3016!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf)
3017# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3018#elif defined(MFC_OpenMP)
3019# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3020!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf(l)%sf)
3021# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3022#endif
3023#ifdef MFC_DEBUG
3024# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3025 block
3026# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3027 use iso_fortran_env, only: output_unit
3028# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3029
3030# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3031 print *, 'm_rhs.fpp:306: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
3032# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3033
3034# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3035 call flush (output_unit)
3036# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3037 end block
3038# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3039#endif
3040# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3041 allocate (dqr_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
3042# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3043
3044# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3045
3046# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3047#if defined(MFC_OpenACC)
3048# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3049!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf)
3050# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3051#elif defined(MFC_OpenMP)
3052# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3053!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf(l)%sf)
3054# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3055#endif
3056 end do
3057#ifdef _CRAYFTN
3058# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3059 block
3060# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3061 integer :: macros_setup_vfs_i
3062# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3063
3064# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3065#ifdef MFC_DEBUG
3066# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3067 block
3068# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3069 use iso_fortran_env, only: output_unit
3070# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3071
3072# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3073 print *, 'm_rhs.fpp:308: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
3074# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3075
3076# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3077 call flush (output_unit)
3078# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3079 end block
3080# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3081#endif
3082# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3083
3084# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3085
3086# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3087#if defined(MFC_OpenACC)
3088# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3089!$acc enter data copyin(dqL_prim_dx_n(i))
3090# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3091#elif defined(MFC_OpenMP)
3092# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3093!$omp target enter data map(to:dqL_prim_dx_n(i))
3094# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3095#endif
3096# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3097
3098# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3099#if defined(MFC_OpenACC)
3100# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3101!$acc enter data copyin(dqL_prim_dx_n(i)%vf)
3102# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3103#elif defined(MFC_OpenMP)
3104# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3105!$omp target enter data map(to:dqL_prim_dx_n(i)%vf)
3106# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3107#endif
3108# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3109 if (allocated(dql_prim_dx_n(i)%vf)) then
3110# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3111 do macros_setup_vfs_i = lbound(dql_prim_dx_n(i)%vf, 1), ubound(dql_prim_dx_n(i)%vf, 1)
3112# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3113 if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
3114# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3115
3116# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3117#if defined(MFC_OpenACC)
3118# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3119!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i))
3120# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3121#elif defined(MFC_OpenMP)
3122# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3123!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i))
3124# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3125#endif
3126# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3127
3128# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3129#if defined(MFC_OpenACC)
3130# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3131!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
3132# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3133#elif defined(MFC_OpenMP)
3134# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3135!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
3136# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3137#endif
3138# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3139 end if
3140# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3141 end do
3142# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3143 end if
3144# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3145
3146# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3147#if defined(MFC_OpenACC)
3148# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3149!$acc enter data copyin(dqL_prim_dy_n(i))
3150# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3151#elif defined(MFC_OpenMP)
3152# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3153!$omp target enter data map(to:dqL_prim_dy_n(i))
3154# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3155#endif
3156# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3157
3158# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3159#if defined(MFC_OpenACC)
3160# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3161!$acc enter data copyin(dqL_prim_dy_n(i)%vf)
3162# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3163#elif defined(MFC_OpenMP)
3164# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3165!$omp target enter data map(to:dqL_prim_dy_n(i)%vf)
3166# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3167#endif
3168# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3169 if (allocated(dql_prim_dy_n(i)%vf)) then
3170# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3171 do macros_setup_vfs_i = lbound(dql_prim_dy_n(i)%vf, 1), ubound(dql_prim_dy_n(i)%vf, 1)
3172# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3173 if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
3174# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3175
3176# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3177#if defined(MFC_OpenACC)
3178# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3179!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i))
3180# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3181#elif defined(MFC_OpenMP)
3182# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3183!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i))
3184# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3185#endif
3186# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3187
3188# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3189#if defined(MFC_OpenACC)
3190# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3191!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
3192# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3193#elif defined(MFC_OpenMP)
3194# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3195!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
3196# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3197#endif
3198# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3199 end if
3200# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3201 end do
3202# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3203 end if
3204# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3205
3206# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3207#if defined(MFC_OpenACC)
3208# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3209!$acc enter data copyin(dqL_prim_dz_n(i))
3210# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3211#elif defined(MFC_OpenMP)
3212# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3213!$omp target enter data map(to:dqL_prim_dz_n(i))
3214# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3215#endif
3216# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3217
3218# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3219#if defined(MFC_OpenACC)
3220# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3221!$acc enter data copyin(dqL_prim_dz_n(i)%vf)
3222# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3223#elif defined(MFC_OpenMP)
3224# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3225!$omp target enter data map(to:dqL_prim_dz_n(i)%vf)
3226# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3227#endif
3228# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3229 if (allocated(dql_prim_dz_n(i)%vf)) then
3230# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3231 do macros_setup_vfs_i = lbound(dql_prim_dz_n(i)%vf, 1), ubound(dql_prim_dz_n(i)%vf, 1)
3232# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3233 if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
3234# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3235
3236# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3237#if defined(MFC_OpenACC)
3238# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3239!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i))
3240# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3241#elif defined(MFC_OpenMP)
3242# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3243!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i))
3244# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3245#endif
3246# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3247
3248# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3249#if defined(MFC_OpenACC)
3250# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3251!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
3252# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3253#elif defined(MFC_OpenMP)
3254# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3255!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
3256# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3257#endif
3258# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3259 end if
3260# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3261 end do
3262# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3263 end if
3264# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3265 end block
3266# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3267#endif
3268#ifdef _CRAYFTN
3269# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3270 block
3271# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3272 integer :: macros_setup_vfs_i
3273# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3274
3275# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3276#ifdef MFC_DEBUG
3277# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3278 block
3279# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3280 use iso_fortran_env, only: output_unit
3281# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3282
3283# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3284 print *, 'm_rhs.fpp:309: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
3285# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3286
3287# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3288 call flush (output_unit)
3289# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3290 end block
3291# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3292#endif
3293# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3294
3295# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3296
3297# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3298#if defined(MFC_OpenACC)
3299# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3300!$acc enter data copyin(dqR_prim_dx_n(i))
3301# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3302#elif defined(MFC_OpenMP)
3303# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3304!$omp target enter data map(to:dqR_prim_dx_n(i))
3305# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3306#endif
3307# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3308
3309# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3310#if defined(MFC_OpenACC)
3311# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3312!$acc enter data copyin(dqR_prim_dx_n(i)%vf)
3313# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3314#elif defined(MFC_OpenMP)
3315# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3316!$omp target enter data map(to:dqR_prim_dx_n(i)%vf)
3317# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3318#endif
3319# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3320 if (allocated(dqr_prim_dx_n(i)%vf)) then
3321# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3322 do macros_setup_vfs_i = lbound(dqr_prim_dx_n(i)%vf, 1), ubound(dqr_prim_dx_n(i)%vf, 1)
3323# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3324 if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
3325# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3326
3327# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3328#if defined(MFC_OpenACC)
3329# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3330!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i))
3331# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3332#elif defined(MFC_OpenMP)
3333# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3334!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i))
3335# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3336#endif
3337# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3338
3339# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3340#if defined(MFC_OpenACC)
3341# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3342!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
3343# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3344#elif defined(MFC_OpenMP)
3345# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3346!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
3347# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3348#endif
3349# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3350 end if
3351# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3352 end do
3353# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3354 end if
3355# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3356
3357# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3358#if defined(MFC_OpenACC)
3359# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3360!$acc enter data copyin(dqR_prim_dy_n(i))
3361# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3362#elif defined(MFC_OpenMP)
3363# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3364!$omp target enter data map(to:dqR_prim_dy_n(i))
3365# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3366#endif
3367# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3368
3369# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3370#if defined(MFC_OpenACC)
3371# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3372!$acc enter data copyin(dqR_prim_dy_n(i)%vf)
3373# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3374#elif defined(MFC_OpenMP)
3375# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3376!$omp target enter data map(to:dqR_prim_dy_n(i)%vf)
3377# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3378#endif
3379# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3380 if (allocated(dqr_prim_dy_n(i)%vf)) then
3381# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3382 do macros_setup_vfs_i = lbound(dqr_prim_dy_n(i)%vf, 1), ubound(dqr_prim_dy_n(i)%vf, 1)
3383# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3384 if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
3385# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3386
3387# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3388#if defined(MFC_OpenACC)
3389# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3390!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i))
3391# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3392#elif defined(MFC_OpenMP)
3393# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3394!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i))
3395# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3396#endif
3397# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3398
3399# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3400#if defined(MFC_OpenACC)
3401# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3402!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
3403# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3404#elif defined(MFC_OpenMP)
3405# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3406!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
3407# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3408#endif
3409# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3410 end if
3411# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3412 end do
3413# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3414 end if
3415# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3416
3417# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3418#if defined(MFC_OpenACC)
3419# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3420!$acc enter data copyin(dqR_prim_dz_n(i))
3421# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3422#elif defined(MFC_OpenMP)
3423# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3424!$omp target enter data map(to:dqR_prim_dz_n(i))
3425# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3426#endif
3427# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3428
3429# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3430#if defined(MFC_OpenACC)
3431# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3432!$acc enter data copyin(dqR_prim_dz_n(i)%vf)
3433# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3434#elif defined(MFC_OpenMP)
3435# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3436!$omp target enter data map(to:dqR_prim_dz_n(i)%vf)
3437# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3438#endif
3439# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3440 if (allocated(dqr_prim_dz_n(i)%vf)) then
3441# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3442 do macros_setup_vfs_i = lbound(dqr_prim_dz_n(i)%vf, 1), ubound(dqr_prim_dz_n(i)%vf, 1)
3443# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3444 if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
3445# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3446
3447# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3448#if defined(MFC_OpenACC)
3449# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3450!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i))
3451# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3452#elif defined(MFC_OpenMP)
3453# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3454!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i))
3455# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3456#endif
3457# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3458
3459# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3460#if defined(MFC_OpenACC)
3461# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3462!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
3463# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3464#elif defined(MFC_OpenMP)
3465# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3466!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
3467# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3468#endif
3469# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3470 end if
3471# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3472 end do
3473# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3474 end if
3475# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3476 end block
3477# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3478#endif
3479 end do
3480 end if
3481
3482 if (viscous) then
3483#ifdef MFC_DEBUG
3484# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3485 block
3486# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3487 use iso_fortran_env, only: output_unit
3488# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3489
3490# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3491 print *, 'm_rhs.fpp:314: ', '@:ALLOCATE(tau_Re_vf(1:sys_size))'
3492# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3493
3494# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3495 call flush (output_unit)
3496# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3497 end block
3498# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3499#endif
3500# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3501 allocate (tau_re_vf(1:sys_size))
3502# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3503
3504# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3505
3506# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3507#if defined(MFC_OpenACC)
3508# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3509!$acc enter data create(tau_Re_vf)
3510# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3511#elif defined(MFC_OpenMP)
3512# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3513!$omp target enter data map(always,alloc:tau_Re_vf)
3514# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3515#endif
3516 do i = 1, num_dims
3517#ifdef MFC_DEBUG
3518# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3519 block
3520# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3521 use iso_fortran_env, only: output_unit
3522# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3523
3524# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3525 print *, 'm_rhs.fpp:316: ', '@:ALLOCATE(tau_Re_vf(eqn_idx%cont%end + i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
3526# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3527
3528# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3529 call flush (output_unit)
3530# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3531 end block
3532# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3533#endif
3534# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3535 allocate (tau_re_vf(eqn_idx%cont%end + i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
3536# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3537
3538# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3539
3540# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3541#if defined(MFC_OpenACC)
3542# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3543!$acc enter data create(tau_Re_vf(eqn_idx%cont%end + i)%sf)
3544# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3545#elif defined(MFC_OpenMP)
3546# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3547!$omp target enter data map(always,alloc:tau_Re_vf(eqn_idx%cont%end + i)%sf)
3548# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3549#endif
3550# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3551#ifdef _CRAYFTN
3552# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3553 block
3554# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3555#ifdef MFC_DEBUG
3556# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3557 block
3558# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3559 use iso_fortran_env, only: output_unit
3560# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3561
3562# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3563 print *, 'm_rhs.fpp:318: ', '@:ACC_SETUP_SFs(tau_Re_vf(eqn_idx%cont%end + i))'
3564# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3565
3566# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3567 call flush (output_unit)
3568# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3569 end block
3570# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3571#endif
3572# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3573
3574# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3575
3576# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3577#if defined(MFC_OpenACC)
3578# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3579!$acc enter data copyin(tau_Re_vf(eqn_idx%cont%end + i))
3580# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3581#elif defined(MFC_OpenMP)
3582# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3583!$omp target enter data map(to:tau_Re_vf(eqn_idx%cont%end + i))
3584# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3585#endif
3586# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3587 if (associated(tau_re_vf(eqn_idx%cont%end + i)%sf)) then
3588# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3589
3590# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3591#if defined(MFC_OpenACC)
3592# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3593!$acc enter data copyin(tau_Re_vf(eqn_idx%cont%end + i)%sf)
3594# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3595#elif defined(MFC_OpenMP)
3596# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3597!$omp target enter data map(to:tau_Re_vf(eqn_idx%cont%end + i)%sf)
3598# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3599#endif
3600# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3601 end if
3602# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3603 end block
3604# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3605#endif
3606 end do
3607#ifdef MFC_DEBUG
3608# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3609 block
3610# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3611 use iso_fortran_env, only: output_unit
3612# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3613
3614# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3615 print *, 'm_rhs.fpp:320: ', '@:ALLOCATE(tau_Re_vf(eqn_idx%E)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
3616# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3617
3618# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3619 call flush (output_unit)
3620# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3621 end block
3622# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3623#endif
3624# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3625 allocate (tau_re_vf(eqn_idx%E)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
3626# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3627
3628# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3629
3630# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3631#if defined(MFC_OpenACC)
3632# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3633!$acc enter data create(tau_Re_vf(eqn_idx%E)%sf)
3634# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3635#elif defined(MFC_OpenMP)
3636# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3637!$omp target enter data map(always,alloc:tau_Re_vf(eqn_idx%E)%sf)
3638# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3639#endif
3640# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3641#ifdef _CRAYFTN
3642# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3643 block
3644# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3645#ifdef MFC_DEBUG
3646# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3647 block
3648# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3649 use iso_fortran_env, only: output_unit
3650# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3651
3652# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3653 print *, 'm_rhs.fpp:322: ', '@:ACC_SETUP_SFs(tau_Re_vf(eqn_idx%E))'
3654# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3655
3656# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3657 call flush (output_unit)
3658# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3659 end block
3660# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3661#endif
3662# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3663
3664# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3665
3666# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3667#if defined(MFC_OpenACC)
3668# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3669!$acc enter data copyin(tau_Re_vf(eqn_idx%E))
3670# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3671#elif defined(MFC_OpenMP)
3672# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3673!$omp target enter data map(to:tau_Re_vf(eqn_idx%E))
3674# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3675#endif
3676# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3677 if (associated(tau_re_vf(eqn_idx%E)%sf)) then
3678# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3679
3680# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3681#if defined(MFC_OpenACC)
3682# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3683!$acc enter data copyin(tau_Re_vf(eqn_idx%E)%sf)
3684# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3685#elif defined(MFC_OpenMP)
3686# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3687!$omp target enter data map(to:tau_Re_vf(eqn_idx%E)%sf)
3688# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3689#endif
3690# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3691 end if
3692# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3693 end block
3694# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3695#endif
3696
3697#ifdef MFC_DEBUG
3698# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3699 block
3700# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3701 use iso_fortran_env, only: output_unit
3702# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3703
3704# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3705 print *, 'm_rhs.fpp:324: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
3706# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3707
3708# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3709 call flush (output_unit)
3710# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3711 end block
3712# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3713#endif
3714# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3715 allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
3716# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3717
3718# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3719
3720# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3721#if defined(MFC_OpenACC)
3722# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3723!$acc enter data create(dq_prim_dx_qp(1)%vf)
3724# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3725#elif defined(MFC_OpenMP)
3726# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3727!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf)
3728# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3729#endif
3730#ifdef MFC_DEBUG
3731# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3732 block
3733# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3734 use iso_fortran_env, only: output_unit
3735# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3736
3737# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3738 print *, 'm_rhs.fpp:325: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
3739# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3740
3741# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3742 call flush (output_unit)
3743# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3744 end block
3745# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3746#endif
3747# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3748 allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
3749# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3750
3751# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3752
3753# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3754#if defined(MFC_OpenACC)
3755# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3756!$acc enter data create(dq_prim_dy_qp(1)%vf)
3757# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3758#elif defined(MFC_OpenMP)
3759# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3760!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf)
3761# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3762#endif
3763#ifdef MFC_DEBUG
3764# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3765 block
3766# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3767 use iso_fortran_env, only: output_unit
3768# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3769
3770# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3771 print *, 'm_rhs.fpp:326: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
3772# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3773
3774# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3775 call flush (output_unit)
3776# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3777 end block
3778# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3779#endif
3780# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3781 allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
3782# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3783
3784# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3785
3786# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3787#if defined(MFC_OpenACC)
3788# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3789!$acc enter data create(dq_prim_dz_qp(1)%vf)
3790# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3791#elif defined(MFC_OpenMP)
3792# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3793!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf)
3794# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3795#endif
3796
3797 do l = eqn_idx%mom%beg, eqn_idx%mom%end
3798#ifdef MFC_DEBUG
3799# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3800 block
3801# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3802 use iso_fortran_env, only: output_unit
3803# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3804
3805# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3806 print *, 'm_rhs.fpp:329: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
3807# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3808
3809# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3810 call flush (output_unit)
3811# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3812 end block
3813# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3814#endif
3815# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3816 allocate (dq_prim_dx_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
3817# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3818
3819# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3820
3821# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3822#if defined(MFC_OpenACC)
3823# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3824!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf)
3825# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3826#elif defined(MFC_OpenMP)
3827# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3828!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf(l)%sf)
3829# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3830#endif
3831# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3832 end do
3833
3834#ifdef _CRAYFTN
3835# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3836 block
3837# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3838 integer :: macros_setup_vfs_i
3839# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3840
3841# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3842#ifdef MFC_DEBUG
3843# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3844 block
3845# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3846 use iso_fortran_env, only: output_unit
3847# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3848
3849# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3850 print *, 'm_rhs.fpp:333: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
3851# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3852
3853# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3854 call flush (output_unit)
3855# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3856 end block
3857# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3858#endif
3859# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3860
3861# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3862
3863# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3864#if defined(MFC_OpenACC)
3865# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3866!$acc enter data copyin(dq_prim_dx_qp(1))
3867# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3868#elif defined(MFC_OpenMP)
3869# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3870!$omp target enter data map(to:dq_prim_dx_qp(1))
3871# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3872#endif
3873# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3874
3875# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3876#if defined(MFC_OpenACC)
3877# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3878!$acc enter data copyin(dq_prim_dx_qp(1)%vf)
3879# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3880#elif defined(MFC_OpenMP)
3881# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3882!$omp target enter data map(to:dq_prim_dx_qp(1)%vf)
3883# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3884#endif
3885# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3886 if (allocated(dq_prim_dx_qp(1)%vf)) then
3887# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3888 do macros_setup_vfs_i = lbound(dq_prim_dx_qp(1)%vf, 1), ubound(dq_prim_dx_qp(1)%vf, 1)
3889# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3890 if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
3891# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3892
3893# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3894#if defined(MFC_OpenACC)
3895# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3896!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i))
3897# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3898#elif defined(MFC_OpenMP)
3899# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3900!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i))
3901# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3902#endif
3903# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3904
3905# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3906#if defined(MFC_OpenACC)
3907# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3908!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)
3909# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3910#elif defined(MFC_OpenMP)
3911# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3912!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)
3913# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3914#endif
3915# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3916 end if
3917# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3918 end do
3919# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3920 end if
3921# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3922 end block
3923# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3924#endif
3925
3926 if (n > 0) then
3927 do l = eqn_idx%mom%beg, eqn_idx%mom%end
3928#ifdef MFC_DEBUG
3929# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3930 block
3931# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3932 use iso_fortran_env, only: output_unit
3933# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3934
3935# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3936 print *, 'm_rhs.fpp:337: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
3937# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3938
3939# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3940 call flush (output_unit)
3941# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3942 end block
3943# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3944#endif
3945# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3946 allocate (dq_prim_dy_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
3947# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3948
3949# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3950
3951# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3952#if defined(MFC_OpenACC)
3953# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3954!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf)
3955# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3956#elif defined(MFC_OpenMP)
3957# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3958!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf(l)%sf)
3959# 337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3960#endif
3961# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3962 end do
3963
3964#ifdef _CRAYFTN
3965# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3966 block
3967# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3968 integer :: macros_setup_vfs_i
3969# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3970
3971# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3972#ifdef MFC_DEBUG
3973# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3974 block
3975# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3976 use iso_fortran_env, only: output_unit
3977# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3978
3979# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3980 print *, 'm_rhs.fpp:341: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
3981# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3982
3983# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3984 call flush (output_unit)
3985# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3986 end block
3987# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3988#endif
3989# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3990
3991# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3992
3993# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3994#if defined(MFC_OpenACC)
3995# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3996!$acc enter data copyin(dq_prim_dy_qp(1))
3997# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3998#elif defined(MFC_OpenMP)
3999# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4000!$omp target enter data map(to:dq_prim_dy_qp(1))
4001# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4002#endif
4003# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4004
4005# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4006#if defined(MFC_OpenACC)
4007# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4008!$acc enter data copyin(dq_prim_dy_qp(1)%vf)
4009# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4010#elif defined(MFC_OpenMP)
4011# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4012!$omp target enter data map(to:dq_prim_dy_qp(1)%vf)
4013# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4014#endif
4015# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4016 if (allocated(dq_prim_dy_qp(1)%vf)) then
4017# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4018 do macros_setup_vfs_i = lbound(dq_prim_dy_qp(1)%vf, 1), ubound(dq_prim_dy_qp(1)%vf, 1)
4019# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4020 if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
4021# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4022
4023# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4024#if defined(MFC_OpenACC)
4025# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4026!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i))
4027# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4028#elif defined(MFC_OpenMP)
4029# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4030!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i))
4031# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4032#endif
4033# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4034
4035# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4036#if defined(MFC_OpenACC)
4037# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4038!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)
4039# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4040#elif defined(MFC_OpenMP)
4041# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4042!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)
4043# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4044#endif
4045# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4046 end if
4047# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4048 end do
4049# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4050 end if
4051# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4052 end block
4053# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4054#endif
4055
4056 if (p > 0) then
4057 do l = eqn_idx%mom%beg, eqn_idx%mom%end
4058#ifdef MFC_DEBUG
4059# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4060 block
4061# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4062 use iso_fortran_env, only: output_unit
4063# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4064
4065# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4066 print *, 'm_rhs.fpp:345: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
4067# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4068
4069# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4070 call flush (output_unit)
4071# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4072 end block
4073# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4074#endif
4075# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4076 allocate (dq_prim_dz_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
4077# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4078
4079# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4080
4081# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4082#if defined(MFC_OpenACC)
4083# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4084!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf)
4085# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4086#elif defined(MFC_OpenMP)
4087# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4088!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf(l)%sf)
4089# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4090#endif
4091# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4092 end do
4093#ifdef _CRAYFTN
4094# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4095 block
4096# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4097 integer :: macros_setup_vfs_i
4098# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4099
4100# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4101#ifdef MFC_DEBUG
4102# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4103 block
4104# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4105 use iso_fortran_env, only: output_unit
4106# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4107
4108# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4109 print *, 'm_rhs.fpp:348: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
4110# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4111
4112# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4113 call flush (output_unit)
4114# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4115 end block
4116# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4117#endif
4118# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4119
4120# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4121
4122# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4123#if defined(MFC_OpenACC)
4124# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4125!$acc enter data copyin(dq_prim_dz_qp(1))
4126# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4127#elif defined(MFC_OpenMP)
4128# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4129!$omp target enter data map(to:dq_prim_dz_qp(1))
4130# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4131#endif
4132# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4133
4134# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4135#if defined(MFC_OpenACC)
4136# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4137!$acc enter data copyin(dq_prim_dz_qp(1)%vf)
4138# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4139#elif defined(MFC_OpenMP)
4140# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4141!$omp target enter data map(to:dq_prim_dz_qp(1)%vf)
4142# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4143#endif
4144# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4145 if (allocated(dq_prim_dz_qp(1)%vf)) then
4146# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4147 do macros_setup_vfs_i = lbound(dq_prim_dz_qp(1)%vf, 1), ubound(dq_prim_dz_qp(1)%vf, 1)
4148# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4149 if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
4150# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4151
4152# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4153#if defined(MFC_OpenACC)
4154# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4155!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i))
4156# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4157#elif defined(MFC_OpenMP)
4158# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4159!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i))
4160# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4161#endif
4162# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4163
4164# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4165#if defined(MFC_OpenACC)
4166# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4167!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)
4168# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4169#elif defined(MFC_OpenMP)
4170# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4171!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)
4172# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4173#endif
4174# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4175 end if
4176# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4177 end do
4178# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4179 end if
4180# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4181 end block
4182# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4183#endif
4184 end if
4185 end if
4186
4187 do i = 1, num_dims
4188#ifdef MFC_DEBUG
4189# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4190 block
4191# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4192 use iso_fortran_env, only: output_unit
4193# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4194
4195# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4196 print *, 'm_rhs.fpp:353: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
4197# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4198
4199# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4200 call flush (output_unit)
4201# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4202 end block
4203# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4204#endif
4205# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4206 allocate (dql_prim_dx_n(i)%vf(1:sys_size))
4207# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4208
4209# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4210
4211# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4212#if defined(MFC_OpenACC)
4213# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4214!$acc enter data create(dqL_prim_dx_n(i)%vf)
4215# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4216#elif defined(MFC_OpenMP)
4217# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4218!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf)
4219# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4220#endif
4221#ifdef MFC_DEBUG
4222# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4223 block
4224# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4225 use iso_fortran_env, only: output_unit
4226# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4227
4228# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4229 print *, 'm_rhs.fpp:354: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
4230# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4231
4232# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4233 call flush (output_unit)
4234# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4235 end block
4236# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4237#endif
4238# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4239 allocate (dql_prim_dy_n(i)%vf(1:sys_size))
4240# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4241
4242# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4243
4244# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4245#if defined(MFC_OpenACC)
4246# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4247!$acc enter data create(dqL_prim_dy_n(i)%vf)
4248# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4249#elif defined(MFC_OpenMP)
4250# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4251!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf)
4252# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4253#endif
4254#ifdef MFC_DEBUG
4255# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4256 block
4257# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4258 use iso_fortran_env, only: output_unit
4259# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4260
4261# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4262 print *, 'm_rhs.fpp:355: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
4263# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4264
4265# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4266 call flush (output_unit)
4267# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4268 end block
4269# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4270#endif
4271# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4272 allocate (dql_prim_dz_n(i)%vf(1:sys_size))
4273# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4274
4275# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4276
4277# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4278#if defined(MFC_OpenACC)
4279# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4280!$acc enter data create(dqL_prim_dz_n(i)%vf)
4281# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4282#elif defined(MFC_OpenMP)
4283# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4284!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf)
4285# 355 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4286#endif
4287#ifdef MFC_DEBUG
4288# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4289 block
4290# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4291 use iso_fortran_env, only: output_unit
4292# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4293
4294# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4295 print *, 'm_rhs.fpp:356: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
4296# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4297
4298# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4299 call flush (output_unit)
4300# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4301 end block
4302# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4303#endif
4304# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4305 allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
4306# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4307
4308# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4309
4310# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4311#if defined(MFC_OpenACC)
4312# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4313!$acc enter data create(dqR_prim_dx_n(i)%vf)
4314# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4315#elif defined(MFC_OpenMP)
4316# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4317!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf)
4318# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4319#endif
4320#ifdef MFC_DEBUG
4321# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4322 block
4323# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4324 use iso_fortran_env, only: output_unit
4325# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4326
4327# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4328 print *, 'm_rhs.fpp:357: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
4329# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4330
4331# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4332 call flush (output_unit)
4333# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4334 end block
4335# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4336#endif
4337# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4338 allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
4339# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4340
4341# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4342
4343# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4344#if defined(MFC_OpenACC)
4345# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4346!$acc enter data create(dqR_prim_dy_n(i)%vf)
4347# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4348#elif defined(MFC_OpenMP)
4349# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4350!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf)
4351# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4352#endif
4353#ifdef MFC_DEBUG
4354# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4355 block
4356# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4357 use iso_fortran_env, only: output_unit
4358# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4359
4360# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4361 print *, 'm_rhs.fpp:358: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
4362# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4363
4364# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4365 call flush (output_unit)
4366# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4367 end block
4368# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4369#endif
4370# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4371 allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
4372# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4373
4374# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4375
4376# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4377#if defined(MFC_OpenACC)
4378# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4379!$acc enter data create(dqR_prim_dz_n(i)%vf)
4380# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4381#elif defined(MFC_OpenMP)
4382# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4383!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf)
4384# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4385#endif
4386 end do
4387
4388 do i = 1, num_dims
4389 do l = eqn_idx%mom%beg, eqn_idx%mom%end
4390#ifdef MFC_DEBUG
4391# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4392 block
4393# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4394 use iso_fortran_env, only: output_unit
4395# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4396
4397# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4398 print *, 'm_rhs.fpp:363: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
4399# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4400
4401# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4402 call flush (output_unit)
4403# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4404 end block
4405# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4406#endif
4407# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4408 allocate (dql_prim_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
4409# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4410
4411# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4412
4413# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4414#if defined(MFC_OpenACC)
4415# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4416!$acc enter data create(dqL_prim_dx_n(i)%vf(l)%sf)
4417# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4418#elif defined(MFC_OpenMP)
4419# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4420!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf(l)%sf)
4421# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4422#endif
4423# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4424#ifdef MFC_DEBUG
4425# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4426 block
4427# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4428 use iso_fortran_env, only: output_unit
4429# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4430
4431# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4432 print *, 'm_rhs.fpp:365: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
4433# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4434
4435# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4436 call flush (output_unit)
4437# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4438 end block
4439# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4440#endif
4441# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4442 allocate (dqr_prim_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
4443# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4444
4445# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4446
4447# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4448#if defined(MFC_OpenACC)
4449# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4450!$acc enter data create(dqR_prim_dx_n(i)%vf(l)%sf)
4451# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4452#elif defined(MFC_OpenMP)
4453# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4454!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf(l)%sf)
4455# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4456#endif
4457# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4458 end do
4459
4460 if (n > 0) then
4461 do l = eqn_idx%mom%beg, eqn_idx%mom%end
4462#ifdef MFC_DEBUG
4463# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4464 block
4465# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4466 use iso_fortran_env, only: output_unit
4467# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4468
4469# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4470 print *, 'm_rhs.fpp:371: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
4471# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4472
4473# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4474 call flush (output_unit)
4475# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4476 end block
4477# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4478#endif
4479# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4480 allocate (dql_prim_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
4481# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4482
4483# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4484
4485# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4486#if defined(MFC_OpenACC)
4487# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4488!$acc enter data create(dqL_prim_dy_n(i)%vf(l)%sf)
4489# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4490#elif defined(MFC_OpenMP)
4491# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4492!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf(l)%sf)
4493# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4494#endif
4495# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4496#ifdef MFC_DEBUG
4497# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4498 block
4499# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4500 use iso_fortran_env, only: output_unit
4501# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4502
4503# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4504 print *, 'm_rhs.fpp:373: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
4505# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4506
4507# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4508 call flush (output_unit)
4509# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4510 end block
4511# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4512#endif
4513# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4514 allocate (dqr_prim_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
4515# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4516
4517# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4518
4519# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4520#if defined(MFC_OpenACC)
4521# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4522!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf)
4523# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4524#elif defined(MFC_OpenMP)
4525# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4526!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf(l)%sf)
4527# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4528#endif
4529# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4530 end do
4531 end if
4532
4533 if (p > 0) then
4534 do l = eqn_idx%mom%beg, eqn_idx%mom%end
4535#ifdef MFC_DEBUG
4536# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4537 block
4538# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4539 use iso_fortran_env, only: output_unit
4540# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4541
4542# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4543 print *, 'm_rhs.fpp:380: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
4544# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4545
4546# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4547 call flush (output_unit)
4548# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4549 end block
4550# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4551#endif
4552# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4553 allocate (dql_prim_dz_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
4554# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4555
4556# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4557
4558# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4559#if defined(MFC_OpenACC)
4560# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4561!$acc enter data create(dqL_prim_dz_n(i)%vf(l)%sf)
4562# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4563#elif defined(MFC_OpenMP)
4564# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4565!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf(l)%sf)
4566# 380 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4567#endif
4568# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4569#ifdef MFC_DEBUG
4570# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4571 block
4572# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4573 use iso_fortran_env, only: output_unit
4574# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4575
4576# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4577 print *, 'm_rhs.fpp:382: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
4578# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4579
4580# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4581 call flush (output_unit)
4582# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4583 end block
4584# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4585#endif
4586# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4587 allocate (dqr_prim_dz_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
4588# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4589
4590# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4591
4592# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4593#if defined(MFC_OpenACC)
4594# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4595!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf)
4596# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4597#elif defined(MFC_OpenMP)
4598# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4599!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf(l)%sf)
4600# 382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4601#endif
4602# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4603 end do
4604 end if
4605
4606#ifdef _CRAYFTN
4607# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4608 block
4609# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4610 integer :: macros_setup_vfs_i
4611# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4612
4613# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4614#ifdef MFC_DEBUG
4615# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4616 block
4617# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4618 use iso_fortran_env, only: output_unit
4619# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4620
4621# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4622 print *, 'm_rhs.fpp:387: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
4623# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4624
4625# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4626 call flush (output_unit)
4627# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4628 end block
4629# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4630#endif
4631# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4632
4633# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4634
4635# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4636#if defined(MFC_OpenACC)
4637# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4638!$acc enter data copyin(dqL_prim_dx_n(i))
4639# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4640#elif defined(MFC_OpenMP)
4641# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4642!$omp target enter data map(to:dqL_prim_dx_n(i))
4643# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4644#endif
4645# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4646
4647# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4648#if defined(MFC_OpenACC)
4649# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4650!$acc enter data copyin(dqL_prim_dx_n(i)%vf)
4651# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4652#elif defined(MFC_OpenMP)
4653# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4654!$omp target enter data map(to:dqL_prim_dx_n(i)%vf)
4655# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4656#endif
4657# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4658 if (allocated(dql_prim_dx_n(i)%vf)) then
4659# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4660 do macros_setup_vfs_i = lbound(dql_prim_dx_n(i)%vf, 1), ubound(dql_prim_dx_n(i)%vf, 1)
4661# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4662 if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
4663# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4664
4665# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4666#if defined(MFC_OpenACC)
4667# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4668!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i))
4669# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4670#elif defined(MFC_OpenMP)
4671# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4672!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i))
4673# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4674#endif
4675# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4676
4677# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4678#if defined(MFC_OpenACC)
4679# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4680!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
4681# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4682#elif defined(MFC_OpenMP)
4683# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4684!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
4685# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4686#endif
4687# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4688 end if
4689# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4690 end do
4691# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4692 end if
4693# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4694
4695# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4696#if defined(MFC_OpenACC)
4697# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4698!$acc enter data copyin(dqL_prim_dy_n(i))
4699# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4700#elif defined(MFC_OpenMP)
4701# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4702!$omp target enter data map(to:dqL_prim_dy_n(i))
4703# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4704#endif
4705# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4706
4707# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4708#if defined(MFC_OpenACC)
4709# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4710!$acc enter data copyin(dqL_prim_dy_n(i)%vf)
4711# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4712#elif defined(MFC_OpenMP)
4713# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4714!$omp target enter data map(to:dqL_prim_dy_n(i)%vf)
4715# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4716#endif
4717# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4718 if (allocated(dql_prim_dy_n(i)%vf)) then
4719# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4720 do macros_setup_vfs_i = lbound(dql_prim_dy_n(i)%vf, 1), ubound(dql_prim_dy_n(i)%vf, 1)
4721# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4722 if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
4723# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4724
4725# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4726#if defined(MFC_OpenACC)
4727# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4728!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i))
4729# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4730#elif defined(MFC_OpenMP)
4731# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4732!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i))
4733# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4734#endif
4735# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4736
4737# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4738#if defined(MFC_OpenACC)
4739# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4740!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
4741# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4742#elif defined(MFC_OpenMP)
4743# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4744!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
4745# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4746#endif
4747# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4748 end if
4749# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4750 end do
4751# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4752 end if
4753# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4754
4755# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4756#if defined(MFC_OpenACC)
4757# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4758!$acc enter data copyin(dqL_prim_dz_n(i))
4759# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4760#elif defined(MFC_OpenMP)
4761# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4762!$omp target enter data map(to:dqL_prim_dz_n(i))
4763# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4764#endif
4765# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4766
4767# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4768#if defined(MFC_OpenACC)
4769# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4770!$acc enter data copyin(dqL_prim_dz_n(i)%vf)
4771# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4772#elif defined(MFC_OpenMP)
4773# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4774!$omp target enter data map(to:dqL_prim_dz_n(i)%vf)
4775# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4776#endif
4777# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4778 if (allocated(dql_prim_dz_n(i)%vf)) then
4779# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4780 do macros_setup_vfs_i = lbound(dql_prim_dz_n(i)%vf, 1), ubound(dql_prim_dz_n(i)%vf, 1)
4781# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4782 if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
4783# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4784
4785# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4786#if defined(MFC_OpenACC)
4787# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4788!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i))
4789# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4790#elif defined(MFC_OpenMP)
4791# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4792!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i))
4793# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4794#endif
4795# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4796
4797# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4798#if defined(MFC_OpenACC)
4799# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4800!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
4801# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4802#elif defined(MFC_OpenMP)
4803# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4804!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
4805# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4806#endif
4807# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4808 end if
4809# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4810 end do
4811# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4812 end if
4813# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4814 end block
4815# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4816#endif
4817#ifdef _CRAYFTN
4818# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4819 block
4820# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4821 integer :: macros_setup_vfs_i
4822# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4823
4824# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4825#ifdef MFC_DEBUG
4826# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4827 block
4828# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4829 use iso_fortran_env, only: output_unit
4830# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4831
4832# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4833 print *, 'm_rhs.fpp:388: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
4834# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4835
4836# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4837 call flush (output_unit)
4838# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4839 end block
4840# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4841#endif
4842# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4843
4844# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4845
4846# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4847#if defined(MFC_OpenACC)
4848# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4849!$acc enter data copyin(dqR_prim_dx_n(i))
4850# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4851#elif defined(MFC_OpenMP)
4852# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4853!$omp target enter data map(to:dqR_prim_dx_n(i))
4854# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4855#endif
4856# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4857
4858# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4859#if defined(MFC_OpenACC)
4860# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4861!$acc enter data copyin(dqR_prim_dx_n(i)%vf)
4862# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4863#elif defined(MFC_OpenMP)
4864# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4865!$omp target enter data map(to:dqR_prim_dx_n(i)%vf)
4866# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4867#endif
4868# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4869 if (allocated(dqr_prim_dx_n(i)%vf)) then
4870# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4871 do macros_setup_vfs_i = lbound(dqr_prim_dx_n(i)%vf, 1), ubound(dqr_prim_dx_n(i)%vf, 1)
4872# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4873 if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
4874# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4875
4876# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4877#if defined(MFC_OpenACC)
4878# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4879!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i))
4880# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4881#elif defined(MFC_OpenMP)
4882# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4883!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i))
4884# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4885#endif
4886# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4887
4888# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4889#if defined(MFC_OpenACC)
4890# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4891!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
4892# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4893#elif defined(MFC_OpenMP)
4894# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4895!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
4896# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4897#endif
4898# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4899 end if
4900# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4901 end do
4902# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4903 end if
4904# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4905
4906# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4907#if defined(MFC_OpenACC)
4908# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4909!$acc enter data copyin(dqR_prim_dy_n(i))
4910# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4911#elif defined(MFC_OpenMP)
4912# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4913!$omp target enter data map(to:dqR_prim_dy_n(i))
4914# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4915#endif
4916# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4917
4918# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4919#if defined(MFC_OpenACC)
4920# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4921!$acc enter data copyin(dqR_prim_dy_n(i)%vf)
4922# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4923#elif defined(MFC_OpenMP)
4924# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4925!$omp target enter data map(to:dqR_prim_dy_n(i)%vf)
4926# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4927#endif
4928# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4929 if (allocated(dqr_prim_dy_n(i)%vf)) then
4930# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4931 do macros_setup_vfs_i = lbound(dqr_prim_dy_n(i)%vf, 1), ubound(dqr_prim_dy_n(i)%vf, 1)
4932# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4933 if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
4934# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4935
4936# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4937#if defined(MFC_OpenACC)
4938# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4939!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i))
4940# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4941#elif defined(MFC_OpenMP)
4942# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4943!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i))
4944# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4945#endif
4946# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4947
4948# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4949#if defined(MFC_OpenACC)
4950# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4951!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
4952# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4953#elif defined(MFC_OpenMP)
4954# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4955!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
4956# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4957#endif
4958# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4959 end if
4960# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4961 end do
4962# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4963 end if
4964# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4965
4966# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4967#if defined(MFC_OpenACC)
4968# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4969!$acc enter data copyin(dqR_prim_dz_n(i))
4970# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4971#elif defined(MFC_OpenMP)
4972# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4973!$omp target enter data map(to:dqR_prim_dz_n(i))
4974# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4975#endif
4976# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4977
4978# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4979#if defined(MFC_OpenACC)
4980# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4981!$acc enter data copyin(dqR_prim_dz_n(i)%vf)
4982# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4983#elif defined(MFC_OpenMP)
4984# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4985!$omp target enter data map(to:dqR_prim_dz_n(i)%vf)
4986# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4987#endif
4988# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4989 if (allocated(dqr_prim_dz_n(i)%vf)) then
4990# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4991 do macros_setup_vfs_i = lbound(dqr_prim_dz_n(i)%vf, 1), ubound(dqr_prim_dz_n(i)%vf, 1)
4992# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4993 if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
4994# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4995
4996# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4997#if defined(MFC_OpenACC)
4998# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4999!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i))
5000# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5001#elif defined(MFC_OpenMP)
5002# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5003!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i))
5004# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5005#endif
5006# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5007
5008# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5009#if defined(MFC_OpenACC)
5010# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5011!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
5012# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5013#elif defined(MFC_OpenMP)
5014# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5015!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
5016# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5017#endif
5018# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5019 end if
5020# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5021 end do
5022# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5023 end if
5024# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5025 end block
5026# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5027#endif
5028 end do
5029
5030 if (weno_re_flux) then
5031#ifdef MFC_DEBUG
5032# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5033 block
5034# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5035 use iso_fortran_env, only: output_unit
5036# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5037
5038# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5039 print *, 'm_rhs.fpp:392: ', '@:ALLOCATE(dqL_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))'
5040# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5041
5042# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5043 call flush (output_unit)
5044# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5045 end block
5046# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5047#endif
5048# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5049 allocate (dql_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))
5050# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5051
5052# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5053
5054# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5055#if defined(MFC_OpenACC)
5056# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5057!$acc enter data create(dqL_rsx_vf)
5058# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5059#elif defined(MFC_OpenMP)
5060# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5061!$omp target enter data map(always,alloc:dqL_rsx_vf)
5062# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5063#endif
5064# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5065#ifdef MFC_DEBUG
5066# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5067 block
5068# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5069 use iso_fortran_env, only: output_unit
5070# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5071
5072# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5073 print *, 'm_rhs.fpp:394: ', '@:ALLOCATE(dqR_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))'
5074# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5075
5076# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5077 call flush (output_unit)
5078# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5079 end block
5080# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5081#endif
5082# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5083 allocate (dqr_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))
5084# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5085
5086# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5087
5088# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5089#if defined(MFC_OpenACC)
5090# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5091!$acc enter data create(dqR_rsx_vf)
5092# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5093#elif defined(MFC_OpenMP)
5094# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5095!$omp target enter data map(always,alloc:dqR_rsx_vf)
5096# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5097#endif
5098# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5099 end if
5100 else
5101#ifdef MFC_DEBUG
5102# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5103 block
5104# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5105 use iso_fortran_env, only: output_unit
5106# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5107
5108# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5109 print *, 'm_rhs.fpp:398: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
5110# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5111
5112# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5113 call flush (output_unit)
5114# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5115 end block
5116# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5117#endif
5118# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5119 allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
5120# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5121
5122# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5123
5124# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5125#if defined(MFC_OpenACC)
5126# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5127!$acc enter data create(dq_prim_dx_qp(1)%vf)
5128# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5129#elif defined(MFC_OpenMP)
5130# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5131!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf)
5132# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5133#endif
5134#ifdef MFC_DEBUG
5135# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5136 block
5137# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5138 use iso_fortran_env, only: output_unit
5139# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5140
5141# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5142 print *, 'm_rhs.fpp:399: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
5143# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5144
5145# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5146 call flush (output_unit)
5147# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5148 end block
5149# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5150#endif
5151# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5152 allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
5153# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5154
5155# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5156
5157# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5158#if defined(MFC_OpenACC)
5159# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5160!$acc enter data create(dq_prim_dy_qp(1)%vf)
5161# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5162#elif defined(MFC_OpenMP)
5163# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5164!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf)
5165# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5166#endif
5167#ifdef MFC_DEBUG
5168# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5169 block
5170# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5171 use iso_fortran_env, only: output_unit
5172# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5173
5174# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5175 print *, 'm_rhs.fpp:400: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
5176# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5177
5178# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5179 call flush (output_unit)
5180# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5181 end block
5182# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5183#endif
5184# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5185 allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
5186# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5187
5188# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5189
5190# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5191#if defined(MFC_OpenACC)
5192# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5193!$acc enter data create(dq_prim_dz_qp(1)%vf)
5194# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5195#elif defined(MFC_OpenMP)
5196# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5197!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf)
5198# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5199#endif
5200
5201 do l = eqn_idx%mom%beg, eqn_idx%mom%end
5202#ifdef MFC_DEBUG
5203# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5204 block
5205# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5206 use iso_fortran_env, only: output_unit
5207# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5208
5209# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5210 print *, 'm_rhs.fpp:403: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))'
5211# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5212
5213# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5214 call flush (output_unit)
5215# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5216 end block
5217# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5218#endif
5219# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5220 allocate (dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))
5221# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5222
5223# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5224
5225# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5226#if defined(MFC_OpenACC)
5227# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5228!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf)
5229# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5230#elif defined(MFC_OpenMP)
5231# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5232!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf(l)%sf)
5233# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5234#endif
5235#ifdef _CRAYFTN
5236# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5237 block
5238# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5239 integer :: macros_setup_vfs_i
5240# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5241
5242# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5243#ifdef MFC_DEBUG
5244# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5245 block
5246# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5247 use iso_fortran_env, only: output_unit
5248# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5249
5250# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5251 print *, 'm_rhs.fpp:404: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
5252# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5253
5254# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5255 call flush (output_unit)
5256# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5257 end block
5258# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5259#endif
5260# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5261
5262# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5263
5264# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5265#if defined(MFC_OpenACC)
5266# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5267!$acc enter data copyin(dq_prim_dx_qp(1))
5268# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5269#elif defined(MFC_OpenMP)
5270# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5271!$omp target enter data map(to:dq_prim_dx_qp(1))
5272# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5273#endif
5274# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5275
5276# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5277#if defined(MFC_OpenACC)
5278# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5279!$acc enter data copyin(dq_prim_dx_qp(1)%vf)
5280# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5281#elif defined(MFC_OpenMP)
5282# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5283!$omp target enter data map(to:dq_prim_dx_qp(1)%vf)
5284# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5285#endif
5286# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5287 if (allocated(dq_prim_dx_qp(1)%vf)) then
5288# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5289 do macros_setup_vfs_i = lbound(dq_prim_dx_qp(1)%vf, 1), ubound(dq_prim_dx_qp(1)%vf, 1)
5290# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5291 if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
5292# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5293
5294# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5295#if defined(MFC_OpenACC)
5296# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5297!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i))
5298# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5299#elif defined(MFC_OpenMP)
5300# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5301!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i))
5302# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5303#endif
5304# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5305
5306# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5307#if defined(MFC_OpenACC)
5308# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5309!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)
5310# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5311#elif defined(MFC_OpenMP)
5312# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5313!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)
5314# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5315#endif
5316# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5317 end if
5318# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5319 end do
5320# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5321 end if
5322# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5323 end block
5324# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5325#endif
5326 if (n > 0) then
5327#ifdef MFC_DEBUG
5328# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5329 block
5330# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5331 use iso_fortran_env, only: output_unit
5332# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5333
5334# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5335 print *, 'm_rhs.fpp:406: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))'
5336# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5337
5338# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5339 call flush (output_unit)
5340# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5341 end block
5342# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5343#endif
5344# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5345 allocate (dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))
5346# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5347
5348# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5349
5350# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5351#if defined(MFC_OpenACC)
5352# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5353!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf)
5354# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5355#elif defined(MFC_OpenMP)
5356# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5357!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf(l)%sf)
5358# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5359#endif
5360#ifdef _CRAYFTN
5361# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5362 block
5363# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5364 integer :: macros_setup_vfs_i
5365# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5366
5367# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5368#ifdef MFC_DEBUG
5369# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5370 block
5371# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5372 use iso_fortran_env, only: output_unit
5373# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5374
5375# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5376 print *, 'm_rhs.fpp:407: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
5377# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5378
5379# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5380 call flush (output_unit)
5381# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5382 end block
5383# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5384#endif
5385# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5386
5387# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5388
5389# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5390#if defined(MFC_OpenACC)
5391# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5392!$acc enter data copyin(dq_prim_dy_qp(1))
5393# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5394#elif defined(MFC_OpenMP)
5395# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5396!$omp target enter data map(to:dq_prim_dy_qp(1))
5397# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5398#endif
5399# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5400
5401# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5402#if defined(MFC_OpenACC)
5403# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5404!$acc enter data copyin(dq_prim_dy_qp(1)%vf)
5405# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5406#elif defined(MFC_OpenMP)
5407# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5408!$omp target enter data map(to:dq_prim_dy_qp(1)%vf)
5409# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5410#endif
5411# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5412 if (allocated(dq_prim_dy_qp(1)%vf)) then
5413# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5414 do macros_setup_vfs_i = lbound(dq_prim_dy_qp(1)%vf, 1), ubound(dq_prim_dy_qp(1)%vf, 1)
5415# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5416 if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
5417# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5418
5419# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5420#if defined(MFC_OpenACC)
5421# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5422!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i))
5423# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5424#elif defined(MFC_OpenMP)
5425# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5426!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i))
5427# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5428#endif
5429# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5430
5431# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5432#if defined(MFC_OpenACC)
5433# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5434!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)
5435# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5436#elif defined(MFC_OpenMP)
5437# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5438!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)
5439# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5440#endif
5441# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5442 end if
5443# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5444 end do
5445# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5446 end if
5447# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5448 end block
5449# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5450#endif
5451 if (p > 0) then
5452#ifdef MFC_DEBUG
5453# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5454 block
5455# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5456 use iso_fortran_env, only: output_unit
5457# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5458
5459# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5460 print *, 'm_rhs.fpp:409: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))'
5461# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5462
5463# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5464 call flush (output_unit)
5465# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5466 end block
5467# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5468#endif
5469# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5470 allocate (dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))
5471# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5472
5473# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5474
5475# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5476#if defined(MFC_OpenACC)
5477# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5478!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf)
5479# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5480#elif defined(MFC_OpenMP)
5481# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5482!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf(l)%sf)
5483# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5484#endif
5485#ifdef _CRAYFTN
5486# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5487 block
5488# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5489 integer :: macros_setup_vfs_i
5490# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5491
5492# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5493#ifdef MFC_DEBUG
5494# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5495 block
5496# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5497 use iso_fortran_env, only: output_unit
5498# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5499
5500# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5501 print *, 'm_rhs.fpp:410: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
5502# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5503
5504# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5505 call flush (output_unit)
5506# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5507 end block
5508# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5509#endif
5510# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5511
5512# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5513
5514# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5515#if defined(MFC_OpenACC)
5516# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5517!$acc enter data copyin(dq_prim_dz_qp(1))
5518# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5519#elif defined(MFC_OpenMP)
5520# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5521!$omp target enter data map(to:dq_prim_dz_qp(1))
5522# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5523#endif
5524# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5525
5526# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5527#if defined(MFC_OpenACC)
5528# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5529!$acc enter data copyin(dq_prim_dz_qp(1)%vf)
5530# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5531#elif defined(MFC_OpenMP)
5532# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5533!$omp target enter data map(to:dq_prim_dz_qp(1)%vf)
5534# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5535#endif
5536# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5537 if (allocated(dq_prim_dz_qp(1)%vf)) then
5538# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5539 do macros_setup_vfs_i = lbound(dq_prim_dz_qp(1)%vf, 1), ubound(dq_prim_dz_qp(1)%vf, 1)
5540# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5541 if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
5542# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5543
5544# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5545#if defined(MFC_OpenACC)
5546# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5547!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i))
5548# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5549#elif defined(MFC_OpenMP)
5550# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5551!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i))
5552# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5553#endif
5554# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5555
5556# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5557#if defined(MFC_OpenACC)
5558# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5559!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)
5560# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5561#elif defined(MFC_OpenMP)
5562# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5563!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)
5564# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5565#endif
5566# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5567 end if
5568# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5569 end do
5570# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5571 end if
5572# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5573 end block
5574# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5575#endif
5576 end if
5577 end if
5578 end do
5579 end if
5580
5581
5582# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5583
5584# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5585#if defined(MFC_OpenACC)
5586# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5587!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l, id)
5588# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5589#elif defined(MFC_OpenMP)
5590# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5591
5592# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5593
5594# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5595
5596# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5597!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l, id)
5598# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5599#endif
5600 do id = 1, num_dims
5601 do i = 1, sys_size
5602 do l = idwbuff(3)%beg, idwbuff(3)%end
5603 do k = idwbuff(2)%beg, idwbuff(2)%end
5604 do j = idwbuff(1)%beg, idwbuff(1)%end
5605 flux_gsrc_n(id)%vf(i)%sf(j, k, l) = 0._wp
5606 end do
5607 end do
5608 end do
5609 end do
5610 end do
5611
5612# 428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5613#if defined(MFC_OpenACC)
5614# 428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5615!$acc end parallel loop
5616# 428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5617#elif defined(MFC_OpenMP)
5618# 428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5619
5620# 428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5621!$omp end target teams loop
5622# 428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5623#endif
5624 end if
5625
5626 if (qbmm) then
5627#ifdef MFC_DEBUG
5628# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5629 block
5630# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5631 use iso_fortran_env, only: output_unit
5632# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5633
5634# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5635 print *, 'm_rhs.fpp:432: ', '@:ALLOCATE(mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))'
5636# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5637
5638# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5639 call flush (output_unit)
5640# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5641 end block
5642# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5643#endif
5644# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5645 allocate (mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))
5646# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5647
5648# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5649
5650# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5651
5652# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5653#if defined(MFC_OpenACC)
5654# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5655!$acc enter data create(mom_sp, mom_3d)
5656# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5657#elif defined(MFC_OpenMP)
5658# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5659!$omp target enter data map(always,alloc:mom_sp, mom_3d)
5660# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5661#endif
5662
5663 do i = 0, 2
5664 do j = 0, 2
5665 do k = 1, nb
5666#ifdef MFC_DEBUG
5667# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5668 block
5669# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5670 use iso_fortran_env, only: output_unit
5671# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5672
5673# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5674 print *, 'm_rhs.fpp:437: ', '@:ALLOCATE(mom_3d(i, j, k)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
5675# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5676
5677# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5678 call flush (output_unit)
5679# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5680 end block
5681# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5682#endif
5683# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5684 allocate (mom_3d(i, j, k)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
5685# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5686
5687# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5688
5689# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5690#if defined(MFC_OpenACC)
5691# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5692!$acc enter data create(mom_3d(i, j, k)%sf)
5693# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5694#elif defined(MFC_OpenMP)
5695# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5696!$omp target enter data map(always,alloc:mom_3d(i, j, k)%sf)
5697# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5698#endif
5699# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5700#ifdef _CRAYFTN
5701# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5702 block
5703# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5704#ifdef MFC_DEBUG
5705# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5706 block
5707# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5708 use iso_fortran_env, only: output_unit
5709# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5710
5711# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5712 print *, 'm_rhs.fpp:439: ', '@:ACC_SETUP_SFs(mom_3d(i, j, k))'
5713# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5714
5715# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5716 call flush (output_unit)
5717# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5718 end block
5719# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5720#endif
5721# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5722
5723# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5724
5725# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5726#if defined(MFC_OpenACC)
5727# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5728!$acc enter data copyin(mom_3d(i, j, k))
5729# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5730#elif defined(MFC_OpenMP)
5731# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5732!$omp target enter data map(to:mom_3d(i, j, k))
5733# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5734#endif
5735# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5736 if (associated(mom_3d(i, j, k)%sf)) then
5737# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5738
5739# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5740#if defined(MFC_OpenACC)
5741# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5742!$acc enter data copyin(mom_3d(i, j, k)%sf)
5743# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5744#elif defined(MFC_OpenMP)
5745# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5746!$omp target enter data map(to:mom_3d(i, j, k)%sf)
5747# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5748#endif
5749# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5750 end if
5751# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5752 end block
5753# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5754#endif
5755 end do
5756 end do
5757 end do
5758
5759 do i = 1, nmomsp
5760#ifdef MFC_DEBUG
5761# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5762 block
5763# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5764 use iso_fortran_env, only: output_unit
5765# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5766
5767# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5768 print *, 'm_rhs.fpp:445: ', '@:ALLOCATE(mom_sp(i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
5769# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5770
5771# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5772 call flush (output_unit)
5773# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5774 end block
5775# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5776#endif
5777# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5778 allocate (mom_sp(i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
5779# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5780
5781# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5782
5783# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5784#if defined(MFC_OpenACC)
5785# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5786!$acc enter data create(mom_sp(i)%sf)
5787# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5788#elif defined(MFC_OpenMP)
5789# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5790!$omp target enter data map(always,alloc:mom_sp(i)%sf)
5791# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5792#endif
5793# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5794#ifdef _CRAYFTN
5795# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5796 block
5797# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5798#ifdef MFC_DEBUG
5799# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5800 block
5801# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5802 use iso_fortran_env, only: output_unit
5803# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5804
5805# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5806 print *, 'm_rhs.fpp:447: ', '@:ACC_SETUP_SFs(mom_sp(i))'
5807# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5808
5809# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5810 call flush (output_unit)
5811# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5812 end block
5813# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5814#endif
5815# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5816
5817# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5818
5819# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5820#if defined(MFC_OpenACC)
5821# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5822!$acc enter data copyin(mom_sp(i))
5823# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5824#elif defined(MFC_OpenMP)
5825# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5826!$omp target enter data map(to:mom_sp(i))
5827# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5828#endif
5829# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5830 if (associated(mom_sp(i)%sf)) then
5831# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5832
5833# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5834#if defined(MFC_OpenACC)
5835# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5836!$acc enter data copyin(mom_sp(i)%sf)
5837# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5838#elif defined(MFC_OpenMP)
5839# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5840!$omp target enter data map(to:mom_sp(i)%sf)
5841# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5842#endif
5843# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5844 end if
5845# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5846 end block
5847# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5848#endif
5849 end do
5850 end if
5851
5852 if (mpp_lim .and. bubbles_euler) then
5853#ifdef MFC_DEBUG
5854# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5855 block
5856# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5857 use iso_fortran_env, only: output_unit
5858# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5859
5860# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5861 print *, 'm_rhs.fpp:452: ', '@:ALLOCATE(alf_sum%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
5862# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5863
5864# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5865 call flush (output_unit)
5866# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5867 end block
5868# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5869#endif
5870# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5871 allocate (alf_sum%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
5872# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5873
5874# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5875
5876# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5877#if defined(MFC_OpenACC)
5878# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5879!$acc enter data create(alf_sum%sf)
5880# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5881#elif defined(MFC_OpenMP)
5882# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5883!$omp target enter data map(always,alloc:alf_sum%sf)
5884# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5885#endif
5886 end if
5887 if (alt_soundspeed) then
5888#ifdef MFC_DEBUG
5889# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5890 block
5891# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5892 use iso_fortran_env, only: output_unit
5893# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5894
5895# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5896 print *, 'm_rhs.fpp:455: ', '@:ALLOCATE(blkmod1(0:m, 0:n, 0:p), blkmod2(0:m, 0:n, 0:p), alpha1(0:m, 0:n, 0:p), alpha2(0:m, 0:n, 0:p), Kterm(0:m, 0:n, 0:p))'
5897# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5898
5899# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5900 call flush (output_unit)
5901# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5902 end block
5903# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5904#endif
5905# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5906 allocate (blkmod1(0:m, 0:n, 0:p), blkmod2(0:m, 0:n, 0:p), alpha1(0:m, 0:n, 0:p), alpha2(0:m, 0:n, 0:p), kterm(0:m, 0:n, 0:p))
5907# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5908
5909# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5910
5911# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5912
5913# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5914
5915# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5916
5917# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5918
5919# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5920#if defined(MFC_OpenACC)
5921# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5922!$acc enter data create(blkmod1, blkmod2, alpha1, alpha2, Kterm)
5923# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5924#elif defined(MFC_OpenMP)
5925# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5926!$omp target enter data map(always,alloc:blkmod1, blkmod2, alpha1, alpha2, Kterm)
5927# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5928#endif
5929# 457 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5930 end if
5931
5932 call s_initialize_pressure_relaxation_module
5933
5934 end subroutine s_initialize_rhs_module
5935
5936 !> Compute the right-hand side of the semi-discrete governing equations for a single time stage
5937 impure subroutine s_compute_rhs(q_cons_vf, q_T_sf, q_prim_vf, bc_type, rhs_vf, pb_in, rhs_pb, mv_in, rhs_mv, t_step, &
5938
5939 & time_avg, stage)
5940
5941 type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
5942 type(scalar_field), intent(inout) :: q_t_sf
5943 type(scalar_field), dimension(sys_size), intent(inout) :: q_prim_vf
5944 type(integer_field), dimension(1:num_dims,1:2), intent(in) :: bc_type
5945 type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
5946 real(stp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: pb_in
5947
5948 ! TODO :: I think these other two variables need to be stp as well, but it doesn't compile like that right now
5949 real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: rhs_pb
5950 real(stp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: mv_in
5951 real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: rhs_mv
5952 integer, intent(in) :: t_step
5953 real(wp), intent(inout) :: time_avg
5954 integer, intent(in) :: stage
5955 real(wp) :: t_start, t_finish
5956 integer :: id
5957 integer(kind=8) :: i, j, k, l, q !< Generic loop iterators
5958
5959 ! RHS: halo exchange -> reconstruct -> Riemann solve -> flux difference -> source terms
5960
5961 call nvtxstartrange("COMPUTE-RHS")
5962
5963 call cpu_time(t_start)
5964
5965 if (.not. igr) then
5966 ! Association/Population of Working Variables
5967
5968# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5969
5970# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5971#if defined(MFC_OpenACC)
5972# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5973!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
5974# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5975#elif defined(MFC_OpenMP)
5976# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5977
5978# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5979
5980# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5981
5982# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5983!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
5984# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5985#endif
5986 do i = 1, sys_size
5987 do l = idwbuff(3)%beg, idwbuff(3)%end
5988 do k = idwbuff(2)%beg, idwbuff(2)%end
5989 do j = idwbuff(1)%beg, idwbuff(1)%end
5990 q_cons_qp%vf(i)%sf(j, k, l) = q_cons_vf(i)%sf(j, k, l)
5991 end do
5992 end do
5993 end do
5994 end do
5995
5996# 504 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5997#if defined(MFC_OpenACC)
5998# 504 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5999!$acc end parallel loop
6000# 504 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6001#elif defined(MFC_OpenMP)
6002# 504 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6003
6004# 504 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6005!$omp end target teams loop
6006# 504 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6007#endif
6008
6009 ! Converting Conservative to Primitive Variables
6010
6011 if (mpp_lim .and. bubbles_euler) then
6012
6013# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6014
6015# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6016#if defined(MFC_OpenACC)
6017# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6018!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
6019# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6020#elif defined(MFC_OpenMP)
6021# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6022
6023# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6024
6025# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6026
6027# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6028!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
6029# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6030#endif
6031 do l = idwbuff(3)%beg, idwbuff(3)%end
6032 do k = idwbuff(2)%beg, idwbuff(2)%end
6033 do j = idwbuff(1)%beg, idwbuff(1)%end
6034 alf_sum%sf(j, k, l) = 0._wp
6035
6036# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6037#if defined(MFC_OpenACC)
6038# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6039!$acc loop seq
6040# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6041#elif defined(MFC_OpenMP)
6042# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6043
6044# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6045#endif
6046 do i = eqn_idx%adv%beg, eqn_idx%adv%end - 1
6047 alf_sum%sf(j, k, l) = alf_sum%sf(j, k, l) + q_cons_qp%vf(i)%sf(j, k, l)
6048 end do
6049
6050# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6051#if defined(MFC_OpenACC)
6052# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6053!$acc loop seq
6054# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6055#elif defined(MFC_OpenMP)
6056# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6057
6058# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6059#endif
6060 do i = eqn_idx%adv%beg, eqn_idx%adv%end - 1
6061 q_cons_qp%vf(i)%sf(j, k, l) = q_cons_qp%vf(i)%sf(j, k, &
6062 & l)*(1._wp - q_cons_qp%vf(eqn_idx%alf)%sf(j, k, l))/alf_sum%sf(j, k, l)
6063 end do
6064 end do
6065 end do
6066 end do
6067
6068# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6069#if defined(MFC_OpenACC)
6070# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6071!$acc end parallel loop
6072# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6073#elif defined(MFC_OpenMP)
6074# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6075
6076# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6077!$omp end target teams loop
6078# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6079#endif
6080 end if
6081 end if
6082
6083 if (igr) then
6084 call nvtxstartrange("RHS-COMMUNICATION")
6085 call s_populate_variables_buffers(bc_type, q_cons_vf, pb_in, mv_in, q_t_sf)
6086 call nvtxendrange
6087 end if
6088 if (.not. igr) then
6089 call nvtxstartrange("RHS-CONVERT")
6090 call s_convert_conservative_to_primitive_variables(q_cons_qp%vf, q_t_sf, q_prim_qp%vf, idwint)
6091 call nvtxendrange
6092
6093 call nvtxstartrange("RHS-COMMUNICATION")
6094 call s_populate_variables_buffers(bc_type, q_prim_qp%vf, pb_in, mv_in, q_t_sf)
6095 call nvtxendrange
6096 end if
6097
6098 call nvtxstartrange("RHS-ELASTIC")
6099 if (hyperelasticity) call s_hyperelastic_rmt_stress_update(q_cons_qp%vf, q_prim_qp%vf)
6100 call nvtxendrange
6101
6102 if (cfl_dt) then
6103 if (mytime >= t_stop) return
6104 else
6105 if (t_step == t_step_stop) return
6106 end if
6107
6108 if (qbmm) call s_mom_inv(q_cons_qp%vf, q_prim_qp%vf, mom_sp, mom_3d, pb_in, rhs_pb, mv_in, rhs_mv, idwbuff(1), &
6109 & idwbuff(2), idwbuff(3))
6110
6111 if ((viscous .and. .not. igr)) then
6112 call nvtxstartrange("RHS-VISCOUS")
6113 call s_get_viscous(ql_rsx_vf, dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n, ql_prim, qr_rsx_vf, dqr_prim_dx_n, &
6114 & dqr_prim_dy_n, dqr_prim_dz_n, qr_prim, q_prim_qp, dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp, &
6115 & idwbuff(1), idwbuff(2), idwbuff(3))
6116 call nvtxendrange
6117 end if
6118
6119 if (surface_tension) then
6120 call nvtxstartrange("RHS-SURFACE-TENSION")
6121 call s_get_capillary(q_prim_qp%vf, bc_type)
6122 call nvtxendrange
6123 end if
6124
6125 if (int_comp == 2 .and. n > 0) then
6126 call nvtxstartrange("RHS-COMPRESSION-NORMALS")
6127 call s_compute_mthinc_normals(q_prim_qp%vf)
6128 call nvtxendrange
6129 end if
6130
6131 ! Loop over coordinate directions for dimensional splitting
6132 do id = 1, num_dims
6133 if (igr) then
6134 if (id == 1) then
6135
6136# 582 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6137
6138# 582 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6139#if defined(MFC_OpenACC)
6140# 582 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6141!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
6142# 582 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6143#elif defined(MFC_OpenMP)
6144# 582 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6145
6146# 582 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6147
6148# 582 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6149
6150# 582 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6151!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
6152# 582 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6153#endif
6154 do l = -1, p + 1
6155 do k = -1, n + 1
6156 do j = -1, m + 1
6157 do i = 1, sys_size
6158 rhs_vf(i)%sf(j, k, l) = 0._stp
6159 end do
6160 end do
6161 end do
6162 end do
6163
6164# 592 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6165#if defined(MFC_OpenACC)
6166# 592 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6167!$acc end parallel loop
6168# 592 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6169#elif defined(MFC_OpenMP)
6170# 592 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6171
6172# 592 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6173!$omp end target teams loop
6174# 592 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6175#endif
6176 end if
6177
6178 call nvtxstartrange("IGR_RIEMANN")
6179 call s_igr_riemann_solver(q_cons_vf, rhs_vf, id)
6180 call nvtxendrange
6181
6182 if (id == 1) then
6183 call nvtxstartrange("IGR_Jacobi")
6184 call s_igr_iterative_solve(q_cons_vf, bc_type, t_step)
6185 call nvtxendrange
6186
6187 call nvtxstartrange("IGR_SIGMA")
6188 call s_igr_sigma_x(q_cons_vf, rhs_vf)
6189 call nvtxendrange
6190 end if
6191 end if
6192 if (.not. igr) then
6193 ! Reconstructing Primitive/Conservative Variables
6194 call nvtxstartrange("RHS-RECONSTRUCTION")
6195
6196 if (.not. surface_tension) then
6197 if ((.not. weno_re_flux) .or. int_comp > 0) then
6198 ! Reconstruct densitiess
6199 iv%beg = 1; iv%end = sys_size
6200 call s_reconstruct_cell_boundary_values(q_prim_qp%vf(1:sys_size), ql_rsx_vf, qr_rsx_vf, id)
6201 else
6202 iv%beg = 1; iv%end = eqn_idx%cont%end
6203 call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
6204
6205 iv%beg = eqn_idx%mom%beg; iv%end = eqn_idx%mom%end; iglob = id
6206
6207# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6208#if defined(MFC_OpenACC)
6209# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6210!$acc update device(iv, iglob)
6211# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6212#elif defined(MFC_OpenMP)
6213# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6214!$omp target update to(iv, iglob)
6215# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6216#endif
6217
6218
6219# 625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6220
6221# 625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6222#if defined(MFC_OpenACC)
6223# 625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6224!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
6225# 625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6226#elif defined(MFC_OpenMP)
6227# 625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6228
6229# 625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6230
6231# 625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6232
6233# 625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6234!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
6235# 625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6236#endif
6237 do i = iv%beg, iv%end
6238 do l = idwbuff(3)%beg, idwbuff(3)%end
6239 do k = idwbuff(2)%beg, idwbuff(2)%end
6240 do j = idwbuff(1)%beg, idwbuff(1)%end
6241 ql_rsx_vf(j, k, l, i) = ql_prim(iglob)%vf(i)%sf(j, k, l)
6242 qr_rsx_vf(j, k, l, i) = qr_prim(iglob)%vf(i)%sf(j, k, l)
6243 end do
6244 end do
6245 end do
6246 end do
6247
6248# 636 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6249#if defined(MFC_OpenACC)
6250# 636 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6251!$acc end parallel loop
6252# 636 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6253#elif defined(MFC_OpenMP)
6254# 636 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6255
6256# 636 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6257!$omp end target teams loop
6258# 636 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6259#endif
6260
6261 iv%beg = eqn_idx%E; iv%end = sys_size
6262 call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
6263 end if
6264 else
6265 if (int_comp > 0) then
6266 ! THINC reads cont and adv from v_rs_ws; must reconstruct full sys_size range to populate both
6267 iv%beg = 1; iv%end = sys_size
6268 call s_reconstruct_cell_boundary_values(q_prim_qp%vf(1:sys_size), ql_rsx_vf, qr_rsx_vf, id)
6269 ! Surface tension requires first-order energy; overwrite the higher-order result from the full pass above
6270 iv%beg = eqn_idx%E; iv%end = eqn_idx%E
6271 call s_reconstruct_cell_boundary_values_first_order(q_prim_qp%vf(eqn_idx%E), ql_rsx_vf, qr_rsx_vf, id)
6272 else if ((.not. weno_re_flux)) then
6273 iv%beg = 1; iv%end = eqn_idx%E - 1
6274 call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
6275
6276 iv%beg = eqn_idx%E; iv%end = eqn_idx%E
6277 call s_reconstruct_cell_boundary_values_first_order(q_prim_qp%vf(eqn_idx%E), ql_rsx_vf, qr_rsx_vf, id)
6278
6279 iv%beg = eqn_idx%E + 1; iv%end = sys_size
6280 call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
6281 else
6282 iv%beg = 1; iv%end = eqn_idx%cont%end
6283 call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
6284
6285 iv%beg = eqn_idx%mom%beg; iv%end = eqn_idx%mom%end; iglob = id
6286
6287# 663 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6288#if defined(MFC_OpenACC)
6289# 663 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6290!$acc update device(iv, iglob)
6291# 663 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6292#elif defined(MFC_OpenMP)
6293# 663 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6294!$omp target update to(iv, iglob)
6295# 663 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6296#endif
6297
6298
6299# 665 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6300
6301# 665 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6302#if defined(MFC_OpenACC)
6303# 665 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6304!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
6305# 665 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6306#elif defined(MFC_OpenMP)
6307# 665 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6308
6309# 665 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6310
6311# 665 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6312
6313# 665 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6314!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
6315# 665 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6316#endif
6317 do i = iv%beg, iv%end
6318 do l = idwbuff(3)%beg, idwbuff(3)%end
6319 do k = idwbuff(2)%beg, idwbuff(2)%end
6320 do j = idwbuff(1)%beg, idwbuff(1)%end
6321 ql_rsx_vf(j, k, l, i) = ql_prim(iglob)%vf(i)%sf(j, k, l)
6322 qr_rsx_vf(j, k, l, i) = qr_prim(iglob)%vf(i)%sf(j, k, l)
6323 end do
6324 end do
6325 end do
6326 end do
6327
6328# 676 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6329#if defined(MFC_OpenACC)
6330# 676 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6331!$acc end parallel loop
6332# 676 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6333#elif defined(MFC_OpenMP)
6334# 676 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6335
6336# 676 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6337!$omp end target teams loop
6338# 676 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6339#endif
6340
6341 iv%beg = eqn_idx%E; iv%end = eqn_idx%E
6342 call s_reconstruct_cell_boundary_values_first_order(q_prim_qp%vf(eqn_idx%E), ql_rsx_vf, qr_rsx_vf, id)
6343
6344 iv%beg = eqn_idx%E + 1; iv%end = sys_size
6345 call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
6346 end if
6347 end if
6348
6349 ! Reconstruct viscous derivatives for viscosity
6350 if (weno_re_flux) then
6351 iv%beg = eqn_idx%mom%beg; iv%end = eqn_idx%mom%end
6352 call s_reconstruct_cell_boundary_values_visc_deriv(dq_prim_dx_qp(1)%vf(iv%beg:iv%end), dql_rsx_vf, &
6353 & dqr_rsx_vf, id, dql_prim_dx_n(id)%vf(iv%beg:iv%end), dqr_prim_dx_n(id)%vf(iv%beg:iv%end), idwbuff(1), &
6354 & idwbuff(2), idwbuff(3))
6355 if (n > 0) then
6356 call s_reconstruct_cell_boundary_values_visc_deriv(dq_prim_dy_qp(1)%vf(iv%beg:iv%end), dql_rsx_vf, &
6357 & dqr_rsx_vf, id, dql_prim_dy_n(id)%vf(iv%beg:iv%end), dqr_prim_dy_n(id)%vf(iv%beg:iv%end), &
6358 & idwbuff(1), idwbuff(2), idwbuff(3))
6359 if (p > 0) then
6360 call s_reconstruct_cell_boundary_values_visc_deriv(dq_prim_dz_qp(1)%vf(iv%beg:iv%end), dql_rsx_vf, &
6361 & dqr_rsx_vf, id, dql_prim_dz_n(id)%vf(iv%beg:iv%end), dqr_prim_dz_n(id)%vf(iv%beg:iv%end), &
6362 & idwbuff(1), idwbuff(2), idwbuff(3))
6363 end if
6364 end if
6365 end if
6366
6367 call nvtxendrange
6368
6369 ! Configuring Coordinate Direction Indexes
6370 if (id == 1) then
6371 irx%beg = -1; iry%beg = 0; irz%beg = 0
6372 else if (id == 2) then
6373 irx%beg = 0; iry%beg = -1; irz%beg = 0
6374 else
6375 irx%beg = 0; iry%beg = 0; irz%beg = -1
6376 end if
6377 irx%end = m; iry%end = n; irz%end = p
6378
6379 ! Computing Riemann Solver Flux and Source Flux
6380 call nvtxstartrange("RHS-RIEMANN-SOLVER")
6381 call s_riemann_solver(qr_rsx_vf, dqr_prim_dx_n(id)%vf, dqr_prim_dy_n(id)%vf, dqr_prim_dz_n(id)%vf, &
6382 & qr_prim(id)%vf, ql_rsx_vf, dql_prim_dx_n(id)%vf, dql_prim_dy_n(id)%vf, &
6383 & dql_prim_dz_n(id)%vf, ql_prim(id)%vf, q_prim_qp%vf, flux_n(id)%vf, flux_src_n(id)%vf, &
6384 & flux_gsrc_n(id)%vf, id, irx, iry, irz)
6385 call nvtxendrange
6386
6387 ! Additional physics and source terms RHS addition for advection source
6388 call nvtxstartrange("RHS-ADVECTION-SRC")
6389 call s_compute_advection_source_term(id, rhs_vf, q_cons_qp, q_prim_qp, flux_src_n(id))
6390 call nvtxendrange
6391
6392 ! RHS additions for hypoelasticity
6393 call nvtxstartrange("RHS-HYPOELASTICITY")
6394 if (hypoelasticity) call s_compute_hypoelastic_rhs(id, q_prim_qp%vf, rhs_vf)
6395 call nvtxendrange
6396
6397 ! RHS for diffusion
6398 if (chemistry .and. chem_params%diffusion) then
6399 call nvtxstartrange("RHS-CHEM-DIFFUSION")
6400 call s_compute_chemistry_diffusion_flux(id, q_prim_qp%vf, flux_src_n(id)%vf, irx, iry, irz, q_t_sf)
6401 call nvtxendrange
6402 end if
6403
6404 ! Viscous stress contribution to RHS
6405 if (viscous .or. surface_tension .or. chem_params%diffusion) then
6406 call nvtxstartrange("RHS-ADD-PHYSICS")
6407 call s_compute_additional_physics_rhs(id, q_prim_qp%vf, rhs_vf, flux_src_n(id)%vf, dq_prim_dx_qp(1)%vf, &
6408 & dq_prim_dy_qp(1)%vf, dq_prim_dz_qp(1)%vf)
6409 call nvtxendrange
6410 end if
6411
6412 ! Bubble dynamics source terms
6413 if (bubbles_euler) then
6414 call nvtxstartrange("RHS-BUBBLES-COMPUTE")
6415 call s_compute_bubbles_ee_rhs(id, q_prim_qp%vf, divu)
6416 call nvtxendrange
6417 end if
6418
6419 ! RHS additions for qbmm bubbles
6420 if (qbmm) then
6421 call nvtxstartrange("RHS-QBMM")
6422 call s_compute_qbmm_rhs(id, q_cons_qp%vf, q_prim_qp%vf, rhs_vf, flux_n(id)%vf, pb_in, rhs_pb)
6423 call nvtxendrange
6424 end if
6425 ! END: Additional physics and source terms
6426
6427 if (hyper_cleaning) then
6428
6429# 765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6430
6431# 765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6432#if defined(MFC_OpenACC)
6433# 765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6434!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
6435# 765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6436#elif defined(MFC_OpenMP)
6437# 765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6438
6439# 765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6440
6441# 765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6442
6443# 765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6444!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
6445# 765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6446#endif
6447 do l = 0, p
6448 do k = 0, n
6449 do j = 0, m
6450 rhs_vf(eqn_idx%psi)%sf(j, k, l) = rhs_vf(eqn_idx%psi)%sf(j, k, l) - q_prim_vf(eqn_idx%psi)%sf(j, &
6451 & k, l)/hyper_cleaning_tau
6452 end do
6453 end do
6454 end do
6455
6456# 774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6457#if defined(MFC_OpenACC)
6458# 774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6459!$acc end parallel loop
6460# 774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6461#elif defined(MFC_OpenMP)
6462# 774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6463
6464# 774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6465!$omp end target teams loop
6466# 774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6467#endif
6468 end if
6469
6470 ! END: Additional physics and source terms
6471 end if
6472 end do
6473 ! END: Dimensional Splitting Loop
6474
6475 if (ib) then
6476
6477# 783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6478
6479# 783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6480#if defined(MFC_OpenACC)
6481# 783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6482!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
6483# 783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6484#elif defined(MFC_OpenMP)
6485# 783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6486
6487# 783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6488
6489# 783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6490
6491# 783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6492!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
6493# 783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6494#endif
6495 do l = 0, p
6496 do k = 0, n
6497 do j = 0, m
6498 if (ib_markers%sf(j, k, l) /= 0) then
6499 do i = 1, sys_size
6500 rhs_vf(i)%sf(j, k, l) = 0._wp
6501 end do
6502 end if
6503 end do
6504 end do
6505 end do
6506
6507# 795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6508#if defined(MFC_OpenACC)
6509# 795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6510!$acc end parallel loop
6511# 795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6512#elif defined(MFC_OpenMP)
6513# 795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6514
6515# 795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6516!$omp end target teams loop
6517# 795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6518#endif
6519 end if
6520
6521 ! Additional Physics and Source Terms Additions for acoustic_source
6522 if (acoustic_source) then
6523 call nvtxstartrange("RHS-ACOUSTIC-SRC")
6524 call s_acoustic_src_calculations(q_cons_qp%vf(1:sys_size), q_prim_qp%vf(1:sys_size), rhs_vf)
6525 call nvtxendrange
6526 end if
6527
6528 ! Add bubbles source term
6529 if (bubbles_euler .and. (.not. adap_dt) .and. (.not. qbmm)) then
6530 call nvtxstartrange("RHS-BUBBLES-SRC")
6531 call s_compute_bubble_ee_source(q_cons_qp%vf(1:sys_size), q_prim_qp%vf(1:sys_size), rhs_vf, divu)
6532 call nvtxendrange
6533 end if
6534
6535 if (bubbles_lagrange) then
6536 ! RHS additions for sub-grid bubbles_lagrange
6537 call nvtxstartrange("RHS-EL-BUBBLES-SRC")
6538 call s_compute_bubbles_el_source(q_cons_qp%vf(1:sys_size), q_prim_qp%vf(1:sys_size), rhs_vf)
6539 call nvtxendrange
6540 ! Compute bubble dynamics
6541 if (.not. adap_dt) then
6542 call nvtxstartrange("RHS-EL-BUBBLES-DYN")
6543 call s_compute_bubble_el_dynamics(q_prim_qp%vf(1:sys_size), stage)
6544 call nvtxendrange
6545 end if
6546 end if
6547
6548 if (chemistry .and. chem_params%reactions) then
6549 call nvtxstartrange("RHS-CHEM-REACTIONS")
6550 call s_compute_chemistry_reaction_flux(rhs_vf, q_cons_qp%vf, q_t_sf, q_prim_qp%vf, idwint)
6551 call nvtxendrange
6552 end if
6553
6554 if (cont_damage) call s_compute_damage_state(q_cons_qp%vf, rhs_vf)
6555
6556 ! END: Additional physics and source terms
6557
6558 if (run_time_info .or. probe_wrt .or. ib .or. bubbles_lagrange) then
6559 if (.not. igr) then
6560
6561# 837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6562
6563# 837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6564#if defined(MFC_OpenACC)
6565# 837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6566!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
6567# 837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6568#elif defined(MFC_OpenMP)
6569# 837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6570
6571# 837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6572
6573# 837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6574
6575# 837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6576!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
6577# 837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6578#endif
6579 do i = 1, sys_size
6580 do l = idwbuff(3)%beg, idwbuff(3)%end
6581 do k = idwbuff(2)%beg, idwbuff(2)%end
6582 do j = idwbuff(1)%beg, idwbuff(1)%end
6583 q_prim_vf(i)%sf(j, k, l) = q_prim_qp%vf(i)%sf(j, k, l)
6584 end do
6585 end do
6586 end do
6587 end do
6588
6589# 847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6590#if defined(MFC_OpenACC)
6591# 847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6592!$acc end parallel loop
6593# 847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6594#elif defined(MFC_OpenMP)
6595# 847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6596
6597# 847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6598!$omp end target teams loop
6599# 847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6600#endif
6601 end if
6602 end if
6603
6604 call cpu_time(t_finish)
6605
6606 if (t_step >= 2) then
6607 time_avg = (abs(t_finish - t_start) + (t_step - 2)*time_avg)/(t_step - 1)
6608 else
6609 time_avg = 0._wp
6610 end if
6611
6612 call nvtxendrange
6613
6614 end subroutine s_compute_rhs
6615
6616 !> Accumulate advection source contributions from a given coordinate direction into the RHS
6617 subroutine s_compute_advection_source_term(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf)
6618
6619 integer, intent(in) :: idir
6620 type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
6621 type(vector_field), intent(inout) :: q_cons_vf
6622 type(vector_field), intent(inout) :: q_prim_vf
6623 type(vector_field), intent(inout) :: flux_src_n_vf
6624 integer :: j, k, l, q !< Loop iterators from original, meaning varies
6625 integer :: k_loop, l_loop, q_loop !< Standardized spatial loop iterators 0:m, 0:n, 0:p
6626 integer :: i_fluid_loop
6627 real(wp) :: inv_ds, flux_face1, flux_face2
6628 real(wp) :: advected_qty_val, pressure_val, velocity_val
6629
6630 if (alt_soundspeed) then
6631
6632# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6633
6634# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6635#if defined(MFC_OpenACC)
6636# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6637!$acc parallel loop collapse(3) gang vector default(present) private(k_loop, l_loop, q_loop)
6638# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6639#elif defined(MFC_OpenMP)
6640# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6641
6642# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6643
6644# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6645
6646# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6647!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(k_loop, l_loop, q_loop)
6648# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6649#endif
6650 do q_loop = 0, p
6651 do l_loop = 0, n
6652 do k_loop = 0, m
6653 blkmod1(k_loop, l_loop, q_loop) = ((gammas(1) + 1._wp)*q_prim_vf%vf(eqn_idx%E)%sf(k_loop, l_loop, &
6654 & q_loop) + pi_infs(1))/gammas(1)
6655 blkmod2(k_loop, l_loop, q_loop) = ((gammas(2) + 1._wp)*q_prim_vf%vf(eqn_idx%E)%sf(k_loop, l_loop, &
6656 & q_loop) + pi_infs(2))/gammas(2)
6657 alpha1(k_loop, l_loop, q_loop) = q_cons_vf%vf(eqn_idx%adv%beg)%sf(k_loop, l_loop, q_loop)
6658
6659 if (bubbles_euler) then
6660 alpha2(k_loop, l_loop, q_loop) = q_cons_vf%vf(eqn_idx%alf - 1)%sf(k_loop, l_loop, q_loop)
6661 else
6662 alpha2(k_loop, l_loop, q_loop) = q_cons_vf%vf(eqn_idx%adv%end)%sf(k_loop, l_loop, q_loop)
6663 end if
6664
6665 kterm(k_loop, l_loop, q_loop) = alpha1(k_loop, l_loop, q_loop)*alpha2(k_loop, l_loop, &
6666 & q_loop)*(blkmod2(k_loop, l_loop, q_loop) - blkmod1(k_loop, l_loop, q_loop))/(alpha1(k_loop, &
6667 & l_loop, q_loop)*blkmod2(k_loop, l_loop, q_loop) + alpha2(k_loop, l_loop, q_loop)*blkmod1(k_loop, &
6668 & l_loop, q_loop))
6669 end do
6670 end do
6671 end do
6672
6673# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6674#if defined(MFC_OpenACC)
6675# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6676!$acc end parallel loop
6677# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6678#elif defined(MFC_OpenMP)
6679# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6680
6681# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6682!$omp end target teams loop
6683# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6684#endif
6685 end if
6686
6687 select case (idir)
6688 case (1) ! x-direction
6689 if (bc_x%beg <= bc_char_slip_wall .and. bc_x%beg >= bc_char_sup_outflow) then
6690 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
6691 end if
6692 if (bc_x%end <= bc_char_slip_wall .and. bc_x%end >= bc_char_sup_outflow) then
6693 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
6694 end if
6695
6696
6697# 913 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6698
6699# 913 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6700#if defined(MFC_OpenACC)
6701# 913 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6702!$acc parallel loop collapse(4) gang vector default(present) private(j, k_loop, l_loop, q_loop, inv_ds, flux_face1, flux_face2)
6703# 913 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6704#elif defined(MFC_OpenMP)
6705# 913 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6706
6707# 913 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6708
6709# 913 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6710
6711# 913 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6712!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k_loop, l_loop, q_loop, inv_ds, flux_face1, flux_face2)
6713# 913 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6714#endif
6715 do j = 1, sys_size
6716 do q_loop = 0, p
6717 do l_loop = 0, n
6718 do k_loop = 0, m
6719 inv_ds = 1._wp/dx(k_loop)
6720 flux_face1 = flux_n(1)%vf(j)%sf(k_loop - 1, l_loop, q_loop)
6721 flux_face2 = flux_n(1)%vf(j)%sf(k_loop, l_loop, q_loop)
6722 rhs_vf(j)%sf(k_loop, l_loop, q_loop) = inv_ds*(flux_face1 - flux_face2)
6723 end do
6724 end do
6725 end do
6726 end do
6727
6728# 926 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6729#if defined(MFC_OpenACC)
6730# 926 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6731!$acc end parallel loop
6732# 926 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6733#elif defined(MFC_OpenMP)
6734# 926 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6735
6736# 926 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6737!$omp end target teams loop
6738# 926 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6739#endif
6740
6741 if (model_eqns == 3) then
6742
6743# 929 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6744
6745# 929 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6746#if defined(MFC_OpenACC)
6747# 929 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6748!$acc parallel loop collapse(4) gang vector default(present) private(i_fluid_loop, k_loop, l_loop, q_loop, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
6749# 929 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6750#elif defined(MFC_OpenMP)
6751# 929 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6752
6753# 929 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6754
6755# 929 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6756
6757# 929 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6758!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i_fluid_loop, k_loop, l_loop, q_loop, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
6759# 929 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6760#endif
6761# 931 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6762 do q_loop = 0, p
6763 do l_loop = 0, n
6764 do k_loop = 0, m
6765 do i_fluid_loop = 1, num_fluids
6766 inv_ds = 1._wp/dx(k_loop)
6767 advected_qty_val = q_cons_vf%vf(i_fluid_loop + eqn_idx%adv%beg - 1)%sf(k_loop, l_loop, q_loop)
6768 pressure_val = q_prim_vf%vf(eqn_idx%E)%sf(k_loop, l_loop, q_loop)
6769 flux_face1 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(k_loop, l_loop, q_loop)
6770 flux_face2 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(k_loop - 1, l_loop, q_loop)
6771 rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(k_loop, l_loop, &
6772 & q_loop) = rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(k_loop, l_loop, &
6773 & q_loop) - inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
6774 end do
6775 end do
6776 end do
6777 end do
6778
6779# 947 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6780#if defined(MFC_OpenACC)
6781# 947 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6782!$acc end parallel loop
6783# 947 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6784#elif defined(MFC_OpenMP)
6785# 947 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6786
6787# 947 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6788!$omp end target teams loop
6789# 947 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6790#endif
6791 end if
6792
6793 call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
6794 case (2) ! y-direction
6795 if (bc_y%beg <= bc_char_slip_wall .and. bc_y%beg >= bc_char_sup_outflow) then
6796 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
6797 end if
6798 if (bc_y%end <= bc_char_slip_wall .and. bc_y%end >= bc_char_sup_outflow) then
6799 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
6800 end if
6801
6802
6803# 959 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6804
6805# 959 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6806#if defined(MFC_OpenACC)
6807# 959 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6808!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, flux_face1, flux_face2)
6809# 959 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6810#elif defined(MFC_OpenMP)
6811# 959 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6812
6813# 959 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6814
6815# 959 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6816
6817# 959 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6818!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, q, inv_ds, flux_face1, flux_face2)
6819# 959 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6820#endif
6821 do j = 1, sys_size
6822 do l = 0, p
6823 do k = 0, n
6824 do q = 0, m
6825 inv_ds = 1._wp/dy(k)
6826 flux_face1 = flux_n(2)%vf(j)%sf(q, k - 1, l)
6827 flux_face2 = flux_n(2)%vf(j)%sf(q, k, l)
6828 rhs_vf(j)%sf(q, k, l) = rhs_vf(j)%sf(q, k, l) + inv_ds*(flux_face1 - flux_face2)
6829 end do
6830 end do
6831 end do
6832 end do
6833
6834# 972 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6835#if defined(MFC_OpenACC)
6836# 972 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6837!$acc end parallel loop
6838# 972 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6839#elif defined(MFC_OpenMP)
6840# 972 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6841
6842# 972 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6843!$omp end target teams loop
6844# 972 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6845#endif
6846
6847 if (model_eqns == 3) then
6848
6849# 975 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6850
6851# 975 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6852#if defined(MFC_OpenACC)
6853# 975 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6854!$acc parallel loop collapse(4) gang vector default(present) private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
6855# 975 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6856#elif defined(MFC_OpenMP)
6857# 975 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6858
6859# 975 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6860
6861# 975 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6862
6863# 975 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6864!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
6865# 975 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6866#endif
6867# 977 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6868 do l = 0, p
6869 do k = 0, n
6870 do q = 0, m
6871 do i_fluid_loop = 1, num_fluids
6872 inv_ds = 1._wp/dy(k)
6873 advected_qty_val = q_cons_vf%vf(i_fluid_loop + eqn_idx%adv%beg - 1)%sf(q, k, l)
6874 pressure_val = q_prim_vf%vf(eqn_idx%E)%sf(q, k, l)
6875 flux_face1 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(q, k, l)
6876 flux_face2 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(q, k - 1, l)
6877 rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(q, k, &
6878 & l) = rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(q, k, &
6879 & l) - inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
6880 if (cyl_coord) then
6881 rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(q, k, &
6882 & l) = rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(q, k, &
6883 & l) - 5.e-1_wp/y_cc(k)*advected_qty_val*pressure_val*(flux_face1 + flux_face2)
6884 end if
6885 end do
6886 end do
6887 end do
6888 end do
6889
6890# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6891#if defined(MFC_OpenACC)
6892# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6893!$acc end parallel loop
6894# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6895#elif defined(MFC_OpenMP)
6896# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6897
6898# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6899!$omp end target teams loop
6900# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6901#endif
6902 end if
6903
6904 if (cyl_coord) then
6905
6906# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6907
6908# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6909#if defined(MFC_OpenACC)
6910# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6911!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, flux_face1, flux_face2)
6912# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6913#elif defined(MFC_OpenMP)
6914# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6915
6916# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6917
6918# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6919
6920# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6921!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, q, flux_face1, flux_face2)
6922# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6923#endif
6924 do j = 1, sys_size
6925 do l = 0, p
6926 do k = 0, n
6927 do q = 0, m
6928 flux_face1 = flux_gsrc_n(2)%vf(j)%sf(q, k - 1, l)
6929 flux_face2 = flux_gsrc_n(2)%vf(j)%sf(q, k, l)
6930 rhs_vf(j)%sf(q, k, l) = rhs_vf(j)%sf(q, k, l) - 5.e-1_wp/y_cc(k)*(flux_face1 + flux_face2)
6931 end do
6932 end do
6933 end do
6934 end do
6935
6936# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6937#if defined(MFC_OpenACC)
6938# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6939!$acc end parallel loop
6940# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6941#elif defined(MFC_OpenMP)
6942# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6943
6944# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6945!$omp end target teams loop
6946# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6947#endif
6948 end if
6949
6950 call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
6951 case (3) ! z-direction
6952 if (bc_z%beg <= bc_char_slip_wall .and. bc_z%beg >= bc_char_sup_outflow) then
6953 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
6954 end if
6955 if (bc_z%end <= bc_char_slip_wall .and. bc_z%end >= bc_char_sup_outflow) then
6956 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
6957 end if
6958
6959 if (grid_geometry == 3) then ! Cylindrical Coordinates
6960
6961# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6962
6963# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6964#if defined(MFC_OpenACC)
6965# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6966!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, velocity_val, flux_face1, flux_face2)
6967# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6968#elif defined(MFC_OpenMP)
6969# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6970
6971# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6972
6973# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6974
6975# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6976!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, q, inv_ds, velocity_val, flux_face1, flux_face2)
6977# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6978#endif
6979 do j = 1, sys_size
6980 do k = 0, p
6981 do q = 0, n
6982 do l = 0, m
6983 inv_ds = 1._wp/(dz(k)*y_cc(q))
6984 velocity_val = q_prim_vf%vf(eqn_idx%cont%end + idir)%sf(l, q, k)
6985 flux_face1 = flux_n(3)%vf(j)%sf(l, q, k - 1)
6986 flux_face2 = flux_n(3)%vf(j)%sf(l, q, k)
6987 rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) + inv_ds*velocity_val*(flux_face1 - flux_face2)
6988 end do
6989 end do
6990 end do
6991 end do
6992
6993# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6994#if defined(MFC_OpenACC)
6995# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6996!$acc end parallel loop
6997# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6998#elif defined(MFC_OpenMP)
6999# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7000
7001# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7002!$omp end target teams loop
7003# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7004#endif
7005
7006# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7007
7008# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7009#if defined(MFC_OpenACC)
7010# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7011!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, flux_face1, flux_face2)
7012# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7013#elif defined(MFC_OpenMP)
7014# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7015
7016# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7017
7018# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7019
7020# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7021!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, q, flux_face1, flux_face2)
7022# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7023#endif
7024 do j = 1, sys_size
7025 do k = 0, p
7026 do q = 0, n
7027 do l = 0, m
7028 flux_face1 = flux_gsrc_n(3)%vf(j)%sf(l, q, k - 1)
7029 flux_face2 = flux_gsrc_n(3)%vf(j)%sf(l, q, k)
7030 rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) - 5.e-1_wp/y_cc(q)*(flux_face1 + flux_face2)
7031 end do
7032 end do
7033 end do
7034 end do
7035
7036# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7037#if defined(MFC_OpenACC)
7038# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7039!$acc end parallel loop
7040# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7041#elif defined(MFC_OpenMP)
7042# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7043
7044# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7045!$omp end target teams loop
7046# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7047#endif
7048 else
7049
7050# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7051
7052# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7053#if defined(MFC_OpenACC)
7054# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7055!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, flux_face1, flux_face2)
7056# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7057#elif defined(MFC_OpenMP)
7058# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7059
7060# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7061
7062# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7063
7064# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7065!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, q, inv_ds, flux_face1, flux_face2)
7066# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7067#endif
7068 do j = 1, sys_size
7069 do k = 0, p
7070 do q = 0, n
7071 do l = 0, m
7072 inv_ds = 1._wp/dz(k)
7073 flux_face1 = flux_n(3)%vf(j)%sf(l, q, k - 1)
7074 flux_face2 = flux_n(3)%vf(j)%sf(l, q, k)
7075 rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) + inv_ds*(flux_face1 - flux_face2)
7076 end do
7077 end do
7078 end do
7079 end do
7080
7081# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7082#if defined(MFC_OpenACC)
7083# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7084!$acc end parallel loop
7085# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7086#elif defined(MFC_OpenMP)
7087# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7088
7089# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7090!$omp end target teams loop
7091# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7092#endif
7093 end if
7094
7095 if (model_eqns == 3) then
7096
7097# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7098
7099# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7100#if defined(MFC_OpenACC)
7101# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7102!$acc parallel loop collapse(4) gang vector default(present) private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
7103# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7104#elif defined(MFC_OpenMP)
7105# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7106
7107# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7108
7109# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7110
7111# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7112!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
7113# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7114#endif
7115# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7116 do k = 0, p
7117 do q = 0, n
7118 do l = 0, m
7119 do i_fluid_loop = 1, num_fluids
7120 inv_ds = 1._wp/dz(k)
7121 advected_qty_val = q_cons_vf%vf(i_fluid_loop + eqn_idx%adv%beg - 1)%sf(l, q, k)
7122 pressure_val = q_prim_vf%vf(eqn_idx%E)%sf(l, q, k)
7123 flux_face1 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(l, q, k)
7124 flux_face2 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(l, q, k - 1)
7125 rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(l, q, &
7126 & k) = rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(l, q, &
7127 & k) - inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
7128 end do
7129 end do
7130 end do
7131 end do
7132
7133# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7134#if defined(MFC_OpenACC)
7135# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7136!$acc end parallel loop
7137# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7138#elif defined(MFC_OpenMP)
7139# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7140
7141# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7142!$omp end target teams loop
7143# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7144#endif
7145 end if
7146
7147 call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
7148 end select
7149
7150 contains
7151
7152 !> Add the advection source flux-difference terms for a single coordinate direction to the RHS
7153 subroutine s_add_directional_advection_source_terms(current_idir, rhs_vf_arg, q_cons_vf_arg, q_prim_vf_arg, &
7154 & flux_src_n_vf_arg, Kterm_arg)
7155 integer, intent(in) :: current_idir
7156 type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf_arg
7157 type(vector_field), intent(in) :: q_cons_vf_arg
7158 type(vector_field), intent(in) :: q_prim_vf_arg
7159 type(vector_field), intent(in) :: flux_src_n_vf_arg
7160 ! CORRECTED DECLARATION FOR Kterm_arg:
7161 real(wp), allocatable, dimension(:,:,:), intent(in) :: Kterm_arg
7162 integer :: j_adv, k_idx, l_idx, q_idx
7163 real(wp) :: local_inv_ds, local_term_coeff, local_flux1, local_flux2
7164 real(wp) :: local_q_cons_val, local_k_term_val
7165 logical :: use_standard_riemann
7166
7167 select case (current_idir)
7168 case (1) ! x-direction
7169 use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
7170 if (use_standard_riemann) then
7171
7172# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7173
7174# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7175#if defined(MFC_OpenACC)
7176# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7177!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7178# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7179#elif defined(MFC_OpenMP)
7180# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7181
7182# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7183
7184# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7185
7186# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7187!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7188# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7189#endif
7190# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7191 do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
7192 do q_idx = 0, p ! z_extent
7193 do l_idx = 0, n ! y_extent
7194 do k_idx = 0, m ! x_extent
7195 local_inv_ds = 1._wp/dx(k_idx)
7196 local_term_coeff = q_prim_vf_arg%vf(eqn_idx%cont%end + current_idir)%sf(k_idx, l_idx, q_idx)
7197 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx - 1, l_idx, q_idx)
7198 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx, l_idx, q_idx)
7199 rhs_vf_arg(j_adv)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(j_adv)%sf(k_idx, l_idx, &
7200 & q_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7201 end do
7202 end do
7203 end do
7204 end do
7205
7206# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7207#if defined(MFC_OpenACC)
7208# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7209!$acc end parallel loop
7210# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7211#elif defined(MFC_OpenMP)
7212# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7213
7214# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7215!$omp end target teams loop
7216# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7217#endif
7218 else
7219 if (alt_soundspeed) then
7220 if (bubbles_euler .neqv. .true.) then
7221
7222# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7223
7224# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7225#if defined(MFC_OpenACC)
7226# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7227!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7228# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7229#elif defined(MFC_OpenMP)
7230# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7231
7232# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7233
7234# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7235
7236# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7237!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7238# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7239#endif
7240# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7241 do q_idx = 0, p; do l_idx = 0, n; do k_idx = 0, m
7242 local_inv_ds = 1._wp/dx(k_idx)
7243 local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%end)%sf(k_idx, l_idx, q_idx)
7244 local_k_term_val = kterm_arg(k_idx, l_idx, q_idx) ! Access is safe due to outer alt_soundspeed check
7245 local_term_coeff = local_q_cons_val - local_k_term_val
7246 local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(k_idx, l_idx, q_idx)
7247 local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(k_idx - 1, l_idx, q_idx)
7248 rhs_vf_arg(eqn_idx%adv%end)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(eqn_idx%adv%end)%sf(k_idx, &
7249 & l_idx, q_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7250 end do; end do; end do
7251
7252# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7253#if defined(MFC_OpenACC)
7254# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7255!$acc end parallel loop
7256# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7257#elif defined(MFC_OpenMP)
7258# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7259
7260# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7261!$omp end target teams loop
7262# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7263#endif
7264
7265
7266# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7267
7268# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7269#if defined(MFC_OpenACC)
7270# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7271!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7272# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7273#elif defined(MFC_OpenMP)
7274# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7275
7276# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7277
7278# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7279
7280# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7281!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7282# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7283#endif
7284# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7285 do q_idx = 0, p; do l_idx = 0, n; do k_idx = 0, m
7286 local_inv_ds = 1._wp/dx(k_idx)
7287 local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%beg)%sf(k_idx, l_idx, q_idx)
7288 local_k_term_val = kterm_arg(k_idx, l_idx, q_idx) ! Access is safe
7289 local_term_coeff = local_q_cons_val + local_k_term_val
7290 local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(k_idx, l_idx, q_idx)
7291 local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(k_idx - 1, l_idx, q_idx)
7292 rhs_vf_arg(eqn_idx%adv%beg)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(eqn_idx%adv%beg)%sf(k_idx, &
7293 & l_idx, q_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7294 end do; end do; end do
7295
7296# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7297#if defined(MFC_OpenACC)
7298# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7299!$acc end parallel loop
7300# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7301#elif defined(MFC_OpenMP)
7302# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7303
7304# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7305!$omp end target teams loop
7306# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7307#endif
7308 end if
7309 else
7310
7311# 1167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7312
7313# 1167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7314#if defined(MFC_OpenACC)
7315# 1167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7316!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7317# 1167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7318#elif defined(MFC_OpenMP)
7319# 1167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7320
7321# 1167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7322
7323# 1167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7324
7325# 1167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7326!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7327# 1167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7328#endif
7329# 1169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7330 do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
7331 do q_idx = 0, p; do l_idx = 0, n; do k_idx = 0, m
7332 local_inv_ds = 1._wp/dx(k_idx)
7333 local_term_coeff = q_cons_vf_arg%vf(j_adv)%sf(k_idx, l_idx, q_idx)
7334 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx, l_idx, q_idx)
7335 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx - 1, l_idx, q_idx)
7336 rhs_vf_arg(j_adv)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(j_adv)%sf(k_idx, l_idx, &
7337 & q_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7338 end do; end do; end do
7339 end do
7340
7341# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7342#if defined(MFC_OpenACC)
7343# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7344!$acc end parallel loop
7345# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7346#elif defined(MFC_OpenMP)
7347# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7348
7349# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7350!$omp end target teams loop
7351# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7352#endif
7353 end if
7354 end if
7355 case (2)
7356 ! y-direction: loops q_idx (x), k_idx (y), l_idx (z); sf(q_idx, k_idx, l_idx); dy(k_idx); Kterm(q_idx,k_idx,l_idx)
7357 use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
7358 if (use_standard_riemann) then
7359
7360# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7361
7362# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7363#if defined(MFC_OpenACC)
7364# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7365!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7366# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7367#elif defined(MFC_OpenMP)
7368# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7369
7370# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7371
7372# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7373
7374# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7375!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7376# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7377#endif
7378# 1188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7379 do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
7380 do l_idx = 0, p ! z_extent
7381 do k_idx = 0, n ! y_extent
7382 do q_idx = 0, m ! x_extent
7383 local_inv_ds = 1._wp/dy(k_idx)
7384 local_term_coeff = q_prim_vf_arg%vf(eqn_idx%cont%end + current_idir)%sf(q_idx, k_idx, l_idx)
7385 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx - 1, l_idx)
7386 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx, l_idx)
7387 rhs_vf_arg(j_adv)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(j_adv)%sf(q_idx, k_idx, &
7388 & l_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7389 end do
7390 end do
7391 end do
7392 end do
7393
7394# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7395#if defined(MFC_OpenACC)
7396# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7397!$acc end parallel loop
7398# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7399#elif defined(MFC_OpenMP)
7400# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7401
7402# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7403!$omp end target teams loop
7404# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7405#endif
7406 else
7407 if (alt_soundspeed) then
7408 if (bubbles_euler .neqv. .true.) then
7409
7410# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7411
7412# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7413#if defined(MFC_OpenACC)
7414# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7415!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7416# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7417#elif defined(MFC_OpenMP)
7418# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7419
7420# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7421
7422# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7423
7424# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7425!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7426# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7427#endif
7428# 1208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7429 do l_idx = 0, p; do k_idx = 0, n; do q_idx = 0, m
7430 local_inv_ds = 1._wp/dy(k_idx)
7431 local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%end)%sf(q_idx, k_idx, l_idx)
7432 local_k_term_val = kterm_arg(q_idx, k_idx, l_idx) ! Access is safe
7433 local_term_coeff = local_q_cons_val - local_k_term_val
7434 local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(q_idx, k_idx, l_idx)
7435 local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(q_idx, k_idx - 1, l_idx)
7436 rhs_vf_arg(eqn_idx%adv%end)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(eqn_idx%adv%end)%sf(q_idx, &
7437 & k_idx, l_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7438 if (cyl_coord) then
7439 rhs_vf_arg(eqn_idx%adv%end)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(eqn_idx%adv%end)%sf(q_idx, &
7440 & k_idx, l_idx) - (local_k_term_val/(2._wp*y_cc(k_idx)))*(local_flux1 + local_flux2)
7441 end if
7442 end do; end do; end do
7443
7444# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7445#if defined(MFC_OpenACC)
7446# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7447!$acc end parallel loop
7448# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7449#elif defined(MFC_OpenMP)
7450# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7451
7452# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7453!$omp end target teams loop
7454# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7455#endif
7456
7457
7458# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7459
7460# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7461#if defined(MFC_OpenACC)
7462# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7463!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7464# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7465#elif defined(MFC_OpenMP)
7466# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7467
7468# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7469
7470# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7471
7472# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7473!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7474# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7475#endif
7476# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7477 do l_idx = 0, p; do k_idx = 0, n; do q_idx = 0, m
7478 local_inv_ds = 1._wp/dy(k_idx)
7479 local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%beg)%sf(q_idx, k_idx, l_idx)
7480 local_k_term_val = kterm_arg(q_idx, k_idx, l_idx) ! Access is safe
7481 local_term_coeff = local_q_cons_val + local_k_term_val
7482 local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(q_idx, k_idx, l_idx)
7483 local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(q_idx, k_idx - 1, l_idx)
7484 rhs_vf_arg(eqn_idx%adv%beg)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(eqn_idx%adv%beg)%sf(q_idx, &
7485 & k_idx, l_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7486 if (cyl_coord) then
7487 rhs_vf_arg(eqn_idx%adv%beg)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(eqn_idx%adv%beg)%sf(q_idx, &
7488 & k_idx, l_idx) + (local_k_term_val/(2._wp*y_cc(k_idx)))*(local_flux1 + local_flux2)
7489 end if
7490 end do; end do; end do
7491
7492# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7493#if defined(MFC_OpenACC)
7494# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7495!$acc end parallel loop
7496# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7497#elif defined(MFC_OpenMP)
7498# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7499
7500# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7501!$omp end target teams loop
7502# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7503#endif
7504 end if
7505 else
7506
7507# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7508
7509# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7510#if defined(MFC_OpenACC)
7511# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7512!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7513# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7514#elif defined(MFC_OpenMP)
7515# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7516
7517# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7518
7519# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7520
7521# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7522!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7523# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7524#endif
7525# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7526 do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
7527 do l_idx = 0, p; do k_idx = 0, n; do q_idx = 0, m
7528 local_inv_ds = 1._wp/dy(k_idx)
7529 local_term_coeff = q_cons_vf_arg%vf(j_adv)%sf(q_idx, k_idx, l_idx)
7530 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx, l_idx)
7531 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx - 1, l_idx)
7532 rhs_vf_arg(j_adv)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(j_adv)%sf(q_idx, k_idx, &
7533 & l_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7534 end do; end do; end do
7535 end do
7536
7537# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7538#if defined(MFC_OpenACC)
7539# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7540!$acc end parallel loop
7541# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7542#elif defined(MFC_OpenMP)
7543# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7544
7545# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7546!$omp end target teams loop
7547# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7548#endif
7549 end if
7550 end if
7551 case (3)
7552 ! z-direction: loops l_idx (x), q_idx (y), k_idx (z); sf(l_idx, q_idx, k_idx); dz(k_idx); Kterm(l_idx,q_idx,k_idx)
7553 if (grid_geometry == 3) then
7554 use_standard_riemann = (riemann_solver == 1)
7555 else
7556 use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
7557 end if
7558
7559 if (use_standard_riemann) then
7560
7561# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7562
7563# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7564#if defined(MFC_OpenACC)
7565# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7566!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7567# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7568#elif defined(MFC_OpenMP)
7569# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7570
7571# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7572
7573# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7574
7575# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7576!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7577# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7578#endif
7579# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7580 do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
7581 do k_idx = 0, p ! z_extent
7582 do q_idx = 0, n ! y_extent
7583 do l_idx = 0, m ! x_extent
7584 local_inv_ds = 1._wp/dz(k_idx)
7585 local_term_coeff = q_prim_vf_arg%vf(eqn_idx%cont%end + current_idir)%sf(l_idx, q_idx, k_idx)
7586 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx - 1)
7587 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx)
7588 rhs_vf_arg(j_adv)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(j_adv)%sf(l_idx, q_idx, &
7589 & k_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7590 end do
7591 end do
7592 end do
7593 end do
7594
7595# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7596#if defined(MFC_OpenACC)
7597# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7598!$acc end parallel loop
7599# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7600#elif defined(MFC_OpenMP)
7601# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7602
7603# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7604!$omp end target teams loop
7605# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7606#endif
7607 else
7608 if (alt_soundspeed) then
7609 if (bubbles_euler .neqv. .true.) then
7610
7611# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7612
7613# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7614#if defined(MFC_OpenACC)
7615# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7616!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7617# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7618#elif defined(MFC_OpenMP)
7619# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7620
7621# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7622
7623# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7624
7625# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7626!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7627# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7628#endif
7629# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7630 do k_idx = 0, p; do q_idx = 0, n; do l_idx = 0, m
7631 local_inv_ds = 1._wp/dz(k_idx)
7632 local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%end)%sf(l_idx, q_idx, k_idx)
7633 local_k_term_val = kterm_arg(l_idx, q_idx, k_idx) ! Access is safe
7634 local_term_coeff = local_q_cons_val - local_k_term_val
7635 local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(l_idx, q_idx, k_idx)
7636 local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(l_idx, q_idx, k_idx - 1)
7637 rhs_vf_arg(eqn_idx%adv%end)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(eqn_idx%adv%end)%sf(l_idx, &
7638 & q_idx, k_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7639 end do; end do; end do
7640
7641# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7642#if defined(MFC_OpenACC)
7643# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7644!$acc end parallel loop
7645# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7646#elif defined(MFC_OpenMP)
7647# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7648
7649# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7650!$omp end target teams loop
7651# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7652#endif
7653
7654
7655# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7656
7657# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7658#if defined(MFC_OpenACC)
7659# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7660!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7661# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7662#elif defined(MFC_OpenMP)
7663# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7664
7665# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7666
7667# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7668
7669# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7670!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
7671# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7672#endif
7673# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7674 do k_idx = 0, p; do q_idx = 0, n; do l_idx = 0, m
7675 local_inv_ds = 1._wp/dz(k_idx)
7676 local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%beg)%sf(l_idx, q_idx, k_idx)
7677 local_k_term_val = kterm_arg(l_idx, q_idx, k_idx) ! Access is safe
7678 local_term_coeff = local_q_cons_val + local_k_term_val
7679 local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(l_idx, q_idx, k_idx)
7680 local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(l_idx, q_idx, k_idx - 1)
7681 rhs_vf_arg(eqn_idx%adv%beg)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(eqn_idx%adv%beg)%sf(l_idx, &
7682 & q_idx, k_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7683 end do; end do; end do
7684
7685# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7686#if defined(MFC_OpenACC)
7687# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7688!$acc end parallel loop
7689# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7690#elif defined(MFC_OpenMP)
7691# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7692
7693# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7694!$omp end target teams loop
7695# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7696#endif
7697 end if
7698 else
7699
7700# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7701
7702# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7703#if defined(MFC_OpenACC)
7704# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7705!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7706# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7707#elif defined(MFC_OpenMP)
7708# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7709
7710# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7711
7712# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7713
7714# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7715!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
7716# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7717#endif
7718# 1318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7719 do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
7720 do k_idx = 0, p; do q_idx = 0, n; do l_idx = 0, m
7721 local_inv_ds = 1._wp/dz(k_idx)
7722 local_term_coeff = q_cons_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx)
7723 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx)
7724 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx - 1)
7725 rhs_vf_arg(j_adv)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(j_adv)%sf(l_idx, q_idx, &
7726 & k_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
7727 end do; end do; end do
7728 end do
7729
7730# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7731#if defined(MFC_OpenACC)
7732# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7733!$acc end parallel loop
7734# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7735#elif defined(MFC_OpenMP)
7736# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7737
7738# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7739!$omp end target teams loop
7740# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7741#endif
7742 end if
7743 end if
7744 end select
7745
7746 end subroutine s_add_directional_advection_source_terms
7747
7748 end subroutine s_compute_advection_source_term
7749
7750 !> Add viscous, surface-tension, and species-diffusion source flux contributions to the RHS for a given direction
7751 subroutine s_compute_additional_physics_rhs(idir, q_prim_vf, rhs_vf, flux_src_n_in, dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf)
7752
7753 integer, intent(in) :: idir
7754 type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf
7755 type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
7756 type(scalar_field), dimension(sys_size), intent(in) :: flux_src_n_in
7757 type(scalar_field), dimension(sys_size), intent(in) :: dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf
7758 integer :: i, j, k, l
7759
7760 if (idir == 1) then ! x-direction
7761
7762 if (surface_tension) then
7763
7764# 1350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7765
7766# 1350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7767#if defined(MFC_OpenACC)
7768# 1350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7769!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
7770# 1350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7771#elif defined(MFC_OpenMP)
7772# 1350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7773
7774# 1350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7775
7776# 1350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7777
7778# 1350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7779!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
7780# 1350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7781#endif
7782 do l = 0, p
7783 do k = 0, n
7784 do j = 0, m
7785 rhs_vf(eqn_idx%c)%sf(j, k, l) = rhs_vf(eqn_idx%c)%sf(j, k, &
7786 & l) + 1._wp/dx(j)*q_prim_vf(eqn_idx%c)%sf(j, k, l)*(flux_src_n_in(eqn_idx%adv%beg)%sf(j, k, &
7787 & l) - flux_src_n_in(eqn_idx%adv%beg)%sf(j - 1, k, l))
7788 end do
7789 end do
7790 end do
7791
7792# 1360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7793#if defined(MFC_OpenACC)
7794# 1360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7795!$acc end parallel loop
7796# 1360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7797#elif defined(MFC_OpenMP)
7798# 1360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7799
7800# 1360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7801!$omp end target teams loop
7802# 1360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7803#endif
7804 end if
7805
7806 if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
7807
7808# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7809
7810# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7811#if defined(MFC_OpenACC)
7812# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7813!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
7814# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7815#elif defined(MFC_OpenMP)
7816# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7817
7818# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7819
7820# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7821
7822# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7823!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
7824# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7825#endif
7826 do l = 0, p
7827 do k = 0, n
7828 do j = 0, m
7829 if (surface_tension .or. viscous) then
7830
7831# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7832#if defined(MFC_OpenACC)
7833# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7834!$acc loop seq
7835# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7836#elif defined(MFC_OpenMP)
7837# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7838
7839# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7840#endif
7841 do i = eqn_idx%mom%beg, eqn_idx%E
7842 rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dx(j)*(flux_src_n_in(i)%sf(j - 1, k, &
7843 & l) - flux_src_n_in(i)%sf(j, k, l))
7844 end do
7845 end if
7846
7847 if (chem_params%diffusion) then
7848
7849# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7850#if defined(MFC_OpenACC)
7851# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7852!$acc loop seq
7853# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7854#elif defined(MFC_OpenMP)
7855# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7856
7857# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7858#endif
7859 do i = eqn_idx%species%beg, eqn_idx%species%end
7860 rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dx(j)*(flux_src_n_in(i)%sf(j - 1, k, &
7861 & l) - flux_src_n_in(i)%sf(j, k, l))
7862 end do
7863
7864 if (.not. viscous) then
7865 rhs_vf(eqn_idx%E)%sf(j, k, l) = rhs_vf(eqn_idx%E)%sf(j, k, &
7866 & l) + 1._wp/dx(j)*(flux_src_n_in(eqn_idx%E)%sf(j - 1, k, &
7867 & l) - flux_src_n_in(eqn_idx%E)%sf(j, k, l))
7868 end if
7869 end if
7870 end do
7871 end do
7872 end do
7873
7874# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7875#if defined(MFC_OpenACC)
7876# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7877!$acc end parallel loop
7878# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7879#elif defined(MFC_OpenMP)
7880# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7881
7882# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7883!$omp end target teams loop
7884# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7885#endif
7886 end if
7887 else if (idir == 2) then ! y-direction
7888 if (surface_tension) then
7889
7890# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7891
7892# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7893#if defined(MFC_OpenACC)
7894# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7895!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
7896# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7897#elif defined(MFC_OpenMP)
7898# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7899
7900# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7901
7902# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7903
7904# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7905!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
7906# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7907#endif
7908 do l = 0, p
7909 do k = 0, n
7910 do j = 0, m
7911 rhs_vf(eqn_idx%c)%sf(j, k, l) = rhs_vf(eqn_idx%c)%sf(j, k, &
7912 & l) + 1._wp/dy(k)*q_prim_vf(eqn_idx%c)%sf(j, k, l)*(flux_src_n_in(eqn_idx%adv%beg)%sf(j, k, &
7913 & l) - flux_src_n_in(eqn_idx%adv%beg)%sf(j, k - 1, l))
7914 end do
7915 end do
7916 end do
7917
7918# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7919#if defined(MFC_OpenACC)
7920# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7921!$acc end parallel loop
7922# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7923#elif defined(MFC_OpenMP)
7924# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7925
7926# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7927!$omp end target teams loop
7928# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7929#endif
7930 end if
7931
7932 if (cyl_coord .and. ((bc_y%beg == -2) .or. (bc_y%beg == -14))) then
7933 if (viscous) then
7934 if (p > 0) then
7935 call s_compute_viscous_stress_cylindrical_boundary(q_prim_vf, &
7936 & dq_prim_dx_vf(eqn_idx%mom%beg:eqn_idx%mom%end), dq_prim_dy_vf(eqn_idx%mom%beg:eqn_idx%mom%end), &
7937 & dq_prim_dz_vf(eqn_idx%mom%beg:eqn_idx%mom%end), tau_re_vf, idwbuff(1), idwbuff(2), idwbuff(3))
7938 else
7939 call s_compute_viscous_stress_cylindrical_boundary(q_prim_vf, &
7940 & dq_prim_dx_vf(eqn_idx%mom%beg:eqn_idx%mom%end), dq_prim_dy_vf(eqn_idx%mom%beg:eqn_idx%mom%end), &
7941 & dq_prim_dz_vf(eqn_idx%mom%beg:eqn_idx%mom%end), tau_re_vf, idwbuff(1), idwbuff(2), idwbuff(3))
7942 end if
7943
7944
7945# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7946
7947# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7948#if defined(MFC_OpenACC)
7949# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7950!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l)
7951# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7952#elif defined(MFC_OpenMP)
7953# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7954
7955# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7956
7957# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7958
7959# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7960!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(2) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, l)
7961# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7962#endif
7963 do l = 0, p
7964 do j = 0, m
7965
7966# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7967#if defined(MFC_OpenACC)
7968# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7969!$acc loop seq
7970# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7971#elif defined(MFC_OpenMP)
7972# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7973
7974# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7975#endif
7976 do i = eqn_idx%mom%beg, eqn_idx%E
7977 rhs_vf(i)%sf(j, 0, l) = rhs_vf(i)%sf(j, 0, l) + 1._wp/(y_cc(1) - y_cc(-1))*(tau_re_vf(i)%sf(j, &
7978 & -1, l) - tau_re_vf(i)%sf(j, 1, l))
7979 end do
7980 end do
7981 end do
7982
7983# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7984#if defined(MFC_OpenACC)
7985# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7986!$acc end parallel loop
7987# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7988#elif defined(MFC_OpenMP)
7989# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7990
7991# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7992!$omp end target teams loop
7993# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7994#endif
7995 end if
7996
7997
7998# 1434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7999
8000# 1434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8001#if defined(MFC_OpenACC)
8002# 1434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8003!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
8004# 1434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8005#elif defined(MFC_OpenMP)
8006# 1434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8007
8008# 1434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8009
8010# 1434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8011
8012# 1434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8013!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
8014# 1434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8015#endif
8016 do l = 0, p
8017 do k = 1, n
8018 do j = 0, m
8019
8020# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8021#if defined(MFC_OpenACC)
8022# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8023!$acc loop seq
8024# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8025#elif defined(MFC_OpenMP)
8026# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8027
8028# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8029#endif
8030 do i = eqn_idx%mom%beg, eqn_idx%E
8031 rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)*(flux_src_n_in(i)%sf(j, k - 1, &
8032 & l) - flux_src_n_in(i)%sf(j, k, l))
8033 end do
8034 end do
8035 end do
8036 end do
8037
8038# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8039#if defined(MFC_OpenACC)
8040# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8041!$acc end parallel loop
8042# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8043#elif defined(MFC_OpenMP)
8044# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8045
8046# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8047!$omp end target teams loop
8048# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8049#endif
8050 else
8051 if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
8052
8053# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8054
8055# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8056#if defined(MFC_OpenACC)
8057# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8058!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
8059# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8060#elif defined(MFC_OpenMP)
8061# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8062
8063# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8064
8065# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8066
8067# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8068!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
8069# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8070#endif
8071 do l = 0, p
8072 do k = 0, n
8073 do j = 0, m
8074 if (surface_tension .or. viscous) then
8075
8076# 1454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8077#if defined(MFC_OpenACC)
8078# 1454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8079!$acc loop seq
8080# 1454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8081#elif defined(MFC_OpenMP)
8082# 1454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8083
8084# 1454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8085#endif
8086 do i = eqn_idx%mom%beg, eqn_idx%E
8087 rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)*(flux_src_n_in(i)%sf(j, &
8088 & k - 1, l) - flux_src_n_in(i)%sf(j, k, l))
8089 end do
8090 end if
8091
8092 if (chem_params%diffusion) then
8093
8094# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8095#if defined(MFC_OpenACC)
8096# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8097!$acc loop seq
8098# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8099#elif defined(MFC_OpenMP)
8100# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8101
8102# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8103#endif
8104 do i = eqn_idx%species%beg, eqn_idx%species%end
8105 rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)*(flux_src_n_in(i)%sf(j, &
8106 & k - 1, l) - flux_src_n_in(i)%sf(j, k, l))
8107 end do
8108 if (.not. viscous) then
8109 rhs_vf(eqn_idx%E)%sf(j, k, l) = rhs_vf(eqn_idx%E)%sf(j, k, &
8110 & l) + 1._wp/dy(k)*(flux_src_n_in(eqn_idx%E)%sf(j, k - 1, &
8111 & l) - flux_src_n_in(eqn_idx%E)%sf(j, k, l))
8112 end if
8113 end if
8114 end do
8115 end do
8116 end do
8117
8118# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8119#if defined(MFC_OpenACC)
8120# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8121!$acc end parallel loop
8122# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8123#elif defined(MFC_OpenMP)
8124# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8125
8126# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8127!$omp end target teams loop
8128# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8129#endif
8130 end if
8131 end if
8132
8133 ! Applying the geometrical viscous Riemann source fluxes calculated as average of values at cell boundaries
8134 if (cyl_coord) then
8135 if ((bc_y%beg == -2) .or. (bc_y%beg == -14)) then
8136
8137# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8138
8139# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8140#if defined(MFC_OpenACC)
8141# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8142!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
8143# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8144#elif defined(MFC_OpenMP)
8145# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8146
8147# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8148
8149# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8150
8151# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8152!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
8153# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8154#endif
8155 do l = 0, p
8156 do k = 1, n
8157 do j = 0, m
8158
8159# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8160#if defined(MFC_OpenACC)
8161# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8162!$acc loop seq
8163# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8164#elif defined(MFC_OpenMP)
8165# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8166
8167# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8168#endif
8169 do i = eqn_idx%mom%beg, eqn_idx%E
8170 rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) - 5.e-1_wp/y_cc(k)*(flux_src_n_in(i)%sf(j, &
8171 & k - 1, l) + flux_src_n_in(i)%sf(j, k, l))
8172 end do
8173 end do
8174 end do
8175 end do
8176
8177# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8178#if defined(MFC_OpenACC)
8179# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8180!$acc end parallel loop
8181# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8182#elif defined(MFC_OpenMP)
8183# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8184
8185# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8186!$omp end target teams loop
8187# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8188#endif
8189
8190 if (viscous) then
8191
8192# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8193
8194# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8195#if defined(MFC_OpenACC)
8196# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8197!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l)
8198# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8199#elif defined(MFC_OpenMP)
8200# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8201
8202# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8203
8204# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8205
8206# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8207!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(2) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, l)
8208# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8209#endif
8210 do l = 0, p
8211 do j = 0, m
8212
8213# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8214#if defined(MFC_OpenACC)
8215# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8216!$acc loop seq
8217# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8218#elif defined(MFC_OpenMP)
8219# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8220
8221# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8222#endif
8223 do i = eqn_idx%mom%beg, eqn_idx%E
8224 rhs_vf(i)%sf(j, 0, l) = rhs_vf(i)%sf(j, 0, l) - 1._wp/y_cc(0)*tau_re_vf(i)%sf(j, 0, l)
8225 end do
8226 end do
8227 end do
8228
8229# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8230#if defined(MFC_OpenACC)
8231# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8232!$acc end parallel loop
8233# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8234#elif defined(MFC_OpenMP)
8235# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8236
8237# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8238!$omp end target teams loop
8239# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8240#endif
8241 end if
8242 else
8243
8244# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8245
8246# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8247#if defined(MFC_OpenACC)
8248# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8249!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
8250# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8251#elif defined(MFC_OpenMP)
8252# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8253
8254# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8255
8256# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8257
8258# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8259!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
8260# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8261#endif
8262 do l = 0, p
8263 do k = 0, n
8264 do j = 0, m
8265
8266# 1514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8267#if defined(MFC_OpenACC)
8268# 1514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8269!$acc loop seq
8270# 1514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8271#elif defined(MFC_OpenMP)
8272# 1514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8273
8274# 1514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8275#endif
8276 do i = eqn_idx%mom%beg, eqn_idx%E
8277 rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) - 5.e-1_wp/y_cc(k)*(flux_src_n_in(i)%sf(j, &
8278 & k - 1, l) + flux_src_n_in(i)%sf(j, k, l))
8279 end do
8280 end do
8281 end do
8282 end do
8283
8284# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8285#if defined(MFC_OpenACC)
8286# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8287!$acc end parallel loop
8288# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8289#elif defined(MFC_OpenMP)
8290# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8291
8292# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8293!$omp end target teams loop
8294# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8295#endif
8296 end if
8297 end if
8298 else if (idir == 3) then ! z-direction
8299 if (surface_tension) then
8300
8301# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8302
8303# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8304#if defined(MFC_OpenACC)
8305# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8306!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
8307# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8308#elif defined(MFC_OpenMP)
8309# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8310
8311# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8312
8313# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8314
8315# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8316!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
8317# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8318#endif
8319 do l = 0, p
8320 do k = 0, n
8321 do j = 0, m
8322 rhs_vf(eqn_idx%c)%sf(j, k, l) = rhs_vf(eqn_idx%c)%sf(j, k, &
8323 & l) + 1._wp/dz(l)*q_prim_vf(eqn_idx%c)%sf(j, k, l)*(flux_src_n_in(eqn_idx%adv%beg)%sf(j, k, &
8324 & l) - flux_src_n_in(eqn_idx%adv%beg)%sf(j, k, l - 1))
8325 end do
8326 end do
8327 end do
8328
8329# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8330#if defined(MFC_OpenACC)
8331# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8332!$acc end parallel loop
8333# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8334#elif defined(MFC_OpenMP)
8335# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8336
8337# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8338!$omp end target teams loop
8339# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8340#endif
8341 end if
8342
8343 if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
8344
8345# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8346
8347# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8348#if defined(MFC_OpenACC)
8349# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8350!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
8351# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8352#elif defined(MFC_OpenMP)
8353# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8354
8355# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8356
8357# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8358
8359# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8360!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
8361# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8362#endif
8363 do l = 0, p
8364 do k = 0, n
8365 do j = 0, m
8366 if (surface_tension .or. viscous) then
8367
8368# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8369#if defined(MFC_OpenACC)
8370# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8371!$acc loop seq
8372# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8373#elif defined(MFC_OpenMP)
8374# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8375
8376# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8377#endif
8378 do i = eqn_idx%mom%beg, eqn_idx%E
8379 rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dz(l)*(flux_src_n_in(i)%sf(j, k, &
8380 & l - 1) - flux_src_n_in(i)%sf(j, k, l))
8381 end do
8382 end if
8383
8384 if (chem_params%diffusion) then
8385
8386# 1554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8387#if defined(MFC_OpenACC)
8388# 1554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8389!$acc loop seq
8390# 1554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8391#elif defined(MFC_OpenMP)
8392# 1554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8393
8394# 1554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8395#endif
8396 do i = eqn_idx%species%beg, eqn_idx%species%end
8397 rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dz(l)*(flux_src_n_in(i)%sf(j, k, &
8398 & l - 1) - flux_src_n_in(i)%sf(j, k, l))
8399 end do
8400 if (.not. viscous) then
8401 rhs_vf(eqn_idx%E)%sf(j, k, l) = rhs_vf(eqn_idx%E)%sf(j, k, &
8402 & l) + 1._wp/dz(l)*(flux_src_n_in(eqn_idx%E)%sf(j, k, &
8403 & l - 1) - flux_src_n_in(eqn_idx%E)%sf(j, k, l))
8404 end if
8405 end if
8406 end do
8407 end do
8408 end do
8409
8410# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8411#if defined(MFC_OpenACC)
8412# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8413!$acc end parallel loop
8414# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8415#elif defined(MFC_OpenMP)
8416# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8417
8418# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8419!$omp end target teams loop
8420# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8421#endif
8422 end if
8423
8424 if (grid_geometry == 3) then
8425
8426# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8427
8428# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8429#if defined(MFC_OpenACC)
8430# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8431!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
8432# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8433#elif defined(MFC_OpenMP)
8434# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8435
8436# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8437
8438# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8439
8440# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8441!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
8442# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8443#endif
8444 do l = 0, p
8445 do k = 0, n
8446 do j = 0, m
8447 rhs_vf(eqn_idx%mom%beg + 1)%sf(j, k, l) = rhs_vf(eqn_idx%mom%beg + 1)%sf(j, k, &
8448 & l) + 5.e-1_wp*(flux_src_n_in(eqn_idx%mom%end)%sf(j, k, &
8449 & l - 1) + flux_src_n_in(eqn_idx%mom%end)%sf(j, k, l))
8450
8451 rhs_vf(eqn_idx%mom%end)%sf(j, k, l) = rhs_vf(eqn_idx%mom%end)%sf(j, k, &
8452 & l) - 5.e-1_wp*(flux_src_n_in(eqn_idx%mom%beg + 1)%sf(j, k, &
8453 & l - 1) + flux_src_n_in(eqn_idx%mom%beg + 1)%sf(j, k, l))
8454 end do
8455 end do
8456 end do
8457
8458# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8459#if defined(MFC_OpenACC)
8460# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8461!$acc end parallel loop
8462# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8463#elif defined(MFC_OpenMP)
8464# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8465
8466# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8467!$omp end target teams loop
8468# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8469#endif
8470 end if
8471 end if
8472
8473 end subroutine s_compute_additional_physics_rhs
8474
8475 !> Reconstruct left and right cell-boundary values from cell-averaged variables
8476 subroutine s_reconstruct_cell_boundary_values(v_vf, vL_x, vR_x, norm_dir)
8477
8478 type(scalar_field), dimension(iv%beg:iv%end), intent(in) :: v_vf
8479 real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vL_x
8480 real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vR_x
8481 integer, intent(in) :: norm_dir
8482 integer :: recon_dir !< Coordinate direction of the reconstruction
8483 integer :: i, j, k, l
8484
8485# 1603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8486 if (recon_type == weno_type) then
8487 ! Reconstruction in s1-direction
8488 if (norm_dir == 1) then
8489 is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
8490 recon_dir = 1; is1%beg = is1%beg + weno_polyn
8491 is1%end = is1%end - weno_polyn
8492 else if (norm_dir == 2) then
8493 is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
8494 recon_dir = 2; is1%beg = is1%beg + weno_polyn
8495 is1%end = is1%end - weno_polyn
8496 else
8497 is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
8498 recon_dir = 3; is1%beg = is1%beg + weno_polyn
8499 is1%end = is1%end - weno_polyn
8500 end if
8501
8502 call s_weno (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vr_x(:,:,:,iv%beg:iv%end), recon_dir, is1, &
8503 & is2, is3)
8504 end if
8505# 1603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8506 if (recon_type == muscl_type) then
8507 ! Reconstruction in s1-direction
8508 if (norm_dir == 1) then
8509 is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
8510 recon_dir = 1; is1%beg = is1%beg + muscl_polyn
8511 is1%end = is1%end - muscl_polyn
8512 else if (norm_dir == 2) then
8513 is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
8514 recon_dir = 2; is1%beg = is1%beg + muscl_polyn
8515 is1%end = is1%end - muscl_polyn
8516 else
8517 is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
8518 recon_dir = 3; is1%beg = is1%beg + muscl_polyn
8519 is1%end = is1%end - muscl_polyn
8520 end if
8521
8522 call s_muscl (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vr_x(:,:,:,iv%beg:iv%end), recon_dir, is1, &
8523 & is2, is3)
8524 end if
8525# 1623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8526
8527 end subroutine s_reconstruct_cell_boundary_values
8528
8529 !> Perform first-order (piecewise constant) reconstruction of left and right cell-boundary values
8530 subroutine s_reconstruct_cell_boundary_values_first_order(v_vf, vL_x, vR_x, norm_dir)
8531
8532 type(scalar_field), dimension(iv%beg:iv%end), intent(in) :: v_vf
8533 real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vL_x
8534 real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vR_x
8535 integer, intent(in) :: norm_dir
8536 integer :: recon_dir !< Coordinate direction of the reconstruction
8537 integer :: i, j, k, l
8538 ! Reconstruction in s1-direction
8539
8540# 1638 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8541 if (recon_type == weno_type) then
8542 if (norm_dir == 1) then
8543 is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
8544 recon_dir = 1; is1%beg = is1%beg + weno_polyn
8545 is1%end = is1%end - weno_polyn
8546 else if (norm_dir == 2) then
8547 is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
8548 recon_dir = 2; is1%beg = is1%beg + weno_polyn
8549 is1%end = is1%end - weno_polyn
8550 else
8551 is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
8552 recon_dir = 3; is1%beg = is1%beg + weno_polyn
8553 is1%end = is1%end - weno_polyn
8554 end if
8555
8556
8557# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8558#if defined(MFC_OpenACC)
8559# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8560!$acc update device(is1, is2, is3, iv)
8561# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8562#elif defined(MFC_OpenMP)
8563# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8564!$omp target update to(is1, is2, is3, iv)
8565# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8566#endif
8567 end if
8568# 1638 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8569 if (recon_type == muscl_type) then
8570 if (norm_dir == 1) then
8571 is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
8572 recon_dir = 1; is1%beg = is1%beg + muscl_polyn
8573 is1%end = is1%end - muscl_polyn
8574 else if (norm_dir == 2) then
8575 is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
8576 recon_dir = 2; is1%beg = is1%beg + muscl_polyn
8577 is1%end = is1%end - muscl_polyn
8578 else
8579 is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
8580 recon_dir = 3; is1%beg = is1%beg + muscl_polyn
8581 is1%end = is1%end - muscl_polyn
8582 end if
8583
8584
8585# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8586#if defined(MFC_OpenACC)
8587# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8588!$acc update device(is1, is2, is3, iv)
8589# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8590#elif defined(MFC_OpenMP)
8591# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8592!$omp target update to(is1, is2, is3, iv)
8593# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8594#endif
8595 end if
8596# 1656 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8597
8598 if (recon_dir == 1) then
8599
8600# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8601
8602# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8603#if defined(MFC_OpenACC)
8604# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8605!$acc parallel loop collapse(4) gang vector default(present)
8606# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8607#elif defined(MFC_OpenMP)
8608# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8609
8610# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8611
8612# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8613
8614# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8615!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer)
8616# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8617#endif
8618 do i = iv%beg, iv%end
8619 do l = is3%beg, is3%end
8620 do k = is2%beg, is2%end
8621 do j = is1%beg, is1%end
8622 vl_x(j, k, l, i) = v_vf(i)%sf(j, k, l)
8623 vr_x(j, k, l, i) = v_vf(i)%sf(j, k, l)
8624 end do
8625 end do
8626 end do
8627 end do
8628
8629# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8630#if defined(MFC_OpenACC)
8631# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8632!$acc end parallel loop
8633# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8634#elif defined(MFC_OpenMP)
8635# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8636
8637# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8638!$omp end target teams loop
8639# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8640#endif
8641 else if (recon_dir == 2) then
8642
8643# 1671 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8644
8645# 1671 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8646#if defined(MFC_OpenACC)
8647# 1671 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8648!$acc parallel loop collapse(4) gang vector default(present)
8649# 1671 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8650#elif defined(MFC_OpenMP)
8651# 1671 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8652
8653# 1671 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8654
8655# 1671 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8656
8657# 1671 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8658!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer)
8659# 1671 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8660#endif
8661 do i = iv%beg, iv%end
8662 do l = is3%beg, is3%end
8663 do j = is1%beg, is1%end
8664 do k = is2%beg, is2%end
8665 vl_x(k, j, l, i) = v_vf(i)%sf(k, j, l)
8666 vr_x(k, j, l, i) = v_vf(i)%sf(k, j, l)
8667 end do
8668 end do
8669 end do
8670 end do
8671
8672# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8673#if defined(MFC_OpenACC)
8674# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8675!$acc end parallel loop
8676# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8677#elif defined(MFC_OpenMP)
8678# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8679
8680# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8681!$omp end target teams loop
8682# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8683#endif
8684 else if (recon_dir == 3) then
8685
8686# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8687
8688# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8689#if defined(MFC_OpenACC)
8690# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8691!$acc parallel loop collapse(4) gang vector default(present)
8692# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8693#elif defined(MFC_OpenMP)
8694# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8695
8696# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8697
8698# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8699
8700# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8701!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer)
8702# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8703#endif
8704 do i = iv%beg, iv%end
8705 do j = is1%beg, is1%end
8706 do k = is2%beg, is2%end
8707 do l = is3%beg, is3%end
8708 vl_x(l, k, j, i) = v_vf(i)%sf(l, k, j)
8709 vr_x(l, k, j, i) = v_vf(i)%sf(l, k, j)
8710 end do
8711 end do
8712 end do
8713 end do
8714
8715# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8716#if defined(MFC_OpenACC)
8717# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8718!$acc end parallel loop
8719# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8720#elif defined(MFC_OpenMP)
8721# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8722
8723# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8724!$omp end target teams loop
8725# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8726#endif
8727 end if
8728
8729 end subroutine s_reconstruct_cell_boundary_values_first_order
8730
8731 !> Module deallocation and/or disassociation procedures
8732 impure subroutine s_finalize_rhs_module
8733
8734 integer :: i, j, l
8735
8736 call s_finalize_pressure_relaxation_module
8737
8738 if (.not. igr) then
8739 do j = eqn_idx%cont%beg, eqn_idx%cont%end
8740 if (relativity) then
8741 ! Cons and Prim densities are different for relativity
8742#ifdef MFC_DEBUG
8743# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8744 block
8745# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8746 use iso_fortran_env, only: output_unit
8747# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8748
8749# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8750 print *, 'm_rhs.fpp:1711: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
8751# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8752
8753# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8754 call flush (output_unit)
8755# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8756 end block
8757# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8758#endif
8759# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8760
8761# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8762#if defined(MFC_OpenACC)
8763# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8764!$acc exit data delete(q_cons_qp%vf(j)%sf)
8765# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8766#elif defined(MFC_OpenMP)
8767# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8768!$omp target exit data map(release:q_cons_qp%vf(j)%sf)
8769# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8770#endif
8771# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8772 deallocate (q_cons_qp%vf(j)%sf)
8773#ifdef MFC_DEBUG
8774# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8775 block
8776# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8777 use iso_fortran_env, only: output_unit
8778# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8779
8780# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8781 print *, 'm_rhs.fpp:1712: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
8782# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8783
8784# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8785 call flush (output_unit)
8786# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8787 end block
8788# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8789#endif
8790# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8791
8792# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8793#if defined(MFC_OpenACC)
8794# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8795!$acc exit data delete(q_prim_qp%vf(j)%sf)
8796# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8797#elif defined(MFC_OpenMP)
8798# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8799!$omp target exit data map(release:q_prim_qp%vf(j)%sf)
8800# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8801#endif
8802# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8803 deallocate (q_prim_qp%vf(j)%sf)
8804 else
8805 nullify (q_prim_qp%vf(j)%sf)
8806 end if
8807 end do
8808
8809 do j = eqn_idx%adv%beg, eqn_idx%adv%end
8810 nullify (q_prim_qp%vf(j)%sf)
8811 end do
8812
8813 do j = eqn_idx%mom%beg, eqn_idx%E
8814#ifdef MFC_DEBUG
8815# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8816 block
8817# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8818 use iso_fortran_env, only: output_unit
8819# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8820
8821# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8822 print *, 'm_rhs.fpp:1723: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
8823# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8824
8825# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8826 call flush (output_unit)
8827# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8828 end block
8829# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8830#endif
8831# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8832
8833# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8834#if defined(MFC_OpenACC)
8835# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8836!$acc exit data delete(q_cons_qp%vf(j)%sf)
8837# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8838#elif defined(MFC_OpenMP)
8839# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8840!$omp target exit data map(release:q_cons_qp%vf(j)%sf)
8841# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8842#endif
8843# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8844 deallocate (q_cons_qp%vf(j)%sf)
8845#ifdef MFC_DEBUG
8846# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8847 block
8848# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8849 use iso_fortran_env, only: output_unit
8850# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8851
8852# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8853 print *, 'm_rhs.fpp:1724: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
8854# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8855
8856# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8857 call flush (output_unit)
8858# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8859 end block
8860# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8861#endif
8862# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8863
8864# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8865#if defined(MFC_OpenACC)
8866# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8867!$acc exit data delete(q_prim_qp%vf(j)%sf)
8868# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8869#elif defined(MFC_OpenMP)
8870# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8871!$omp target exit data map(release:q_prim_qp%vf(j)%sf)
8872# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8873#endif
8874# 1724 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8875 deallocate (q_prim_qp%vf(j)%sf)
8876 end do
8877 end if
8878
8879#ifdef MFC_DEBUG
8880# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8881 block
8882# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8883 use iso_fortran_env, only: output_unit
8884# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8885
8886# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8887 print *, 'm_rhs.fpp:1728: ', '@:DEALLOCATE(q_cons_qp%vf, q_prim_qp%vf)'
8888# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8889
8890# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8891 call flush (output_unit)
8892# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8893 end block
8894# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8895#endif
8896# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8897
8898# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8899#if defined(MFC_OpenACC)
8900# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8901!$acc exit data delete(q_cons_qp%vf, q_prim_qp%vf)
8902# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8903#elif defined(MFC_OpenMP)
8904# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8905!$omp target exit data map(release:q_cons_qp%vf, q_prim_qp%vf)
8906# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8907#endif
8908# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8909 deallocate (q_cons_qp%vf, q_prim_qp%vf)
8910
8911 if (.not. igr) then
8912#ifdef MFC_DEBUG
8913# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8914 block
8915# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8916 use iso_fortran_env, only: output_unit
8917# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8918
8919# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8920 print *, 'm_rhs.fpp:1731: ', '@:DEALLOCATE(qL_rsx_vf, qR_rsx_vf)'
8921# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8922
8923# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8924 call flush (output_unit)
8925# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8926 end block
8927# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8928#endif
8929# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8930
8931# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8932#if defined(MFC_OpenACC)
8933# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8934!$acc exit data delete(qL_rsx_vf, qR_rsx_vf)
8935# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8936#elif defined(MFC_OpenMP)
8937# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8938!$omp target exit data map(release:qL_rsx_vf, qR_rsx_vf)
8939# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8940#endif
8941# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8942 deallocate (ql_rsx_vf, qr_rsx_vf)
8943
8944 if (viscous) then
8945 do l = eqn_idx%mom%beg, eqn_idx%mom%end
8946#ifdef MFC_DEBUG
8947# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8948 block
8949# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8950 use iso_fortran_env, only: output_unit
8951# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8952
8953# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8954 print *, 'm_rhs.fpp:1735: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf)'
8955# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8956
8957# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8958 call flush (output_unit)
8959# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8960 end block
8961# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8962#endif
8963# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8964
8965# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8966#if defined(MFC_OpenACC)
8967# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8968!$acc exit data delete(dq_prim_dx_qp(1)%vf(l)%sf)
8969# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8970#elif defined(MFC_OpenMP)
8971# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8972!$omp target exit data map(release:dq_prim_dx_qp(1)%vf(l)%sf)
8973# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8974#endif
8975# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8976 deallocate (dq_prim_dx_qp(1)%vf(l)%sf)
8977 end do
8978
8979 if (n > 0) then
8980 do l = eqn_idx%mom%beg, eqn_idx%mom%end
8981#ifdef MFC_DEBUG
8982# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8983 block
8984# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8985 use iso_fortran_env, only: output_unit
8986# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8987
8988# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8989 print *, 'm_rhs.fpp:1740: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf)'
8990# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8991
8992# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8993 call flush (output_unit)
8994# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8995 end block
8996# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8997#endif
8998# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8999
9000# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9001#if defined(MFC_OpenACC)
9002# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9003!$acc exit data delete(dq_prim_dy_qp(1)%vf(l)%sf)
9004# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9005#elif defined(MFC_OpenMP)
9006# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9007!$omp target exit data map(release:dq_prim_dy_qp(1)%vf(l)%sf)
9008# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9009#endif
9010# 1740 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9011 deallocate (dq_prim_dy_qp(1)%vf(l)%sf)
9012 end do
9013
9014 if (p > 0) then
9015 do l = eqn_idx%mom%beg, eqn_idx%mom%end
9016#ifdef MFC_DEBUG
9017# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9018 block
9019# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9020 use iso_fortran_env, only: output_unit
9021# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9022
9023# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9024 print *, 'm_rhs.fpp:1745: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf)'
9025# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9026
9027# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9028 call flush (output_unit)
9029# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9030 end block
9031# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9032#endif
9033# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9034
9035# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9036#if defined(MFC_OpenACC)
9037# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9038!$acc exit data delete(dq_prim_dz_qp(1)%vf(l)%sf)
9039# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9040#elif defined(MFC_OpenMP)
9041# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9042!$omp target exit data map(release:dq_prim_dz_qp(1)%vf(l)%sf)
9043# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9044#endif
9045# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9046 deallocate (dq_prim_dz_qp(1)%vf(l)%sf)
9047 end do
9048 end if
9049 end if
9050
9051#ifdef MFC_DEBUG
9052# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9053 block
9054# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9055 use iso_fortran_env, only: output_unit
9056# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9057
9058# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9059 print *, 'm_rhs.fpp:1750: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf)'
9060# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9061
9062# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9063 call flush (output_unit)
9064# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9065 end block
9066# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9067#endif
9068# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9069
9070# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9071#if defined(MFC_OpenACC)
9072# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9073!$acc exit data delete(dq_prim_dx_qp(1)%vf)
9074# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9075#elif defined(MFC_OpenMP)
9076# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9077!$omp target exit data map(release:dq_prim_dx_qp(1)%vf)
9078# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9079#endif
9080# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9081 deallocate (dq_prim_dx_qp(1)%vf)
9082#ifdef MFC_DEBUG
9083# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9084 block
9085# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9086 use iso_fortran_env, only: output_unit
9087# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9088
9089# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9090 print *, 'm_rhs.fpp:1751: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf)'
9091# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9092
9093# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9094 call flush (output_unit)
9095# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9096 end block
9097# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9098#endif
9099# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9100
9101# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9102#if defined(MFC_OpenACC)
9103# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9104!$acc exit data delete(dq_prim_dy_qp(1)%vf)
9105# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9106#elif defined(MFC_OpenMP)
9107# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9108!$omp target exit data map(release:dq_prim_dy_qp(1)%vf)
9109# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9110#endif
9111# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9112 deallocate (dq_prim_dy_qp(1)%vf)
9113#ifdef MFC_DEBUG
9114# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9115 block
9116# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9117 use iso_fortran_env, only: output_unit
9118# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9119
9120# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9121 print *, 'm_rhs.fpp:1752: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf)'
9122# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9123
9124# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9125 call flush (output_unit)
9126# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9127 end block
9128# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9129#endif
9130# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9131
9132# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9133#if defined(MFC_OpenACC)
9134# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9135!$acc exit data delete(dq_prim_dz_qp(1)%vf)
9136# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9137#elif defined(MFC_OpenMP)
9138# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9139!$omp target exit data map(release:dq_prim_dz_qp(1)%vf)
9140# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9141#endif
9142# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9143 deallocate (dq_prim_dz_qp(1)%vf)
9144
9145 do i = num_dims, 1, -1
9146 do l = eqn_idx%mom%beg, eqn_idx%mom%end
9147#ifdef MFC_DEBUG
9148# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9149 block
9150# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9151 use iso_fortran_env, only: output_unit
9152# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9153
9154# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9155 print *, 'm_rhs.fpp:1756: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf)'
9156# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9157
9158# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9159 call flush (output_unit)
9160# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9161 end block
9162# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9163#endif
9164# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9165
9166# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9167#if defined(MFC_OpenACC)
9168# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9169!$acc exit data delete(dqL_prim_dx_n(i)%vf(l)%sf)
9170# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9171#elif defined(MFC_OpenMP)
9172# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9173!$omp target exit data map(release:dqL_prim_dx_n(i)%vf(l)%sf)
9174# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9175#endif
9176# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9177 deallocate (dql_prim_dx_n(i)%vf(l)%sf)
9178#ifdef MFC_DEBUG
9179# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9180 block
9181# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9182 use iso_fortran_env, only: output_unit
9183# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9184
9185# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9186 print *, 'm_rhs.fpp:1757: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf)'
9187# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9188
9189# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9190 call flush (output_unit)
9191# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9192 end block
9193# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9194#endif
9195# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9196
9197# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9198#if defined(MFC_OpenACC)
9199# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9200!$acc exit data delete(dqR_prim_dx_n(i)%vf(l)%sf)
9201# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9202#elif defined(MFC_OpenMP)
9203# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9204!$omp target exit data map(release:dqR_prim_dx_n(i)%vf(l)%sf)
9205# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9206#endif
9207# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9208 deallocate (dqr_prim_dx_n(i)%vf(l)%sf)
9209 end do
9210
9211 if (n > 0) then
9212 do l = eqn_idx%mom%beg, eqn_idx%mom%end
9213#ifdef MFC_DEBUG
9214# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9215 block
9216# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9217 use iso_fortran_env, only: output_unit
9218# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9219
9220# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9221 print *, 'm_rhs.fpp:1762: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf)'
9222# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9223
9224# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9225 call flush (output_unit)
9226# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9227 end block
9228# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9229#endif
9230# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9231
9232# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9233#if defined(MFC_OpenACC)
9234# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9235!$acc exit data delete(dqL_prim_dy_n(i)%vf(l)%sf)
9236# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9237#elif defined(MFC_OpenMP)
9238# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9239!$omp target exit data map(release:dqL_prim_dy_n(i)%vf(l)%sf)
9240# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9241#endif
9242# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9243 deallocate (dql_prim_dy_n(i)%vf(l)%sf)
9244#ifdef MFC_DEBUG
9245# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9246 block
9247# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9248 use iso_fortran_env, only: output_unit
9249# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9250
9251# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9252 print *, 'm_rhs.fpp:1763: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf)'
9253# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9254
9255# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9256 call flush (output_unit)
9257# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9258 end block
9259# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9260#endif
9261# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9262
9263# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9264#if defined(MFC_OpenACC)
9265# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9266!$acc exit data delete(dqR_prim_dy_n(i)%vf(l)%sf)
9267# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9268#elif defined(MFC_OpenMP)
9269# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9270!$omp target exit data map(release:dqR_prim_dy_n(i)%vf(l)%sf)
9271# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9272#endif
9273# 1763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9274 deallocate (dqr_prim_dy_n(i)%vf(l)%sf)
9275 end do
9276 end if
9277
9278 if (p > 0) then
9279 do l = eqn_idx%mom%beg, eqn_idx%mom%end
9280#ifdef MFC_DEBUG
9281# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9282 block
9283# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9284 use iso_fortran_env, only: output_unit
9285# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9286
9287# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9288 print *, 'm_rhs.fpp:1769: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf)'
9289# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9290
9291# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9292 call flush (output_unit)
9293# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9294 end block
9295# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9296#endif
9297# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9298
9299# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9300#if defined(MFC_OpenACC)
9301# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9302!$acc exit data delete(dqL_prim_dz_n(i)%vf(l)%sf)
9303# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9304#elif defined(MFC_OpenMP)
9305# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9306!$omp target exit data map(release:dqL_prim_dz_n(i)%vf(l)%sf)
9307# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9308#endif
9309# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9310 deallocate (dql_prim_dz_n(i)%vf(l)%sf)
9311#ifdef MFC_DEBUG
9312# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9313 block
9314# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9315 use iso_fortran_env, only: output_unit
9316# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9317
9318# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9319 print *, 'm_rhs.fpp:1770: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf)'
9320# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9321
9322# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9323 call flush (output_unit)
9324# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9325 end block
9326# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9327#endif
9328# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9329
9330# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9331#if defined(MFC_OpenACC)
9332# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9333!$acc exit data delete(dqR_prim_dz_n(i)%vf(l)%sf)
9334# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9335#elif defined(MFC_OpenMP)
9336# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9337!$omp target exit data map(release:dqR_prim_dz_n(i)%vf(l)%sf)
9338# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9339#endif
9340# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9341 deallocate (dqr_prim_dz_n(i)%vf(l)%sf)
9342 end do
9343 end if
9344
9345#ifdef MFC_DEBUG
9346# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9347 block
9348# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9349 use iso_fortran_env, only: output_unit
9350# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9351
9352# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9353 print *, 'm_rhs.fpp:1774: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf)'
9354# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9355
9356# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9357 call flush (output_unit)
9358# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9359 end block
9360# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9361#endif
9362# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9363
9364# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9365#if defined(MFC_OpenACC)
9366# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9367!$acc exit data delete(dqL_prim_dx_n(i)%vf)
9368# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9369#elif defined(MFC_OpenMP)
9370# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9371!$omp target exit data map(release:dqL_prim_dx_n(i)%vf)
9372# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9373#endif
9374# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9375 deallocate (dql_prim_dx_n(i)%vf)
9376#ifdef MFC_DEBUG
9377# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9378 block
9379# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9380 use iso_fortran_env, only: output_unit
9381# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9382
9383# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9384 print *, 'm_rhs.fpp:1775: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf)'
9385# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9386
9387# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9388 call flush (output_unit)
9389# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9390 end block
9391# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9392#endif
9393# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9394
9395# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9396#if defined(MFC_OpenACC)
9397# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9398!$acc exit data delete(dqL_prim_dy_n(i)%vf)
9399# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9400#elif defined(MFC_OpenMP)
9401# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9402!$omp target exit data map(release:dqL_prim_dy_n(i)%vf)
9403# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9404#endif
9405# 1775 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9406 deallocate (dql_prim_dy_n(i)%vf)
9407#ifdef MFC_DEBUG
9408# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9409 block
9410# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9411 use iso_fortran_env, only: output_unit
9412# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9413
9414# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9415 print *, 'm_rhs.fpp:1776: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf)'
9416# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9417
9418# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9419 call flush (output_unit)
9420# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9421 end block
9422# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9423#endif
9424# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9425
9426# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9427#if defined(MFC_OpenACC)
9428# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9429!$acc exit data delete(dqL_prim_dz_n(i)%vf)
9430# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9431#elif defined(MFC_OpenMP)
9432# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9433!$omp target exit data map(release:dqL_prim_dz_n(i)%vf)
9434# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9435#endif
9436# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9437 deallocate (dql_prim_dz_n(i)%vf)
9438#ifdef MFC_DEBUG
9439# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9440 block
9441# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9442 use iso_fortran_env, only: output_unit
9443# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9444
9445# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9446 print *, 'm_rhs.fpp:1777: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf)'
9447# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9448
9449# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9450 call flush (output_unit)
9451# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9452 end block
9453# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9454#endif
9455# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9456
9457# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9458#if defined(MFC_OpenACC)
9459# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9460!$acc exit data delete(dqR_prim_dx_n(i)%vf)
9461# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9462#elif defined(MFC_OpenMP)
9463# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9464!$omp target exit data map(release:dqR_prim_dx_n(i)%vf)
9465# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9466#endif
9467# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9468 deallocate (dqr_prim_dx_n(i)%vf)
9469#ifdef MFC_DEBUG
9470# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9471 block
9472# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9473 use iso_fortran_env, only: output_unit
9474# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9475
9476# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9477 print *, 'm_rhs.fpp:1778: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf)'
9478# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9479
9480# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9481 call flush (output_unit)
9482# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9483 end block
9484# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9485#endif
9486# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9487
9488# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9489#if defined(MFC_OpenACC)
9490# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9491!$acc exit data delete(dqR_prim_dy_n(i)%vf)
9492# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9493#elif defined(MFC_OpenMP)
9494# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9495!$omp target exit data map(release:dqR_prim_dy_n(i)%vf)
9496# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9497#endif
9498# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9499 deallocate (dqr_prim_dy_n(i)%vf)
9500#ifdef MFC_DEBUG
9501# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9502 block
9503# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9504 use iso_fortran_env, only: output_unit
9505# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9506
9507# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9508 print *, 'm_rhs.fpp:1779: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf)'
9509# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9510
9511# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9512 call flush (output_unit)
9513# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9514 end block
9515# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9516#endif
9517# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9518
9519# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9520#if defined(MFC_OpenACC)
9521# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9522!$acc exit data delete(dqR_prim_dz_n(i)%vf)
9523# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9524#elif defined(MFC_OpenMP)
9525# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9526!$omp target exit data map(release:dqR_prim_dz_n(i)%vf)
9527# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9528#endif
9529# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9530 deallocate (dqr_prim_dz_n(i)%vf)
9531 end do
9532
9533 if (weno_re_flux) then
9534#ifdef MFC_DEBUG
9535# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9536 block
9537# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9538 use iso_fortran_env, only: output_unit
9539# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9540
9541# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9542 print *, 'm_rhs.fpp:1783: ', '@:DEALLOCATE(dqL_rsx_vf, dqR_rsx_vf)'
9543# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9544
9545# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9546 call flush (output_unit)
9547# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9548 end block
9549# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9550#endif
9551# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9552
9553# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9554#if defined(MFC_OpenACC)
9555# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9556!$acc exit data delete(dqL_rsx_vf, dqR_rsx_vf)
9557# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9558#elif defined(MFC_OpenMP)
9559# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9560!$omp target exit data map(release:dqL_rsx_vf, dqR_rsx_vf)
9561# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9562#endif
9563# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9564 deallocate (dql_rsx_vf, dqr_rsx_vf)
9565 end if
9566
9567 do i = 1, num_dims
9568#ifdef MFC_DEBUG
9569# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9570 block
9571# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9572 use iso_fortran_env, only: output_unit
9573# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9574
9575# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9576 print *, 'm_rhs.fpp:1787: ', '@:DEALLOCATE(tau_Re_vf(eqn_idx%cont%end + i)%sf)'
9577# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9578
9579# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9580 call flush (output_unit)
9581# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9582 end block
9583# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9584#endif
9585# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9586
9587# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9588#if defined(MFC_OpenACC)
9589# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9590!$acc exit data delete(tau_Re_vf(eqn_idx%cont%end + i)%sf)
9591# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9592#elif defined(MFC_OpenMP)
9593# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9594!$omp target exit data map(release:tau_Re_vf(eqn_idx%cont%end + i)%sf)
9595# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9596#endif
9597# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9598 deallocate (tau_re_vf(eqn_idx%cont%end + i)%sf)
9599 end do
9600#ifdef MFC_DEBUG
9601# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9602 block
9603# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9604 use iso_fortran_env, only: output_unit
9605# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9606
9607# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9608 print *, 'm_rhs.fpp:1789: ', '@:DEALLOCATE(tau_Re_vf(eqn_idx%E)%sf)'
9609# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9610
9611# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9612 call flush (output_unit)
9613# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9614 end block
9615# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9616#endif
9617# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9618
9619# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9620#if defined(MFC_OpenACC)
9621# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9622!$acc exit data delete(tau_Re_vf(eqn_idx%E)%sf)
9623# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9624#elif defined(MFC_OpenMP)
9625# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9626!$omp target exit data map(release:tau_Re_vf(eqn_idx%E)%sf)
9627# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9628#endif
9629# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9630 deallocate (tau_re_vf(eqn_idx%E)%sf)
9631#ifdef MFC_DEBUG
9632# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9633 block
9634# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9635 use iso_fortran_env, only: output_unit
9636# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9637
9638# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9639 print *, 'm_rhs.fpp:1790: ', '@:DEALLOCATE(tau_Re_vf)'
9640# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9641
9642# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9643 call flush (output_unit)
9644# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9645 end block
9646# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9647#endif
9648# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9649
9650# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9651#if defined(MFC_OpenACC)
9652# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9653!$acc exit data delete(tau_Re_vf)
9654# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9655#elif defined(MFC_OpenMP)
9656# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9657!$omp target exit data map(release:tau_Re_vf)
9658# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9659#endif
9660# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9661 deallocate (tau_re_vf)
9662 end if
9663#ifdef MFC_DEBUG
9664# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9665 block
9666# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9667 use iso_fortran_env, only: output_unit
9668# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9669
9670# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9671 print *, 'm_rhs.fpp:1792: ', '@:DEALLOCATE(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)'
9672# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9673
9674# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9675 call flush (output_unit)
9676# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9677 end block
9678# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9679#endif
9680# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9681
9682# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9683#if defined(MFC_OpenACC)
9684# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9685!$acc exit data delete(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
9686# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9687#elif defined(MFC_OpenMP)
9688# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9689!$omp target exit data map(release:dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
9690# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9691#endif
9692# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9693 deallocate (dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n)
9694#ifdef MFC_DEBUG
9695# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9696 block
9697# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9698 use iso_fortran_env, only: output_unit
9699# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9700
9701# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9702 print *, 'm_rhs.fpp:1793: ', '@:DEALLOCATE(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)'
9703# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9704
9705# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9706 call flush (output_unit)
9707# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9708 end block
9709# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9710#endif
9711# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9712
9713# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9714#if defined(MFC_OpenACC)
9715# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9716!$acc exit data delete(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)
9717# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9718#elif defined(MFC_OpenMP)
9719# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9720!$omp target exit data map(release:dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)
9721# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9722#endif
9723# 1793 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9724 deallocate (dqr_prim_dx_n, dqr_prim_dy_n, dqr_prim_dz_n)
9725 end if
9726
9727 if (mpp_lim .and. bubbles_euler) then
9728
9729# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9730#if defined(MFC_OpenACC)
9731# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9732!$acc exit data delete(alf_sum%sf)
9733# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9734#elif defined(MFC_OpenMP)
9735# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9736!$omp target exit data map(release:alf_sum%sf)
9737# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9738#endif
9739 deallocate (alf_sum%sf)
9740 end if
9741
9742 if (.not. igr) then
9743 do i = num_dims, 1, -1
9744 if (i /= 1) then
9745 do l = 1, sys_size
9746 nullify (flux_n(i)%vf(l)%sf)
9747 nullify (flux_src_n(i)%vf(l)%sf)
9748#ifdef MFC_DEBUG
9749# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9750 block
9751# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9752 use iso_fortran_env, only: output_unit
9753# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9754
9755# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9756 print *, 'm_rhs.fpp:1807: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
9757# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9758
9759# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9760 call flush (output_unit)
9761# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9762 end block
9763# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9764#endif
9765# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9766
9767# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9768#if defined(MFC_OpenACC)
9769# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9770!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf)
9771# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9772#elif defined(MFC_OpenMP)
9773# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9774!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf)
9775# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9776#endif
9777# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9778 deallocate (flux_gsrc_n(i)%vf(l)%sf)
9779 end do
9780 else
9781 do l = 1, sys_size
9782#ifdef MFC_DEBUG
9783# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9784 block
9785# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9786 use iso_fortran_env, only: output_unit
9787# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9788
9789# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9790 print *, 'm_rhs.fpp:1811: ', '@:DEALLOCATE(flux_n(i)%vf(l)%sf)'
9791# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9792
9793# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9794 call flush (output_unit)
9795# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9796 end block
9797# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9798#endif
9799# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9800
9801# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9802#if defined(MFC_OpenACC)
9803# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9804!$acc exit data delete(flux_n(i)%vf(l)%sf)
9805# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9806#elif defined(MFC_OpenMP)
9807# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9808!$omp target exit data map(release:flux_n(i)%vf(l)%sf)
9809# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9810#endif
9811# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9812 deallocate (flux_n(i)%vf(l)%sf)
9813#ifdef MFC_DEBUG
9814# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9815 block
9816# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9817 use iso_fortran_env, only: output_unit
9818# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9819
9820# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9821 print *, 'm_rhs.fpp:1812: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
9822# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9823
9824# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9825 call flush (output_unit)
9826# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9827 end block
9828# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9829#endif
9830# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9831
9832# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9833#if defined(MFC_OpenACC)
9834# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9835!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf)
9836# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9837#elif defined(MFC_OpenMP)
9838# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9839!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf)
9840# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9841#endif
9842# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9843 deallocate (flux_gsrc_n(i)%vf(l)%sf)
9844 end do
9845
9846 if (viscous) then
9847 do l = eqn_idx%mom%beg, eqn_idx%E
9848#ifdef MFC_DEBUG
9849# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9850 block
9851# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9852 use iso_fortran_env, only: output_unit
9853# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9854
9855# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9856 print *, 'm_rhs.fpp:1817: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
9857# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9858
9859# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9860 call flush (output_unit)
9861# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9862 end block
9863# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9864#endif
9865# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9866
9867# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9868#if defined(MFC_OpenACC)
9869# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9870!$acc exit data delete(flux_src_n(i)%vf(l)%sf)
9871# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9872#elif defined(MFC_OpenMP)
9873# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9874!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf)
9875# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9876#endif
9877# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9878 deallocate (flux_src_n(i)%vf(l)%sf)
9879 end do
9880 end if
9881
9882 if (chem_params%diffusion .and. .not. viscous) then
9883#ifdef MFC_DEBUG
9884# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9885 block
9886# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9887 use iso_fortran_env, only: output_unit
9888# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9889
9890# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9891 print *, 'm_rhs.fpp:1822: ', '@:DEALLOCATE(flux_src_n(i)%vf(eqn_idx%E)%sf)'
9892# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9893
9894# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9895 call flush (output_unit)
9896# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9897 end block
9898# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9899#endif
9900# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9901
9902# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9903#if defined(MFC_OpenACC)
9904# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9905!$acc exit data delete(flux_src_n(i)%vf(eqn_idx%E)%sf)
9906# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9907#elif defined(MFC_OpenMP)
9908# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9909!$omp target exit data map(release:flux_src_n(i)%vf(eqn_idx%E)%sf)
9910# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9911#endif
9912# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9913 deallocate (flux_src_n(i)%vf(eqn_idx%E)%sf)
9914 end if
9915
9916 if (riemann_solver == 1 .or. riemann_solver == 4) then
9917 do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
9918#ifdef MFC_DEBUG
9919# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9920 block
9921# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9922 use iso_fortran_env, only: output_unit
9923# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9924
9925# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9926 print *, 'm_rhs.fpp:1827: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
9927# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9928
9929# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9930 call flush (output_unit)
9931# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9932 end block
9933# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9934#endif
9935# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9936
9937# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9938#if defined(MFC_OpenACC)
9939# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9940!$acc exit data delete(flux_src_n(i)%vf(l)%sf)
9941# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9942#elif defined(MFC_OpenMP)
9943# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9944!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf)
9945# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9946#endif
9947# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9948 deallocate (flux_src_n(i)%vf(l)%sf)
9949 end do
9950 else
9951 do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
9952 nullify (flux_src_n(i)%vf(l)%sf)
9953 end do
9954 end if
9955
9956#ifdef MFC_DEBUG
9957# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9958 block
9959# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9960 use iso_fortran_env, only: output_unit
9961# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9962
9963# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9964 print *, 'm_rhs.fpp:1835: ', '@:DEALLOCATE(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf)'
9965# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9966
9967# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9968 call flush (output_unit)
9969# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9970 end block
9971# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9972#endif
9973# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9974
9975# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9976#if defined(MFC_OpenACC)
9977# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9978!$acc exit data delete(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf)
9979# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9980#elif defined(MFC_OpenMP)
9981# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9982!$omp target exit data map(release:flux_src_n(i)%vf(eqn_idx%adv%beg)%sf)
9983# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9984#endif
9985# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9986 deallocate (flux_src_n(i)%vf(eqn_idx%adv%beg)%sf)
9987 end if
9988
9989#ifdef MFC_DEBUG
9990# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9991 block
9992# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9993 use iso_fortran_env, only: output_unit
9994# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9995
9996# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9997 print *, 'm_rhs.fpp:1838: ', '@:DEALLOCATE(flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)'
9998# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9999
10000# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10001 call flush (output_unit)
10002# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10003 end block
10004# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10005#endif
10006# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10007
10008# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10009#if defined(MFC_OpenACC)
10010# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10011!$acc exit data delete(flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)
10012# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10013#elif defined(MFC_OpenMP)
10014# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10015!$omp target exit data map(release:flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)
10016# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10017#endif
10018# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10019 deallocate (flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)
10020 end do
10021
10022#ifdef MFC_DEBUG
10023# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10024 block
10025# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10026 use iso_fortran_env, only: output_unit
10027# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10028
10029# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10030 print *, 'm_rhs.fpp:1841: ', '@:DEALLOCATE(flux_n, flux_src_n, flux_gsrc_n)'
10031# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10032
10033# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10034 call flush (output_unit)
10035# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10036 end block
10037# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10038#endif
10039# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10040
10041# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10042#if defined(MFC_OpenACC)
10043# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10044!$acc exit data delete(flux_n, flux_src_n, flux_gsrc_n)
10045# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10046#elif defined(MFC_OpenMP)
10047# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10048!$omp target exit data map(release:flux_n, flux_src_n, flux_gsrc_n)
10049# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10050#endif
10051# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10052 deallocate (flux_n, flux_src_n, flux_gsrc_n)
10053 end if
10054
10055 end subroutine s_finalize_rhs_module
10056
10057end module m_rhs
q_cons_vf
type(scalar_field), dimension(sys_size), intent(inout) q_cons_vf
Definition m_phase_change.fpp.f90:1065
k
integer, intent(in) k
Definition m_phase_change.fpp.f90:1067
j
integer, intent(in) j
Definition m_phase_change.fpp.f90:1067
l
integer, intent(in) l
Definition m_phase_change.fpp.f90:1067
s_add_directional_advection_source_terms
subroutine s_add_directional_advection_source_terms(current_idir, rhs_vf_arg, q_cons_vf_arg, q_prim_vf_arg, flux_src_n_vf_arg, kterm_arg)
Add the advection source flux-difference terms for a single coordinate direction to the RHS.
Definition m_rhs.fpp.f90:7155
m_acoustic_src
One-way acoustic source injection, Maeda and Colonius JCP (2017).
Definition m_acoustic_src.fpp.f90:317
m_body_forces
Computes gravitational and user-defined body force source terms for the momentum equations.
Definition m_body_forces.fpp.f90:317
m_boundary_common
Noncharacteristic and processor boundary condition application for ghost cells and buffer regions.
Definition m_boundary_common.fpp.f90:328
m_bubbles_ee
Computes ensemble-averaged (Euler–Euler) bubble source terms for radius, velocity,...
Definition m_bubbles_EE.fpp.f90:317
m_bubbles_el
Tracks Lagrangian bubbles and couples their dynamics to the Eulerian flow via volume averaging.
Definition m_bubbles_EL.fpp.f90:317
m_cbc
Characteristic boundary conditions (CBC) for slip walls, non-reflecting subsonic inflow/outflow,...
Definition m_cbc.fpp.f90:328
m_cbc::is3
type(int_bounds_info) is3
Indical bounds in the s1-, s2- and s3-directions.
Definition m_cbc.fpp.f90:425
m_cbc::is1
type(int_bounds_info) is1
Definition m_cbc.fpp.f90:425
m_cbc::is2
type(int_bounds_info) is2
Definition m_cbc.fpp.f90:425
m_chemistry
Multi-species chemistry interface for thermodynamic properties, reaction rates, and transport coeffic...
Definition m_chemistry.fpp.f90:329
m_derived_types
Shared derived types for field data, patch geometry, bubble dynamics, and MPI I/O structures.
Definition m_derived_types.fpp.f90:317
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::sys_size
integer sys_size
Number of unknowns in system of eqns.
Definition m_global_parameters.fpp.f90:822
m_helper
Utility routines for bubble model setup, coordinate transforms, array sampling, and special functions...
Definition m_helper.fpp.f90:328
m_hyperelastic
Computes the left Cauchy–Green deformation tensor and hyperelastic stress source terms.
Definition m_hyperelastic.fpp.f90:318
m_hypoelastic
Computes hypoelastic stress-rate source terms and damage-state evolution.
Definition m_hypoelastic.fpp.f90:317
m_ibm
Ghost-node immersed boundary method: locates ghost/image points, computes interpolation coefficients,...
Definition m_ibm.fpp.f90:318
m_igr
Iterative ghost rasterization (IGR) for sharp immersed boundary treatment.
Definition m_igr.fpp.f90:328
m_igr::j
integer(kind=8) j
Definition m_igr.fpp.f90:434
m_igr::i
integer(kind=8) i
Definition m_igr.fpp.f90:434
m_igr::l
integer(kind=8) l
Definition m_igr.fpp.f90:434
m_igr::k
integer(kind=8) k
Definition m_igr.fpp.f90:434
m_mpi_proxy
MPI halo exchange, domain decomposition, and buffer packing/unpacking for the simulation solver.
Definition m_mpi_proxy.fpp.f90:328
m_muscl
MUSCL reconstruction with interface sharpening for contact-preserving advection.
Definition m_muscl.fpp.f90:317
m_nvtx
NVIDIA NVTX profiling API bindings for GPU performance instrumentation.
Definition m_nvtx.f90:6
m_pressure_relaxation
Pressure relaxation for the six-equation multi-component model via Newton–Raphson equilibration and v...
Definition m_pressure_relaxation.fpp.f90:329
m_qbmm
Quadrature-based moment methods (QBMM) for polydisperse bubble moment inversion and transport.
Definition m_qbmm.fpp.f90:328
m_rhs
Assembles the right-hand side of the governing equations using finite-volume flux differencing,...
Definition m_rhs.fpp.f90:329
m_rhs::dqr_prim_dz_n
type(vector_field), dimension(:), allocatable dqr_prim_dz_n
Definition m_rhs.fpp.f90:410
m_rhs::kterm
real(wp), dimension(:,:,:), allocatable kterm
Definition m_rhs.fpp.f90:545
m_rhs::dql_prim_dz_n
type(vector_field), dimension(:), allocatable dql_prim_dz_n
Definition m_rhs.fpp.f90:409
m_rhs::flux_src_n
type(vector_field), dimension(:), allocatable flux_src_n
Definition m_rhs.fpp.f90:454
m_rhs::iglob
integer iglob
Definition m_rhs.fpp.f90:582
m_rhs::dq_prim_dx_qp
type(vector_field), dimension(:), allocatable dq_prim_dx_qp
Definition m_rhs.fpp.f90:391
m_rhs::flux_gsrc_n
type(vector_field), dimension(:), allocatable flux_gsrc_n
Definition m_rhs.fpp.f90:455
m_rhs::s_compute_rhs
impure subroutine, public s_compute_rhs(q_cons_vf, q_t_sf, q_prim_vf, bc_type, rhs_vf, pb_in, rhs_pb, mv_in, rhs_mv, t_step, time_avg, stage)
Compute the right-hand side of the semi-discrete governing equations for a single time stage.
Definition m_rhs.fpp.f90:5940
m_rhs::s_compute_additional_physics_rhs
subroutine s_compute_additional_physics_rhs(idir, q_prim_vf, rhs_vf, flux_src_n_in, dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf)
Add viscous, surface-tension, and species-diffusion source flux contributions to the RHS for a given ...
Definition m_rhs.fpp.f90:7752
m_rhs::s_reconstruct_cell_boundary_values
subroutine s_reconstruct_cell_boundary_values(v_vf, vl_x, vr_x, norm_dir)
Reconstruct left and right cell-boundary values from cell-averaged variables.
Definition m_rhs.fpp.f90:8477
m_rhs::dqr_rsx_vf
real(wp), dimension(:,:,:,:), allocatable dqr_rsx_vf
Definition m_rhs.fpp.f90:547
m_rhs::dql_prim_dy_n
type(vector_field), dimension(:), allocatable dql_prim_dy_n
Definition m_rhs.fpp.f90:409
m_rhs::dql_rsx_vf
real(wp), dimension(:,:,:,:), allocatable dql_rsx_vf
Definition m_rhs.fpp.f90:547
m_rhs::qr_prim
type(vector_field), dimension(:), allocatable qr_prim
Definition m_rhs.fpp.f90:472
m_rhs::s_compute_advection_source_term
subroutine s_compute_advection_source_term(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf)
Accumulate advection source contributions from a given coordinate direction into the RHS.
Definition m_rhs.fpp.f90:6618
m_rhs::is1
type(int_bounds_info) is1
Definition m_rhs.fpp.f90:515
m_rhs::q_cons_qp
type(vector_field) q_cons_qp
WENO-reconstructed cell-average conservative variables at quadrature points.
Definition m_rhs.fpp.f90:361
m_rhs::dq_prim_dy_qp
type(vector_field), dimension(:), allocatable dq_prim_dy_qp
Definition m_rhs.fpp.f90:391
m_rhs::ql_rsx_vf
real(wp), dimension(:,:,:,:), allocatable ql_rsx_vf
Definition m_rhs.fpp.f90:546
m_rhs::is3
type(int_bounds_info) is3
Definition m_rhs.fpp.f90:515
m_rhs::irz
type(int_bounds_info) irz
Definition m_rhs.fpp.f90:502
m_rhs::is2
type(int_bounds_info) is2
Definition m_rhs.fpp.f90:515
m_rhs::tau_re_vf
type(scalar_field), dimension(:), allocatable tau_re_vf
Definition m_rhs.fpp.f90:437
m_rhs::alpha2
real(wp), dimension(:,:,:), allocatable alpha2
Definition m_rhs.fpp.f90:545
m_rhs::qr_rsx_vf
real(wp), dimension(:,:,:,:), allocatable qr_rsx_vf
Definition m_rhs.fpp.f90:546
m_rhs::irx
type(int_bounds_info) irx
Definition m_rhs.fpp.f90:502
m_rhs::iv
type(int_bounds_info) iv
Vector field indical bounds.
Definition m_rhs.fpp.f90:487
m_rhs::alpha1
real(wp), dimension(:,:,:), allocatable alpha1
Definition m_rhs.fpp.f90:545
m_rhs::alf_sum
type(scalar_field) alf_sum
Definition m_rhs.fpp.f90:531
m_rhs::dqr_prim_dy_n
type(vector_field), dimension(:), allocatable dqr_prim_dy_n
Definition m_rhs.fpp.f90:410
m_rhs::iry
type(int_bounds_info) iry
Definition m_rhs.fpp.f90:502
m_rhs::blkmod1
real(wp), dimension(:,:,:), allocatable blkmod1
Definition m_rhs.fpp.f90:545
m_rhs::s_initialize_rhs_module
impure subroutine, public s_initialize_rhs_module
Initialize the RHS module.
Definition m_rhs.fpp.f90:599
m_rhs::ql_prim
type(vector_field), dimension(:), allocatable ql_prim
Definition m_rhs.fpp.f90:472
m_rhs::dql_prim_dx_n
type(vector_field), dimension(:), allocatable dql_prim_dx_n
Definition m_rhs.fpp.f90:409
m_rhs::s_reconstruct_cell_boundary_values_first_order
subroutine s_reconstruct_cell_boundary_values_first_order(v_vf, vl_x, vr_x, norm_dir)
Perform first-order (piecewise constant) reconstruction of left and right cell-boundary values.
Definition m_rhs.fpp.f90:8531
m_rhs::q_prim_qp
type(vector_field) q_prim_qp
Primitive variables at cell-interior quadrature points.
Definition m_rhs.fpp.f90:374
m_rhs::flux_n
type(vector_field), dimension(:), allocatable flux_n
Definition m_rhs.fpp.f90:453
m_rhs::dq_prim_dz_qp
type(vector_field), dimension(:), allocatable dq_prim_dz_qp
Definition m_rhs.fpp.f90:391
m_rhs::blkmod2
real(wp), dimension(:,:,:), allocatable blkmod2
Definition m_rhs.fpp.f90:545
m_rhs::s_finalize_rhs_module
impure subroutine, public s_finalize_rhs_module
Module deallocation and/or disassociation procedures.
Definition m_rhs.fpp.f90:8733
m_rhs::dqr_prim_dx_n
type(vector_field), dimension(:), allocatable dqr_prim_dx_n
Definition m_rhs.fpp.f90:410
m_riemann_solvers
Approximate and exact Riemann solvers (HLL, HLLC, HLLD, exact) for the multicomponent Navier–Stokes e...
Definition m_riemann_solvers.fpp.f90:338
m_surface_tension
Computes capillary source fluxes and color-function gradients for the diffuse-interface surface tensi...
Definition m_surface_tension.fpp.f90:331
m_thinc
THINC and MTHINC interface compression for volume fraction sharpening. THINC (int_comp=1): 1D directi...
Definition m_thinc.fpp.f90:323
m_variables_conversion
Conservative-to-primitive variable conversion, mixture property evaluation, and pressure computation.
Definition m_variables_conversion.fpp.f90:328
m_viscous
Computes viscous stress tensors and diffusive flux contributions for the Navier–Stokes equations.
Definition m_viscous.fpp.f90:327
m_weno
WENO/WENO-Z/TENO reconstruction with optional monotonicity-preserving bounds and mapped weights.
Definition m_weno.fpp.f90:327
m_derived_types::int_bounds_info
Integer bounds for variables.
Definition m_derived_types.fpp.f90:411
m_derived_types::scalar_field
Derived type annexing a scalar field (SF).
Definition m_derived_types.fpp.f90:331
m_derived_types::vector_field
Derived type annexing a vector field (VF).
Definition m_derived_types.fpp.f90:380