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# 207 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
118
119# 232 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
120
121# 243 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
122
123# 245 "/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# 283 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
127
128# 293 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
129
130# 303 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
131
132# 312 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
133
134# 329 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
135
136# 339 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
137
138# 346 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
139
140# 352 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
141
142# 358 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
143
144# 364 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
145
146# 370 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
147
148# 376 "/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# 192 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
218
219# 213 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
220
221# 241 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
222
223# 256 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
224
225# 266 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
226
227# 275 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
228
229# 291 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
230
231# 301 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
232
233# 308 "/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# 21 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
238
239# 37 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
240
241# 50 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
242
243# 76 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
244
245# 91 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
246
247# 102 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
248
249# 115 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
250
251# 143 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
252
253# 154 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
254
255# 165 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
256
257# 176 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
258
259# 187 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
260
261# 198 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
262
263# 208 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
264
265# 214 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
266
267# 220 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
268
269# 226 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
270
271# 232 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
272
273# 234 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
274# 235 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
275! New line at end of file is required for FYPP
276# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
277
278# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
279
280! Caution:
281! This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI rank.
282! That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0.
283! For an example see misc/nvidia_uvm/bind.sh.
284# 63 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
285
286# 81 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
287
288# 88 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
289
290# 111 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
291
292# 127 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
293
294# 153 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
295
296# 159 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
297
298# 167 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
299! New line at end of file is required for FYPP
300# 7 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp" 2
301
302!> @brief Assembles the right-hand side of the governing equations using finite-volume flux differencing, Riemann solvers, and physical source terms
303module m_rhs
304
305 use m_derived_types !< definitions of the derived types
306
307 use m_global_parameters !< definitions of the global parameters
308
309 use m_mpi_proxy !< message passing interface (mpi) module proxy
310
311 use m_variables_conversion !< state variables type conversion procedures
312
313 use m_weno !< weighted and essentially non-oscillatory (weno)
314 !! schemes for spatial reconstruction of variables
315
316 use m_muscl !< monotonic upstream-centered (muscl)
317 !! schemes for conservation laws
318
319 use m_riemann_solvers !< exact and approximate riemann problem solvers
320
321 use m_cbc !< characteristic boundary conditions (cbc)
322
323 use m_bubbles_ee !< ensemble-averaged bubble dynamics routines
324
325 use m_bubbles_el
326
327 use m_qbmm !< moment inversion
328
329 use m_hypoelastic
330
331 use m_hyperelastic
332
333 use m_acoustic_src
334
335 use m_viscous
336
337 use m_ibm
338
339 use m_nvtx
340
341 use m_boundary_common
342
343 use m_helper
344
345 use m_surface_tension
346
347 use m_body_forces
348
349 use m_chemistry
350
351 use m_igr
352
353 use m_pressure_relaxation
354
355 implicit none
356
357 private; public :: s_initialize_rhs_module, &
358 s_compute_rhs, &
359 s_finalize_rhs_module
360
361 !! This variable contains the WENO-reconstructed values of the cell-average
362 !! conservative variables, which are located in q_cons_vf, at cell-interior
363 !! Gaussian quadrature points (QP).
364 type(vector_field) :: q_cons_qp !<
365
366# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
367#if defined(MFC_OpenACC)
368# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
369!$acc declare create(q_cons_qp)
370# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
371#elif defined(MFC_OpenMP)
372# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
373!$omp declare target (q_cons_qp)
374# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
375#endif
376
377 !! The primitive variables at cell-interior Gaussian quadrature points. These
378 !! are calculated from the conservative variables and gradient magnitude (GM)
379 !! of the volume fractions, q_cons_qp and gm_alpha_qp, respectively.
380 type(vector_field) :: q_prim_qp !<
381
382# 77 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
383#if defined(MFC_OpenACC)
384# 77 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
385!$acc declare create(q_prim_qp)
386# 77 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
387#elif defined(MFC_OpenMP)
388# 77 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
389!$omp declare target (q_prim_qp)
390# 77 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
391#endif
392
393 !> @name The first-order spatial derivatives of the primitive variables at cell-
394 !! interior Gaussian quadrature points. These are WENO-reconstructed from
395 !! their respective cell-average values, obtained through the application
396 !! of the divergence theorem on the integral-average cell-boundary values
397 !! of the primitive variables, located in qK_prim_n, where K = L or R.
398 !> @{
399 type(vector_field), allocatable, dimension(:) :: dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp
400
401# 86 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
402#if defined(MFC_OpenACC)
403# 86 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
404!$acc declare create(dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp)
405# 86 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
406#elif defined(MFC_OpenMP)
407# 86 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
408!$omp declare target (dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp)
409# 86 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
410#endif
411 !> @}
412
413 !> @name The left and right WENO-reconstructed cell-boundary values of the cell-
414 !! average first-order spatial derivatives of the primitive variables. The
415 !! cell-average of the first-order spatial derivatives may be found in the
416 !! variables dq_prim_ds_qp, where s = x, y or z.
417 !> @{
418 type(vector_field), allocatable, dimension(:) :: dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n
419 type(vector_field), allocatable, dimension(:) :: dqr_prim_dx_n, dqr_prim_dy_n, dqr_prim_dz_n
420#if defined(MFC_OpenACC)
421
422# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
423#if defined(MFC_OpenACC)
424# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
425!$acc declare create(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
426# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
427#elif defined(MFC_OpenMP)
428# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
429!$omp declare target (dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
430# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
431#endif
432
433# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
434#if defined(MFC_OpenACC)
435# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
436!$acc declare create(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)
437# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
438#elif defined(MFC_OpenMP)
439# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
440!$omp declare target (dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)
441# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
442#endif
443#endif
444 !> @}
445
446 type(scalar_field), allocatable, dimension(:) :: tau_re_vf
447
448# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
449#if defined(MFC_OpenACC)
450# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
451!$acc declare create(tau_Re_vf)
452# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
453#elif defined(MFC_OpenMP)
454# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
455!$omp declare target (tau_Re_vf)
456# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
457#endif
458
459 type(vector_field) :: gm_alpha_qp !<
460 !! The gradient magnitude of the volume fractions at cell-interior Gaussian
461 !! quadrature points. gm_alpha_qp is calculated from individual first-order
462 !! spatial derivatives located in dq_prim_ds_qp.
463
464
465# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
466#if defined(MFC_OpenACC)
467# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
468!$acc declare create(gm_alpha_qp)
469# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
470#elif defined(MFC_OpenMP)
471# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
472!$omp declare target (gm_alpha_qp)
473# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
474#endif
475
476 !> @name The left and right WENO-reconstructed cell-boundary values of the cell-
477 !! average gradient magnitude of volume fractions, located in gm_alpha_qp.
478 !> @{
479 type(vector_field), allocatable, dimension(:) :: gm_alphal_n
480 type(vector_field), allocatable, dimension(:) :: gm_alphar_n
481#if defined(MFC_OpenACC)
482
483# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
484#if defined(MFC_OpenACC)
485# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
486!$acc declare create(gm_alphaL_n, gm_alphaR_n)
487# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
488#elif defined(MFC_OpenMP)
489# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
490!$omp declare target (gm_alphaL_n, gm_alphaR_n)
491# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
492#endif
493#endif
494 !> @}
495
496 !> @name The cell-boundary values of the fluxes (src - source, gsrc - geometrical
497 !! source). These are computed by applying the chosen Riemann problem solver
498 !! .on the left and right cell-boundary values of the primitive variables
499 !> @{
500 type(vector_field), allocatable, dimension(:) :: flux_n
501 type(vector_field), allocatable, dimension(:) :: flux_src_n
502 type(vector_field), allocatable, dimension(:) :: flux_gsrc_n
503
504#if defined(MFC_OpenACC)
505
506# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
507#if defined(MFC_OpenACC)
508# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
509!$acc declare create(flux_n, flux_src_n, flux_gsrc_n)
510# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
511#elif defined(MFC_OpenMP)
512# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
513!$omp declare target (flux_n, flux_src_n, flux_gsrc_n)
514# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
515#endif
516#endif
517
518 !> @}
519
520 type(vector_field), allocatable, dimension(:) :: ql_prim, qr_prim
521#if defined(MFC_OpenACC)
522
523# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
524#if defined(MFC_OpenACC)
525# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
526!$acc declare create(qL_prim, qR_prim)
527# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
528#elif defined(MFC_OpenMP)
529# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
530!$omp declare target (qL_prim, qR_prim)
531# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
532#endif
533#endif
534
535 type(int_bounds_info) :: iv !< Vector field indical bounds
536
537# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
538#if defined(MFC_OpenACC)
539# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
540!$acc declare create(iv)
541# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
542#elif defined(MFC_OpenMP)
543# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
544!$omp declare target (iv)
545# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
546#endif
547
548 !> @name Indical bounds in the x-, y- and z-directions
549 !> @{
550 type(int_bounds_info) :: irx, iry, irz
551
552# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
553#if defined(MFC_OpenACC)
554# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
555!$acc declare create(irx, iry, irz)
556# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
557#elif defined(MFC_OpenMP)
558# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
559!$omp declare target (irx, iry, irz)
560# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
561#endif
562
563 type(int_bounds_info) :: is1, is2, is3
564 !> @}
565
566# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
567#if defined(MFC_OpenACC)
568# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
569!$acc declare create(is1, is2, is3)
570# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
571#elif defined(MFC_OpenMP)
572# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
573!$omp declare target (is1, is2, is3)
574# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
575#endif
576
577 !> @name Saved fluxes for testing
578 !> @{
579 type(scalar_field) :: alf_sum
580 !> @}
581
582# 157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
583#if defined(MFC_OpenACC)
584# 157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
585!$acc declare create(alf_sum)
586# 157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
587#elif defined(MFC_OpenMP)
588# 157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
589!$omp declare target (alf_sum)
590# 157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
591#endif
592
593 real(wp), allocatable, dimension(:, :, :) :: blkmod1, blkmod2, alpha1, alpha2, kterm
594 real(wp), allocatable, dimension(:, :, :, :) :: ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, qr_rsx_vf, qr_rsy_vf, qr_rsz_vf
595 real(wp), allocatable, dimension(:, :, :, :) :: dql_rsx_vf, dql_rsy_vf, dql_rsz_vf, dqr_rsx_vf, dqr_rsy_vf, dqr_rsz_vf
596
597# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
598#if defined(MFC_OpenACC)
599# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
600!$acc declare create(blkmod1, blkmod2, alpha1, alpha2, Kterm)
601# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
602#elif defined(MFC_OpenMP)
603# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
604!$omp declare target (blkmod1, blkmod2, alpha1, alpha2, Kterm)
605# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
606#endif
607
608# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
609#if defined(MFC_OpenACC)
610# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
611!$acc declare create(qL_rsx_vf, qL_rsy_vf, qL_rsz_vf, qR_rsx_vf, qR_rsy_vf, qR_rsz_vf)
612# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
613#elif defined(MFC_OpenMP)
614# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
615!$omp declare target (qL_rsx_vf, qL_rsy_vf, qL_rsz_vf, qR_rsx_vf, qR_rsy_vf, qR_rsz_vf)
616# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
617#endif
618
619# 164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
620#if defined(MFC_OpenACC)
621# 164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
622!$acc declare create(dqL_rsx_vf, dqL_rsy_vf, dqL_rsz_vf, dqR_rsx_vf, dqR_rsy_vf, dqR_rsz_vf)
623# 164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
624#elif defined(MFC_OpenMP)
625# 164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
626!$omp declare target (dqL_rsx_vf, dqL_rsy_vf, dqL_rsz_vf, dqR_rsx_vf, dqR_rsy_vf, dqR_rsz_vf)
627# 164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
628#endif
629
630 real(wp), allocatable, dimension(:, :, :) :: nbub !< Bubble number density
631
632# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
633#if defined(MFC_OpenACC)
634# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
635!$acc declare create(nbub)
636# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
637#elif defined(MFC_OpenMP)
638# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
639!$omp declare target (nbub)
640# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
641#endif
642
643contains
644
645 !> The computation of parameters, the allocation of memory,
646 !! the association of pointers and/or the execution of any
647 !! other procedures that are necessary to setup the module.
648 impure subroutine s_initialize_rhs_module
649
650 integer :: i, j, k, l, id !< Generic loop iterators
651
652
653# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
654#if defined(MFC_OpenACC)
655# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
656!$acc enter data copyin(idwbuff)
657# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
658#elif defined(MFC_OpenMP)
659# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
660!$omp target enter data map(to:idwbuff)
661# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
662#endif
663
664# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
665#if defined(MFC_OpenACC)
666# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
667!$acc update device(idwbuff)
668# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
669#elif defined(MFC_OpenMP)
670# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
671!$omp target update to(idwbuff)
672# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
673#endif
674
675#ifdef MFC_DEBUG
676# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
677 block
678# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
679 use iso_fortran_env, only: output_unit
680# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
681
682# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
683 print *, 'm_rhs.fpp:181: ', '@:ALLOCATE(q_cons_qp%vf(1:sys_size))'
684# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
685
686# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
687 call flush (output_unit)
688# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
689 end block
690# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
691#endif
692# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
693 allocate (q_cons_qp%vf(1:sys_size))
694# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
695
696# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
697
698# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
699#if defined(MFC_OpenACC)
700# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
701!$acc enter data create(q_cons_qp%vf)
702# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
703#elif defined(MFC_OpenMP)
704# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
705!$omp target enter data map(always,alloc:q_cons_qp%vf)
706# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
707#endif
708#ifdef MFC_DEBUG
709# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
710 block
711# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
712 use iso_fortran_env, only: output_unit
713# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
714
715# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
716 print *, 'm_rhs.fpp:182: ', '@:ALLOCATE(q_prim_qp%vf(1:sys_size))'
717# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
718
719# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
720 call flush (output_unit)
721# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
722 end block
723# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
724#endif
725# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
726 allocate (q_prim_qp%vf(1:sys_size))
727# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
728
729# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
730
731# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
732#if defined(MFC_OpenACC)
733# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
734!$acc enter data create(q_prim_qp%vf)
735# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
736#elif defined(MFC_OpenMP)
737# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
738!$omp target enter data map(always,alloc:q_prim_qp%vf)
739# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
740#endif
741
742 if (.not. igr) then
743 do l = 1, sys_size
744#ifdef MFC_DEBUG
745# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
746 block
747# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
748 use iso_fortran_env, only: output_unit
749# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
750
751# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
752 print *, 'm_rhs.fpp:186: ', '@: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))'
753# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
754
755# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
756 call flush (output_unit)
757# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
758 end block
759# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
760#endif
761# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
762 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))
763# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
764
765# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
766
767# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
768#if defined(MFC_OpenACC)
769# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
770!$acc enter data create(q_cons_qp%vf(l)%sf)
771# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
772#elif defined(MFC_OpenMP)
773# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
774!$omp target enter data map(always,alloc:q_cons_qp%vf(l)%sf)
775# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
776#endif
777 end do
778 do l = mom_idx%beg, e_idx
779#ifdef MFC_DEBUG
780# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
781 block
782# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
783 use iso_fortran_env, only: output_unit
784# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
785
786# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
787 print *, 'm_rhs.fpp:189: ', '@: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# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
789
790# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
791 call flush (output_unit)
792# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
793 end block
794# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
795#endif
796# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
797 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))
798# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
799
800# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
801
802# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
803#if defined(MFC_OpenACC)
804# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
805!$acc enter data create(q_prim_qp%vf(l)%sf)
806# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
807#elif defined(MFC_OpenMP)
808# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
809!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf)
810# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
811#endif
812 end do
813
814 end if
815
816 if (surface_tension) then
817 ! This assumes that the color function advection equation is
818 ! the last equation. If this changes then this logic will
819 ! need updated
820 do l = adv_idx%end + 1, sys_size - 1
821#ifdef MFC_DEBUG
822# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
823 block
824# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
825 use iso_fortran_env, only: output_unit
826# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
827
828# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
829 print *, 'm_rhs.fpp:199: ', '@: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))'
830# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
831
832# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
833 call flush (output_unit)
834# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
835 end block
836# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
837#endif
838# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
839 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))
840# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
841
842# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
843
844# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
845#if defined(MFC_OpenACC)
846# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
847!$acc enter data create(q_prim_qp%vf(l)%sf)
848# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
849#elif defined(MFC_OpenMP)
850# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
851!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf)
852# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
853#endif
854 end do
855 else
856 do l = adv_idx%end + 1, sys_size
857#ifdef MFC_DEBUG
858# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
859 block
860# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
861 use iso_fortran_env, only: output_unit
862# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
863
864# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
865 print *, 'm_rhs.fpp:203: ', '@: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))'
866# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
867
868# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
869 call flush (output_unit)
870# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
871 end block
872# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
873#endif
874# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
875 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))
876# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
877
878# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
879
880# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
881#if defined(MFC_OpenACC)
882# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
883!$acc enter data create(q_prim_qp%vf(l)%sf)
884# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
885#elif defined(MFC_OpenMP)
886# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
887!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf)
888# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
889#endif
890 end do
891
892 end if
893
894 if (.not. igr) then
895#ifdef _CRAYFTN
896# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
897 block
898# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
899 integer :: macros_setup_vfs_i
900# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
901
902# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
903#ifdef MFC_DEBUG
904# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
905 block
906# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
907 use iso_fortran_env, only: output_unit
908# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
909
910# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
911 print *, 'm_rhs.fpp:209: ', '@:ACC_SETUP_VFs(q_cons_qp, q_prim_qp)'
912# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
913
914# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
915 call flush (output_unit)
916# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
917 end block
918# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
919#endif
920# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
921
922# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
923
924# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
925#if defined(MFC_OpenACC)
926# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
927!$acc enter data copyin(q_cons_qp)
928# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
929#elif defined(MFC_OpenMP)
930# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
931!$omp target enter data map(to:q_cons_qp)
932# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
933#endif
934# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
935
936# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
937#if defined(MFC_OpenACC)
938# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
939!$acc enter data copyin(q_cons_qp%vf)
940# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
941#elif defined(MFC_OpenMP)
942# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
943!$omp target enter data map(to:q_cons_qp%vf)
944# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
945#endif
946# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
947 if (allocated(q_cons_qp%vf)) then
948# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
949 do macros_setup_vfs_i = lbound(q_cons_qp%vf, 1), ubound(q_cons_qp%vf, 1)
950# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
951 if (associated(q_cons_qp%vf(macros_setup_vfs_i)%sf)) then
952# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
953
954# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
955#if defined(MFC_OpenACC)
956# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
957!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i))
958# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
959#elif defined(MFC_OpenMP)
960# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
961!$omp target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i))
962# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
963#endif
964# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
965
966# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
967#if defined(MFC_OpenACC)
968# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
969!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)%sf)
970# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
971#elif defined(MFC_OpenMP)
972# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
973!$omp target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i)%sf)
974# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
975#endif
976# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
977 end if
978# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
979 end do
980# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
981 end if
982# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
983
984# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
985#if defined(MFC_OpenACC)
986# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
987!$acc enter data copyin(q_prim_qp)
988# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
989#elif defined(MFC_OpenMP)
990# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
991!$omp target enter data map(to:q_prim_qp)
992# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
993#endif
994# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
995
996# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
997#if defined(MFC_OpenACC)
998# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
999!$acc enter data copyin(q_prim_qp%vf)
1000# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1001#elif defined(MFC_OpenMP)
1002# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1003!$omp target enter data map(to:q_prim_qp%vf)
1004# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1005#endif
1006# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1007 if (allocated(q_prim_qp%vf)) then
1008# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1009 do macros_setup_vfs_i = lbound(q_prim_qp%vf, 1), ubound(q_prim_qp%vf, 1)
1010# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1011 if (associated(q_prim_qp%vf(macros_setup_vfs_i)%sf)) then
1012# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1013
1014# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1015#if defined(MFC_OpenACC)
1016# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1017!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i))
1018# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1019#elif defined(MFC_OpenMP)
1020# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1021!$omp target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i))
1022# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1023#endif
1024# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1025
1026# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1027#if defined(MFC_OpenACC)
1028# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1029!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)%sf)
1030# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1031#elif defined(MFC_OpenMP)
1032# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1033!$omp target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i)%sf)
1034# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1035#endif
1036# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1037 end if
1038# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1039 end do
1040# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1041 end if
1042# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1043 end block
1044# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1045#endif
1046
1047 do l = 1, cont_idx%end
1048 if (relativity) then
1049 ! Cons and Prim densities are different for relativity
1050#ifdef MFC_DEBUG
1051# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1052 block
1053# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1054 use iso_fortran_env, only: output_unit
1055# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1056
1057# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1058 print *, 'm_rhs.fpp:214: ', '@: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))'
1059# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1060
1061# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1062 call flush (output_unit)
1063# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1064 end block
1065# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1066#endif
1067# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1068 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))
1069# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1070
1071# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1072
1073# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1074#if defined(MFC_OpenACC)
1075# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1076!$acc enter data create(q_prim_qp%vf(l)%sf)
1077# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1078#elif defined(MFC_OpenMP)
1079# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1080!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf)
1081# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1082#endif
1083 else
1084 q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
1085
1086# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1087#if defined(MFC_OpenACC)
1088# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1089!$acc enter data copyin(q_prim_qp%vf(l)%sf)
1090# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1091#elif defined(MFC_OpenMP)
1092# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1093!$omp target enter data map(to:q_prim_qp%vf(l)%sf)
1094# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1095#endif
1096
1097# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1098#if defined(MFC_OpenACC)
1099# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1100!$acc enter data attach(q_prim_qp%vf(l)%sf)
1101# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1102#elif defined(MFC_OpenMP)
1103# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1104!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf)
1105# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1106#endif
1107 end if
1108 end do
1109
1110 do l = adv_idx%beg, adv_idx%end
1111 q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
1112
1113# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1114#if defined(MFC_OpenACC)
1115# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1116!$acc enter data copyin(q_prim_qp%vf(l)%sf)
1117# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1118#elif defined(MFC_OpenMP)
1119# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1120!$omp target enter data map(to:q_prim_qp%vf(l)%sf)
1121# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1122#endif
1123
1124# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1125#if defined(MFC_OpenACC)
1126# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1127!$acc enter data attach(q_prim_qp%vf(l)%sf)
1128# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1129#elif defined(MFC_OpenMP)
1130# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1131!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf)
1132# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1133#endif
1134 end do
1135 end if
1136
1137 if (surface_tension) then
1138 q_prim_qp%vf(c_idx)%sf => &
1139 q_cons_qp%vf(c_idx)%sf
1140
1141# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1142#if defined(MFC_OpenACC)
1143# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1144!$acc enter data copyin(q_prim_qp%vf(c_idx)%sf)
1145# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1146#elif defined(MFC_OpenMP)
1147# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1148!$omp target enter data map(to:q_prim_qp%vf(c_idx)%sf)
1149# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1150#endif
1151
1152# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1153#if defined(MFC_OpenACC)
1154# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1155!$acc enter data attach(q_prim_qp%vf(c_idx)%sf)
1156# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1157#elif defined(MFC_OpenMP)
1158# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1159!$omp target enter data map(always,to:q_prim_qp%vf(c_idx)%sf)
1160# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1161#endif
1162 end if
1163
1164 if (hyper_cleaning) then
1165 q_prim_qp%vf(psi_idx)%sf => &
1166 q_cons_qp%vf(psi_idx)%sf
1167
1168# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1169#if defined(MFC_OpenACC)
1170# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1171!$acc enter data copyin(q_prim_qp%vf(psi_idx)%sf)
1172# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1173#elif defined(MFC_OpenMP)
1174# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1175!$omp target enter data map(to:q_prim_qp%vf(psi_idx)%sf)
1176# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1177#endif
1178
1179# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1180#if defined(MFC_OpenACC)
1181# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1182!$acc enter data attach(q_prim_qp%vf(psi_idx)%sf)
1183# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1184#elif defined(MFC_OpenMP)
1185# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1186!$omp target enter data map(always,to:q_prim_qp%vf(psi_idx)%sf)
1187# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1188#endif
1189 end if
1190
1191 ! Allocation/Association of flux_n, flux_src_n, and flux_gsrc_n
1192 if (.not. igr) then
1193#ifdef MFC_DEBUG
1194# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1195 block
1196# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1197 use iso_fortran_env, only: output_unit
1198# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1199
1200# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1201 print *, 'm_rhs.fpp:245: ', '@:ALLOCATE(flux_n(1:num_dims))'
1202# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1203
1204# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1205 call flush (output_unit)
1206# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1207 end block
1208# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1209#endif
1210# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1211 allocate (flux_n(1:num_dims))
1212# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1213
1214# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1215
1216# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1217#if defined(MFC_OpenACC)
1218# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1219!$acc enter data create(flux_n)
1220# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1221#elif defined(MFC_OpenMP)
1222# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1223!$omp target enter data map(always,alloc:flux_n)
1224# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1225#endif
1226#ifdef MFC_DEBUG
1227# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1228 block
1229# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1230 use iso_fortran_env, only: output_unit
1231# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1232
1233# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1234 print *, 'm_rhs.fpp:246: ', '@:ALLOCATE(flux_src_n(1:num_dims))'
1235# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1236
1237# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1238 call flush (output_unit)
1239# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1240 end block
1241# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1242#endif
1243# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1244 allocate (flux_src_n(1:num_dims))
1245# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1246
1247# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1248
1249# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1250#if defined(MFC_OpenACC)
1251# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1252!$acc enter data create(flux_src_n)
1253# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1254#elif defined(MFC_OpenMP)
1255# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1256!$omp target enter data map(always,alloc:flux_src_n)
1257# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1258#endif
1259#ifdef MFC_DEBUG
1260# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1261 block
1262# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1263 use iso_fortran_env, only: output_unit
1264# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1265
1266# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1267 print *, 'm_rhs.fpp:247: ', '@:ALLOCATE(flux_gsrc_n(1:num_dims))'
1268# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1269
1270# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1271 call flush (output_unit)
1272# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1273 end block
1274# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1275#endif
1276# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1277 allocate (flux_gsrc_n(1:num_dims))
1278# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1279
1280# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1281
1282# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1283#if defined(MFC_OpenACC)
1284# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1285!$acc enter data create(flux_gsrc_n)
1286# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1287#elif defined(MFC_OpenMP)
1288# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1289!$omp target enter data map(always,alloc:flux_gsrc_n)
1290# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1291#endif
1292
1293 do i = 1, num_dims
1294
1295#ifdef MFC_DEBUG
1296# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1297 block
1298# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1299 use iso_fortran_env, only: output_unit
1300# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1301
1302# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1303 print *, 'm_rhs.fpp:251: ', '@:ALLOCATE(flux_n(i)%vf(1:sys_size))'
1304# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1305
1306# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1307 call flush (output_unit)
1308# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1309 end block
1310# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1311#endif
1312# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1313 allocate (flux_n(i)%vf(1:sys_size))
1314# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1315
1316# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1317
1318# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1319#if defined(MFC_OpenACC)
1320# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1321!$acc enter data create(flux_n(i)%vf)
1322# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1323#elif defined(MFC_OpenMP)
1324# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1325!$omp target enter data map(always,alloc:flux_n(i)%vf)
1326# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1327#endif
1328#ifdef MFC_DEBUG
1329# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1330 block
1331# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1332 use iso_fortran_env, only: output_unit
1333# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1334
1335# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1336 print *, 'm_rhs.fpp:252: ', '@:ALLOCATE(flux_src_n(i)%vf(1:sys_size))'
1337# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1338
1339# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1340 call flush (output_unit)
1341# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1342 end block
1343# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1344#endif
1345# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1346 allocate (flux_src_n(i)%vf(1:sys_size))
1347# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1348
1349# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1350
1351# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1352#if defined(MFC_OpenACC)
1353# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1354!$acc enter data create(flux_src_n(i)%vf)
1355# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1356#elif defined(MFC_OpenMP)
1357# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1358!$omp target enter data map(always,alloc:flux_src_n(i)%vf)
1359# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1360#endif
1361#ifdef MFC_DEBUG
1362# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1363 block
1364# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1365 use iso_fortran_env, only: output_unit
1366# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1367
1368# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1369 print *, 'm_rhs.fpp:253: ', '@:ALLOCATE(flux_gsrc_n(i)%vf(1:sys_size))'
1370# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1371
1372# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1373 call flush (output_unit)
1374# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1375 end block
1376# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1377#endif
1378# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1379 allocate (flux_gsrc_n(i)%vf(1:sys_size))
1380# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1381
1382# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1383
1384# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1385#if defined(MFC_OpenACC)
1386# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1387!$acc enter data create(flux_gsrc_n(i)%vf)
1388# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1389#elif defined(MFC_OpenMP)
1390# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1391!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf)
1392# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1393#endif
1394
1395 if (i == 1) then
1396 do l = 1, sys_size
1397#ifdef MFC_DEBUG
1398# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1399 block
1400# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1401 use iso_fortran_env, only: output_unit
1402# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1403
1404# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1405 print *, 'm_rhs.fpp:257: ', '@: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))'
1406# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1407
1408# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1409 call flush (output_unit)
1410# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1411 end block
1412# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1413#endif
1414# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1415 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))
1416# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1417
1418# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1419
1420# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1421#if defined(MFC_OpenACC)
1422# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1423!$acc enter data create(flux_n(i)%vf(l)%sf)
1424# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1425#elif defined(MFC_OpenMP)
1426# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1427!$omp target enter data map(always,alloc:flux_n(i)%vf(l)%sf)
1428# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1429#endif
1430# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1431#ifdef MFC_DEBUG
1432# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1433 block
1434# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1435 use iso_fortran_env, only: output_unit
1436# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1437
1438# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1439 print *, 'm_rhs.fpp:261: ', '@: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))'
1440# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1441
1442# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1443 call flush (output_unit)
1444# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1445 end block
1446# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1447#endif
1448# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1449 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))
1450# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1451
1452# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1453
1454# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1455#if defined(MFC_OpenACC)
1456# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1457!$acc enter data create(flux_gsrc_n(i)%vf(l)%sf)
1458# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1459#elif defined(MFC_OpenMP)
1460# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1461!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf(l)%sf)
1462# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1463#endif
1464# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1465 end do
1466
1467 if (viscous .or. surface_tension) then
1468 do l = mom_idx%beg, e_idx
1469#ifdef MFC_DEBUG
1470# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1471 block
1472# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1473 use iso_fortran_env, only: output_unit
1474# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1475
1476# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1477 print *, 'm_rhs.fpp:269: ', '@: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))'
1478# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1479
1480# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1481 call flush (output_unit)
1482# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1483 end block
1484# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1485#endif
1486# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1487 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))
1488# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1489
1490# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1491
1492# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1493#if defined(MFC_OpenACC)
1494# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1495!$acc enter data create(flux_src_n(i)%vf(l)%sf)
1496# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1497#elif defined(MFC_OpenMP)
1498# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1499!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf)
1500# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1501#endif
1502# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1503 end do
1504 end if
1505
1506#ifdef MFC_DEBUG
1507# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1508 block
1509# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1510 use iso_fortran_env, only: output_unit
1511# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1512
1513# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1514 print *, 'm_rhs.fpp:276: ', '@:ALLOCATE(flux_src_n(i)%vf(adv_idx%beg)%sf( idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1515# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1516
1517# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1518 call flush (output_unit)
1519# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1520 end block
1521# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1522#endif
1523# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1524 allocate (flux_src_n(i)%vf(adv_idx%beg)%sf( idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1525# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1526
1527# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1528
1529# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1530#if defined(MFC_OpenACC)
1531# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1532!$acc enter data create(flux_src_n(i)%vf(adv_idx%beg)%sf)
1533# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1534#elif defined(MFC_OpenMP)
1535# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1536!$omp target enter data map(always,alloc:flux_src_n(i)%vf(adv_idx%beg)%sf)
1537# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1538#endif
1539# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1540
1541 if (riemann_solver == 1 .or. riemann_solver == 4) then
1542 do l = adv_idx%beg + 1, adv_idx%end
1543#ifdef MFC_DEBUG
1544# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1545 block
1546# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1547 use iso_fortran_env, only: output_unit
1548# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1549
1550# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1551 print *, 'm_rhs.fpp:283: ', '@: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))'
1552# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1553
1554# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1555 call flush (output_unit)
1556# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1557 end block
1558# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1559#endif
1560# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1561 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))
1562# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1563
1564# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1565
1566# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1567#if defined(MFC_OpenACC)
1568# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1569!$acc enter data create(flux_src_n(i)%vf(l)%sf)
1570# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1571#elif defined(MFC_OpenMP)
1572# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1573!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf)
1574# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1575#endif
1576# 287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1577 end do
1578 end if
1579
1580 if (chemistry) then
1581 do l = chemxb, chemxe
1582#ifdef MFC_DEBUG
1583# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1584 block
1585# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1586 use iso_fortran_env, only: output_unit
1587# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1588
1589# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1590 print *, 'm_rhs.fpp:292: ', '@: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))'
1591# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1592
1593# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1594 call flush (output_unit)
1595# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1596 end block
1597# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1598#endif
1599# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1600 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))
1601# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1602
1603# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1604
1605# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1606#if defined(MFC_OpenACC)
1607# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1608!$acc enter data create(flux_src_n(i)%vf(l)%sf)
1609# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1610#elif defined(MFC_OpenMP)
1611# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1612!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf)
1613# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1614#endif
1615# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1616 end do
1617 if (chem_params%diffusion .and. .not. viscous) then
1618#ifdef MFC_DEBUG
1619# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1620 block
1621# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1622 use iso_fortran_env, only: output_unit
1623# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1624
1625# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1626 print *, 'm_rhs.fpp:298: ', '@:ALLOCATE(flux_src_n(i)%vf(E_idx)%sf( idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
1627# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1628
1629# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1630 call flush (output_unit)
1631# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1632 end block
1633# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1634#endif
1635# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1636 allocate (flux_src_n(i)%vf(e_idx)%sf( idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
1637# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1638
1639# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1640
1641# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1642#if defined(MFC_OpenACC)
1643# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1644!$acc enter data create(flux_src_n(i)%vf(E_idx)%sf)
1645# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1646#elif defined(MFC_OpenMP)
1647# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1648!$omp target enter data map(always,alloc:flux_src_n(i)%vf(E_idx)%sf)
1649# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1650#endif
1651# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1652 end if
1653 end if
1654
1655 else
1656 do l = 1, sys_size
1657#ifdef MFC_DEBUG
1658# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1659 block
1660# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1661 use iso_fortran_env, only: output_unit
1662# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1663
1664# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1665 print *, 'm_rhs.fpp:307: ', '@: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))'
1666# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1667
1668# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1669 call flush (output_unit)
1670# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1671 end block
1672# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1673#endif
1674# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1675 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))
1676# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1677
1678# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1679
1680# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1681#if defined(MFC_OpenACC)
1682# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1683!$acc enter data create(flux_gsrc_n(i)%vf(l)%sf)
1684# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1685#elif defined(MFC_OpenMP)
1686# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1687!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf(l)%sf)
1688# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1689#endif
1690# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1691 end do
1692 end if
1693
1694#ifdef _CRAYFTN
1695# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1696 block
1697# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1698 integer :: macros_setup_vfs_i
1699# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1700
1701# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1702#ifdef MFC_DEBUG
1703# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1704 block
1705# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1706 use iso_fortran_env, only: output_unit
1707# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1708
1709# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1710 print *, 'm_rhs.fpp:314: ', '@:ACC_SETUP_VFs(flux_n(i))'
1711# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1712
1713# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1714 call flush (output_unit)
1715# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1716 end block
1717# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1718#endif
1719# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1720
1721# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1722
1723# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1724#if defined(MFC_OpenACC)
1725# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1726!$acc enter data copyin(flux_n(i))
1727# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1728#elif defined(MFC_OpenMP)
1729# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1730!$omp target enter data map(to:flux_n(i))
1731# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1732#endif
1733# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1734
1735# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1736#if defined(MFC_OpenACC)
1737# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1738!$acc enter data copyin(flux_n(i)%vf)
1739# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1740#elif defined(MFC_OpenMP)
1741# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1742!$omp target enter data map(to:flux_n(i)%vf)
1743# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1744#endif
1745# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1746 if (allocated(flux_n(i)%vf)) then
1747# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1748 do macros_setup_vfs_i = lbound(flux_n(i)%vf, 1), ubound(flux_n(i)%vf, 1)
1749# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1750 if (associated(flux_n(i)%vf(macros_setup_vfs_i)%sf)) then
1751# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1752
1753# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1754#if defined(MFC_OpenACC)
1755# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1756!$acc enter data copyin(flux_n(i)%vf(macros_setup_vfs_i))
1757# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1758#elif defined(MFC_OpenMP)
1759# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1760!$omp target enter data map(to:flux_n(i)%vf(macros_setup_vfs_i))
1761# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1762#endif
1763# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1764
1765# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1766#if defined(MFC_OpenACC)
1767# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1768!$acc enter data copyin(flux_n(i)%vf(macros_setup_vfs_i)%sf)
1769# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1770#elif defined(MFC_OpenMP)
1771# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1772!$omp target enter data map(to:flux_n(i)%vf(macros_setup_vfs_i)%sf)
1773# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1774#endif
1775# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1776 end if
1777# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1778 end do
1779# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1780 end if
1781# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1782 end block
1783# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1784#endif
1785#ifdef _CRAYFTN
1786# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1787 block
1788# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1789 integer :: macros_setup_vfs_i
1790# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1791
1792# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1793#ifdef MFC_DEBUG
1794# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1795 block
1796# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1797 use iso_fortran_env, only: output_unit
1798# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1799
1800# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1801 print *, 'm_rhs.fpp:315: ', '@:ACC_SETUP_VFs(flux_src_n(i), flux_gsrc_n(i))'
1802# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1803
1804# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1805 call flush (output_unit)
1806# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1807 end block
1808# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1809#endif
1810# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1811
1812# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1813
1814# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1815#if defined(MFC_OpenACC)
1816# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1817!$acc enter data copyin(flux_src_n(i))
1818# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1819#elif defined(MFC_OpenMP)
1820# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1821!$omp target enter data map(to:flux_src_n(i))
1822# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1823#endif
1824# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1825
1826# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1827#if defined(MFC_OpenACC)
1828# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1829!$acc enter data copyin(flux_src_n(i)%vf)
1830# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1831#elif defined(MFC_OpenMP)
1832# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1833!$omp target enter data map(to:flux_src_n(i)%vf)
1834# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1835#endif
1836# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1837 if (allocated(flux_src_n(i)%vf)) then
1838# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1839 do macros_setup_vfs_i = lbound(flux_src_n(i)%vf, 1), ubound(flux_src_n(i)%vf, 1)
1840# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1841 if (associated(flux_src_n(i)%vf(macros_setup_vfs_i)%sf)) then
1842# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1843
1844# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1845#if defined(MFC_OpenACC)
1846# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1847!$acc enter data copyin(flux_src_n(i)%vf(macros_setup_vfs_i))
1848# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1849#elif defined(MFC_OpenMP)
1850# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1851!$omp target enter data map(to:flux_src_n(i)%vf(macros_setup_vfs_i))
1852# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1853#endif
1854# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1855
1856# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1857#if defined(MFC_OpenACC)
1858# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1859!$acc enter data copyin(flux_src_n(i)%vf(macros_setup_vfs_i)%sf)
1860# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1861#elif defined(MFC_OpenMP)
1862# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1863!$omp target enter data map(to:flux_src_n(i)%vf(macros_setup_vfs_i)%sf)
1864# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1865#endif
1866# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1867 end if
1868# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1869 end do
1870# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1871 end if
1872# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1873
1874# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1875#if defined(MFC_OpenACC)
1876# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1877!$acc enter data copyin(flux_gsrc_n(i))
1878# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1879#elif defined(MFC_OpenMP)
1880# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1881!$omp target enter data map(to:flux_gsrc_n(i))
1882# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1883#endif
1884# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1885
1886# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1887#if defined(MFC_OpenACC)
1888# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1889!$acc enter data copyin(flux_gsrc_n(i)%vf)
1890# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1891#elif defined(MFC_OpenMP)
1892# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1893!$omp target enter data map(to:flux_gsrc_n(i)%vf)
1894# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1895#endif
1896# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1897 if (allocated(flux_gsrc_n(i)%vf)) then
1898# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1899 do macros_setup_vfs_i = lbound(flux_gsrc_n(i)%vf, 1), ubound(flux_gsrc_n(i)%vf, 1)
1900# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1901 if (associated(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)) then
1902# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1903
1904# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1905#if defined(MFC_OpenACC)
1906# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1907!$acc enter data copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i))
1908# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1909#elif defined(MFC_OpenMP)
1910# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1911!$omp target enter data map(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i))
1912# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1913#endif
1914# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1915
1916# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1917#if defined(MFC_OpenACC)
1918# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1919!$acc enter data copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)
1920# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1921#elif defined(MFC_OpenMP)
1922# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1923!$omp target enter data map(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)
1924# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1925#endif
1926# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1927 end if
1928# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1929 end do
1930# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1931 end if
1932# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1933 end block
1934# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1935#endif
1936
1937 if (i == 1) then
1938 if (riemann_solver /= 1) then
1939 do l = adv_idx%beg + 1, adv_idx%end
1940 flux_src_n(i)%vf(l)%sf => flux_src_n(i)%vf(adv_idx%beg)%sf
1941
1942# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1943#if defined(MFC_OpenACC)
1944# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1945!$acc enter data attach(flux_src_n(i)%vf(l)%sf)
1946# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1947#elif defined(MFC_OpenMP)
1948# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1949!$omp target enter data map(always,to:flux_src_n(i)%vf(l)%sf)
1950# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1951#endif
1952 end do
1953 end if
1954 else
1955 do l = 1, sys_size
1956 flux_n(i)%vf(l)%sf => flux_n(1)%vf(l)%sf
1957
1958# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1959#if defined(MFC_OpenACC)
1960# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1961!$acc enter data attach(flux_n(i)%vf(l)%sf)
1962# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1963#elif defined(MFC_OpenMP)
1964# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1965!$omp target enter data map(always,to:flux_n(i)%vf(l)%sf)
1966# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1967#endif
1968 flux_src_n(i)%vf(l)%sf => flux_src_n(1)%vf(l)%sf
1969
1970# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1971#if defined(MFC_OpenACC)
1972# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1973!$acc enter data attach(flux_src_n(i)%vf(l)%sf)
1974# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1975#elif defined(MFC_OpenMP)
1976# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1977!$omp target enter data map(always,to:flux_src_n(i)%vf(l)%sf)
1978# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1979#endif
1980 end do
1981 end if
1982
1983 end do
1984 ! END: Allocation/Association of flux_n, flux_src_n, and flux_gsrc_n
1985 end if
1986
1987 if ((.not. igr) .or. dummy) then
1988
1989 ! Allocation of dq_prim_ds_qp
1990#ifdef MFC_DEBUG
1991# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1992 block
1993# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1994 use iso_fortran_env, only: output_unit
1995# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1996
1997# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
1998 print *, 'm_rhs.fpp:340: ', '@:ALLOCATE(dq_prim_dx_qp(1:1))'
1999# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2000
2001# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2002 call flush (output_unit)
2003# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2004 end block
2005# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2006#endif
2007# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2008 allocate (dq_prim_dx_qp(1:1))
2009# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2010
2011# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2012
2013# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2014#if defined(MFC_OpenACC)
2015# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2016!$acc enter data create(dq_prim_dx_qp)
2017# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2018#elif defined(MFC_OpenMP)
2019# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2020!$omp target enter data map(always,alloc:dq_prim_dx_qp)
2021# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2022#endif
2023#ifdef MFC_DEBUG
2024# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2025 block
2026# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2027 use iso_fortran_env, only: output_unit
2028# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2029
2030# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2031 print *, 'm_rhs.fpp:341: ', '@:ALLOCATE(dq_prim_dy_qp(1:1))'
2032# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2033
2034# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2035 call flush (output_unit)
2036# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2037 end block
2038# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2039#endif
2040# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2041 allocate (dq_prim_dy_qp(1:1))
2042# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2043
2044# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2045
2046# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2047#if defined(MFC_OpenACC)
2048# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2049!$acc enter data create(dq_prim_dy_qp)
2050# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2051#elif defined(MFC_OpenMP)
2052# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2053!$omp target enter data map(always,alloc:dq_prim_dy_qp)
2054# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2055#endif
2056#ifdef MFC_DEBUG
2057# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2058 block
2059# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2060 use iso_fortran_env, only: output_unit
2061# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2062
2063# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2064 print *, 'm_rhs.fpp:342: ', '@:ALLOCATE(dq_prim_dz_qp(1:1))'
2065# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2066
2067# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2068 call flush (output_unit)
2069# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2070 end block
2071# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2072#endif
2073# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2074 allocate (dq_prim_dz_qp(1:1))
2075# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2076
2077# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2078
2079# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2080#if defined(MFC_OpenACC)
2081# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2082!$acc enter data create(dq_prim_dz_qp)
2083# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2084#elif defined(MFC_OpenMP)
2085# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2086!$omp target enter data map(always,alloc:dq_prim_dz_qp)
2087# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2088#endif
2089
2090#ifdef MFC_DEBUG
2091# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2092 block
2093# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2094 use iso_fortran_env, only: output_unit
2095# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2096
2097# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2098 print *, 'm_rhs.fpp:344: ', '@:ALLOCATE(qL_prim(1:num_dims))'
2099# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2100
2101# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2102 call flush (output_unit)
2103# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2104 end block
2105# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2106#endif
2107# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2108 allocate (ql_prim(1:num_dims))
2109# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2110
2111# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2112
2113# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2114#if defined(MFC_OpenACC)
2115# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2116!$acc enter data create(qL_prim)
2117# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2118#elif defined(MFC_OpenMP)
2119# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2120!$omp target enter data map(always,alloc:qL_prim)
2121# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2122#endif
2123#ifdef MFC_DEBUG
2124# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2125 block
2126# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2127 use iso_fortran_env, only: output_unit
2128# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2129
2130# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2131 print *, 'm_rhs.fpp:345: ', '@:ALLOCATE(qR_prim(1:num_dims))'
2132# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2133
2134# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2135 call flush (output_unit)
2136# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2137 end block
2138# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2139#endif
2140# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2141 allocate (qr_prim(1:num_dims))
2142# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2143
2144# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2145
2146# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2147#if defined(MFC_OpenACC)
2148# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2149!$acc enter data create(qR_prim)
2150# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2151#elif defined(MFC_OpenMP)
2152# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2153!$omp target enter data map(always,alloc:qR_prim)
2154# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2155#endif
2156
2157 ! Allocation/Association of dqK_prim_ds_n
2158#ifdef MFC_DEBUG
2159# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2160 block
2161# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2162 use iso_fortran_env, only: output_unit
2163# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2164
2165# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2166 print *, 'm_rhs.fpp:348: ', '@:ALLOCATE(dqL_prim_dx_n(1:num_dims))'
2167# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2168
2169# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2170 call flush (output_unit)
2171# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2172 end block
2173# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2174#endif
2175# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2176 allocate (dql_prim_dx_n(1:num_dims))
2177# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2178
2179# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2180
2181# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2182#if defined(MFC_OpenACC)
2183# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2184!$acc enter data create(dqL_prim_dx_n)
2185# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2186#elif defined(MFC_OpenMP)
2187# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2188!$omp target enter data map(always,alloc:dqL_prim_dx_n)
2189# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2190#endif
2191#ifdef MFC_DEBUG
2192# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2193 block
2194# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2195 use iso_fortran_env, only: output_unit
2196# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2197
2198# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2199 print *, 'm_rhs.fpp:349: ', '@:ALLOCATE(dqL_prim_dy_n(1:num_dims))'
2200# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2201
2202# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2203 call flush (output_unit)
2204# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2205 end block
2206# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2207#endif
2208# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2209 allocate (dql_prim_dy_n(1:num_dims))
2210# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2211
2212# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2213
2214# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2215#if defined(MFC_OpenACC)
2216# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2217!$acc enter data create(dqL_prim_dy_n)
2218# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2219#elif defined(MFC_OpenMP)
2220# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2221!$omp target enter data map(always,alloc:dqL_prim_dy_n)
2222# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2223#endif
2224#ifdef MFC_DEBUG
2225# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2226 block
2227# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2228 use iso_fortran_env, only: output_unit
2229# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2230
2231# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2232 print *, 'm_rhs.fpp:350: ', '@:ALLOCATE(dqL_prim_dz_n(1:num_dims))'
2233# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2234
2235# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2236 call flush (output_unit)
2237# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2238 end block
2239# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2240#endif
2241# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2242 allocate (dql_prim_dz_n(1:num_dims))
2243# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2244
2245# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2246
2247# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2248#if defined(MFC_OpenACC)
2249# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2250!$acc enter data create(dqL_prim_dz_n)
2251# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2252#elif defined(MFC_OpenMP)
2253# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2254!$omp target enter data map(always,alloc:dqL_prim_dz_n)
2255# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2256#endif
2257#ifdef MFC_DEBUG
2258# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2259 block
2260# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2261 use iso_fortran_env, only: output_unit
2262# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2263
2264# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2265 print *, 'm_rhs.fpp:351: ', '@:ALLOCATE(dqR_prim_dx_n(1:num_dims))'
2266# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2267
2268# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2269 call flush (output_unit)
2270# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2271 end block
2272# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2273#endif
2274# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2275 allocate (dqr_prim_dx_n(1:num_dims))
2276# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2277
2278# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2279
2280# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2281#if defined(MFC_OpenACC)
2282# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2283!$acc enter data create(dqR_prim_dx_n)
2284# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2285#elif defined(MFC_OpenMP)
2286# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2287!$omp target enter data map(always,alloc:dqR_prim_dx_n)
2288# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2289#endif
2290#ifdef MFC_DEBUG
2291# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2292 block
2293# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2294 use iso_fortran_env, only: output_unit
2295# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2296
2297# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2298 print *, 'm_rhs.fpp:352: ', '@:ALLOCATE(dqR_prim_dy_n(1:num_dims))'
2299# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2300
2301# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2302 call flush (output_unit)
2303# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2304 end block
2305# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2306#endif
2307# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2308 allocate (dqr_prim_dy_n(1:num_dims))
2309# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2310
2311# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2312
2313# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2314#if defined(MFC_OpenACC)
2315# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2316!$acc enter data create(dqR_prim_dy_n)
2317# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2318#elif defined(MFC_OpenMP)
2319# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2320!$omp target enter data map(always,alloc:dqR_prim_dy_n)
2321# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2322#endif
2323#ifdef MFC_DEBUG
2324# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2325 block
2326# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2327 use iso_fortran_env, only: output_unit
2328# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2329
2330# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2331 print *, 'm_rhs.fpp:353: ', '@:ALLOCATE(dqR_prim_dz_n(1:num_dims))'
2332# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2333
2334# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2335 call flush (output_unit)
2336# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2337 end block
2338# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2339#endif
2340# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2341 allocate (dqr_prim_dz_n(1:num_dims))
2342# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2343
2344# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2345
2346# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2347#if defined(MFC_OpenACC)
2348# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2349!$acc enter data create(dqR_prim_dz_n)
2350# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2351#elif defined(MFC_OpenMP)
2352# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2353!$omp target enter data map(always,alloc:dqR_prim_dz_n)
2354# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2355#endif
2356
2357 do i = 1, num_dims
2358#ifdef MFC_DEBUG
2359# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2360 block
2361# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2362 use iso_fortran_env, only: output_unit
2363# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2364
2365# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2366 print *, 'm_rhs.fpp:356: ', '@:ALLOCATE(qL_prim(i)%vf(1:sys_size))'
2367# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2368
2369# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2370 call flush (output_unit)
2371# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2372 end block
2373# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2374#endif
2375# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2376 allocate (ql_prim(i)%vf(1:sys_size))
2377# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2378
2379# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2380
2381# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2382#if defined(MFC_OpenACC)
2383# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2384!$acc enter data create(qL_prim(i)%vf)
2385# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2386#elif defined(MFC_OpenMP)
2387# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2388!$omp target enter data map(always,alloc:qL_prim(i)%vf)
2389# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2390#endif
2391#ifdef MFC_DEBUG
2392# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2393 block
2394# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2395 use iso_fortran_env, only: output_unit
2396# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2397
2398# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2399 print *, 'm_rhs.fpp:357: ', '@:ALLOCATE(qR_prim(i)%vf(1:sys_size))'
2400# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2401
2402# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2403 call flush (output_unit)
2404# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2405 end block
2406# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2407#endif
2408# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2409 allocate (qr_prim(i)%vf(1:sys_size))
2410# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2411
2412# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2413
2414# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2415#if defined(MFC_OpenACC)
2416# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2417!$acc enter data create(qR_prim(i)%vf)
2418# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2419#elif defined(MFC_OpenMP)
2420# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2421!$omp target enter data map(always,alloc:qR_prim(i)%vf)
2422# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2423#endif
2424 do l = mom_idx%beg, mom_idx%end
2425#ifdef MFC_DEBUG
2426# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2427 block
2428# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2429 use iso_fortran_env, only: output_unit
2430# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2431
2432# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2433 print *, 'm_rhs.fpp:359: ', '@: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))'
2434# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2435
2436# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2437 call flush (output_unit)
2438# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2439 end block
2440# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2441#endif
2442# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2443 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))
2444# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2445
2446# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2447
2448# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2449#if defined(MFC_OpenACC)
2450# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2451!$acc enter data create(qL_prim(i)%vf(l)%sf)
2452# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2453#elif defined(MFC_OpenMP)
2454# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2455!$omp target enter data map(always,alloc:qL_prim(i)%vf(l)%sf)
2456# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2457#endif
2458#ifdef MFC_DEBUG
2459# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2460 block
2461# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2462 use iso_fortran_env, only: output_unit
2463# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2464
2465# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2466 print *, 'm_rhs.fpp:360: ', '@: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))'
2467# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2468
2469# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2470 call flush (output_unit)
2471# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2472 end block
2473# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2474#endif
2475# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2476 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))
2477# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2478
2479# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2480
2481# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2482#if defined(MFC_OpenACC)
2483# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2484!$acc enter data create(qR_prim(i)%vf(l)%sf)
2485# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2486#elif defined(MFC_OpenMP)
2487# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2488!$omp target enter data map(always,alloc:qR_prim(i)%vf(l)%sf)
2489# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2490#endif
2491 end do
2492#ifdef _CRAYFTN
2493# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2494 block
2495# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2496 integer :: macros_setup_vfs_i
2497# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2498
2499# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2500#ifdef MFC_DEBUG
2501# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2502 block
2503# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2504 use iso_fortran_env, only: output_unit
2505# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2506
2507# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2508 print *, 'm_rhs.fpp:362: ', '@:ACC_SETUP_VFs(qL_prim(i), qR_prim(i))'
2509# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2510
2511# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2512 call flush (output_unit)
2513# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2514 end block
2515# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2516#endif
2517# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2518
2519# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2520
2521# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2522#if defined(MFC_OpenACC)
2523# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2524!$acc enter data copyin(qL_prim(i))
2525# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2526#elif defined(MFC_OpenMP)
2527# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2528!$omp target enter data map(to:qL_prim(i))
2529# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2530#endif
2531# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2532
2533# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2534#if defined(MFC_OpenACC)
2535# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2536!$acc enter data copyin(qL_prim(i)%vf)
2537# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2538#elif defined(MFC_OpenMP)
2539# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2540!$omp target enter data map(to:qL_prim(i)%vf)
2541# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2542#endif
2543# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2544 if (allocated(ql_prim(i)%vf)) then
2545# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2546 do macros_setup_vfs_i = lbound(ql_prim(i)%vf, 1), ubound(ql_prim(i)%vf, 1)
2547# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2548 if (associated(ql_prim(i)%vf(macros_setup_vfs_i)%sf)) then
2549# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2550
2551# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2552#if defined(MFC_OpenACC)
2553# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2554!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i))
2555# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2556#elif defined(MFC_OpenMP)
2557# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2558!$omp target enter data map(to:qL_prim(i)%vf(macros_setup_vfs_i))
2559# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2560#endif
2561# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2562
2563# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2564#if defined(MFC_OpenACC)
2565# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2566!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i)%sf)
2567# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2568#elif defined(MFC_OpenMP)
2569# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2570!$omp target enter data map(to:qL_prim(i)%vf(macros_setup_vfs_i)%sf)
2571# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2572#endif
2573# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2574 end if
2575# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2576 end do
2577# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2578 end if
2579# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2580
2581# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2582#if defined(MFC_OpenACC)
2583# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2584!$acc enter data copyin(qR_prim(i))
2585# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2586#elif defined(MFC_OpenMP)
2587# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2588!$omp target enter data map(to:qR_prim(i))
2589# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2590#endif
2591# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2592
2593# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2594#if defined(MFC_OpenACC)
2595# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2596!$acc enter data copyin(qR_prim(i)%vf)
2597# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2598#elif defined(MFC_OpenMP)
2599# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2600!$omp target enter data map(to:qR_prim(i)%vf)
2601# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2602#endif
2603# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2604 if (allocated(qr_prim(i)%vf)) then
2605# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2606 do macros_setup_vfs_i = lbound(qr_prim(i)%vf, 1), ubound(qr_prim(i)%vf, 1)
2607# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2608 if (associated(qr_prim(i)%vf(macros_setup_vfs_i)%sf)) then
2609# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2610
2611# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2612#if defined(MFC_OpenACC)
2613# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2614!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i))
2615# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2616#elif defined(MFC_OpenMP)
2617# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2618!$omp target enter data map(to:qR_prim(i)%vf(macros_setup_vfs_i))
2619# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2620#endif
2621# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2622
2623# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2624#if defined(MFC_OpenACC)
2625# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2626!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i)%sf)
2627# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2628#elif defined(MFC_OpenMP)
2629# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2630!$omp target enter data map(to:qR_prim(i)%vf(macros_setup_vfs_i)%sf)
2631# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2632#endif
2633# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2634 end if
2635# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2636 end do
2637# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2638 end if
2639# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2640 end block
2641# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2642#endif
2643 end do
2644
2645#ifdef MFC_DEBUG
2646# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2647 block
2648# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2649 use iso_fortran_env, only: output_unit
2650# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2651
2652# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2653 print *, 'm_rhs.fpp:365: ', '@: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))'
2654# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2655
2656# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2657 call flush (output_unit)
2658# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2659 end block
2660# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2661#endif
2662# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2663 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))
2664# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2665
2666# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2667
2668# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2669#if defined(MFC_OpenACC)
2670# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2671!$acc enter data create(qL_rsx_vf)
2672# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2673#elif defined(MFC_OpenMP)
2674# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2675!$omp target enter data map(always,alloc:qL_rsx_vf)
2676# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2677#endif
2678# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2679#ifdef MFC_DEBUG
2680# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2681 block
2682# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2683 use iso_fortran_env, only: output_unit
2684# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2685
2686# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2687 print *, 'm_rhs.fpp:367: ', '@: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))'
2688# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2689
2690# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2691 call flush (output_unit)
2692# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2693 end block
2694# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2695#endif
2696# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2697 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))
2698# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2699
2700# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2701
2702# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2703#if defined(MFC_OpenACC)
2704# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2705!$acc enter data create(qR_rsx_vf)
2706# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2707#elif defined(MFC_OpenMP)
2708# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2709!$omp target enter data map(always,alloc:qR_rsx_vf)
2710# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2711#endif
2712# 369 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2713
2714 if (n > 0) then
2715
2716#ifdef MFC_DEBUG
2717# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2718 block
2719# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2720 use iso_fortran_env, only: output_unit
2721# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2722
2723# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2724 print *, 'm_rhs.fpp:372: ', '@:ALLOCATE(qL_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
2725# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2726
2727# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2728 call flush (output_unit)
2729# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2730 end block
2731# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2732#endif
2733# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2734 allocate (ql_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
2735# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2736
2737# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2738
2739# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2740#if defined(MFC_OpenACC)
2741# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2742!$acc enter data create(qL_rsy_vf)
2743# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2744#elif defined(MFC_OpenMP)
2745# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2746!$omp target enter data map(always,alloc:qL_rsy_vf)
2747# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2748#endif
2749# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2750#ifdef MFC_DEBUG
2751# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2752 block
2753# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2754 use iso_fortran_env, only: output_unit
2755# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2756
2757# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2758 print *, 'm_rhs.fpp:374: ', '@:ALLOCATE(qR_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
2759# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2760
2761# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2762 call flush (output_unit)
2763# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2764 end block
2765# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2766#endif
2767# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2768 allocate (qr_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
2769# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2770
2771# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2772
2773# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2774#if defined(MFC_OpenACC)
2775# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2776!$acc enter data create(qR_rsy_vf)
2777# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2778#elif defined(MFC_OpenMP)
2779# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2780!$omp target enter data map(always,alloc:qR_rsy_vf)
2781# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2782#endif
2783# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2784 else
2785#ifdef MFC_DEBUG
2786# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2787 block
2788# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2789 use iso_fortran_env, only: output_unit
2790# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2791
2792# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2793 print *, 'm_rhs.fpp:377: ', '@:ALLOCATE(qL_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
2794# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2795
2796# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2797 call flush (output_unit)
2798# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2799 end block
2800# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2801#endif
2802# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2803 allocate (ql_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
2804# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2805
2806# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2807
2808# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2809#if defined(MFC_OpenACC)
2810# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2811!$acc enter data create(qL_rsy_vf)
2812# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2813#elif defined(MFC_OpenMP)
2814# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2815!$omp target enter data map(always,alloc:qL_rsy_vf)
2816# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2817#endif
2818# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2819#ifdef MFC_DEBUG
2820# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2821 block
2822# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2823 use iso_fortran_env, only: output_unit
2824# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2825
2826# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2827 print *, 'm_rhs.fpp:379: ', '@:ALLOCATE(qR_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
2828# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2829
2830# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2831 call flush (output_unit)
2832# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2833 end block
2834# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2835#endif
2836# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2837 allocate (qr_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
2838# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2839
2840# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2841
2842# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2843#if defined(MFC_OpenACC)
2844# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2845!$acc enter data create(qR_rsy_vf)
2846# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2847#elif defined(MFC_OpenMP)
2848# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2849!$omp target enter data map(always,alloc:qR_rsy_vf)
2850# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2851#endif
2852# 381 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2853 end if
2854
2855 if (p > 0) then
2856#ifdef MFC_DEBUG
2857# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2858 block
2859# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2860 use iso_fortran_env, only: output_unit
2861# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2862
2863# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2864 print *, 'm_rhs.fpp:384: ', '@:ALLOCATE(qL_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, 1:sys_size))'
2865# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2866
2867# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2868 call flush (output_unit)
2869# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2870 end block
2871# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2872#endif
2873# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2874 allocate (ql_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, 1:sys_size))
2875# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2876
2877# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2878
2879# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2880#if defined(MFC_OpenACC)
2881# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2882!$acc enter data create(qL_rsz_vf)
2883# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2884#elif defined(MFC_OpenMP)
2885# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2886!$omp target enter data map(always,alloc:qL_rsz_vf)
2887# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2888#endif
2889# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2890#ifdef MFC_DEBUG
2891# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2892 block
2893# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2894 use iso_fortran_env, only: output_unit
2895# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2896
2897# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2898 print *, 'm_rhs.fpp:386: ', '@:ALLOCATE(qR_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, 1:sys_size))'
2899# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2900
2901# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2902 call flush (output_unit)
2903# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2904 end block
2905# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2906#endif
2907# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2908 allocate (qr_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, 1:sys_size))
2909# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2910
2911# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2912
2913# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2914#if defined(MFC_OpenACC)
2915# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2916!$acc enter data create(qR_rsz_vf)
2917# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2918#elif defined(MFC_OpenMP)
2919# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2920!$omp target enter data map(always,alloc:qR_rsz_vf)
2921# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2922#endif
2923# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2924 else
2925#ifdef MFC_DEBUG
2926# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2927 block
2928# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2929 use iso_fortran_env, only: output_unit
2930# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2931
2932# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2933 print *, 'm_rhs.fpp:389: ', '@:ALLOCATE(qL_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
2934# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2935
2936# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2937 call flush (output_unit)
2938# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2939 end block
2940# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2941#endif
2942# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2943 allocate (ql_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
2944# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2945
2946# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2947
2948# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2949#if defined(MFC_OpenACC)
2950# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2951!$acc enter data create(qL_rsz_vf)
2952# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2953#elif defined(MFC_OpenMP)
2954# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2955!$omp target enter data map(always,alloc:qL_rsz_vf)
2956# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2957#endif
2958# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2959#ifdef MFC_DEBUG
2960# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2961 block
2962# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2963 use iso_fortran_env, only: output_unit
2964# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2965
2966# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2967 print *, 'm_rhs.fpp:391: ', '@:ALLOCATE(qR_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
2968# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2969
2970# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2971 call flush (output_unit)
2972# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2973 end block
2974# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2975#endif
2976# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2977 allocate (qr_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
2978# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2979
2980# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2981
2982# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2983#if defined(MFC_OpenACC)
2984# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2985!$acc enter data create(qR_rsz_vf)
2986# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2987#elif defined(MFC_OpenMP)
2988# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2989!$omp target enter data map(always,alloc:qR_rsz_vf)
2990# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2991#endif
2992# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
2993
2994 end if
2995
2996 if (.not. viscous) then
2997 do i = 1, num_dims
2998#ifdef MFC_DEBUG
2999# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3000 block
3001# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3002 use iso_fortran_env, only: output_unit
3003# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3004
3005# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3006 print *, 'm_rhs.fpp:398: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
3007# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3008
3009# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3010 call flush (output_unit)
3011# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3012 end block
3013# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3014#endif
3015# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3016 allocate (dql_prim_dx_n(i)%vf(1:sys_size))
3017# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3018
3019# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3020
3021# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3022#if defined(MFC_OpenACC)
3023# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3024!$acc enter data create(dqL_prim_dx_n(i)%vf)
3025# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3026#elif defined(MFC_OpenMP)
3027# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3028!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf)
3029# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3030#endif
3031#ifdef MFC_DEBUG
3032# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3033 block
3034# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3035 use iso_fortran_env, only: output_unit
3036# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3037
3038# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3039 print *, 'm_rhs.fpp:399: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
3040# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3041
3042# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3043 call flush (output_unit)
3044# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3045 end block
3046# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3047#endif
3048# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3049 allocate (dql_prim_dy_n(i)%vf(1:sys_size))
3050# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3051
3052# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3053
3054# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3055#if defined(MFC_OpenACC)
3056# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3057!$acc enter data create(dqL_prim_dy_n(i)%vf)
3058# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3059#elif defined(MFC_OpenMP)
3060# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3061!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf)
3062# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3063#endif
3064#ifdef MFC_DEBUG
3065# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3066 block
3067# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3068 use iso_fortran_env, only: output_unit
3069# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3070
3071# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3072 print *, 'm_rhs.fpp:400: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
3073# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3074
3075# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3076 call flush (output_unit)
3077# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3078 end block
3079# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3080#endif
3081# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3082 allocate (dql_prim_dz_n(i)%vf(1:sys_size))
3083# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3084
3085# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3086
3087# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3088#if defined(MFC_OpenACC)
3089# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3090!$acc enter data create(dqL_prim_dz_n(i)%vf)
3091# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3092#elif defined(MFC_OpenMP)
3093# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3094!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf)
3095# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3096#endif
3097#ifdef MFC_DEBUG
3098# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3099 block
3100# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3101 use iso_fortran_env, only: output_unit
3102# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3103
3104# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3105 print *, 'm_rhs.fpp:401: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
3106# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3107
3108# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3109 call flush (output_unit)
3110# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3111 end block
3112# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3113#endif
3114# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3115 allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
3116# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3117
3118# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3119
3120# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3121#if defined(MFC_OpenACC)
3122# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3123!$acc enter data create(dqR_prim_dx_n(i)%vf)
3124# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3125#elif defined(MFC_OpenMP)
3126# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3127!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf)
3128# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3129#endif
3130#ifdef MFC_DEBUG
3131# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3132 block
3133# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3134 use iso_fortran_env, only: output_unit
3135# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3136
3137# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3138 print *, 'm_rhs.fpp:402: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
3139# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3140
3141# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3142 call flush (output_unit)
3143# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3144 end block
3145# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3146#endif
3147# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3148 allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
3149# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3150
3151# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3152
3153# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3154#if defined(MFC_OpenACC)
3155# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3156!$acc enter data create(dqR_prim_dy_n(i)%vf)
3157# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3158#elif defined(MFC_OpenMP)
3159# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3160!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf)
3161# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3162#endif
3163#ifdef MFC_DEBUG
3164# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3165 block
3166# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3167 use iso_fortran_env, only: output_unit
3168# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3169
3170# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3171 print *, 'm_rhs.fpp:403: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
3172# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3173
3174# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3175 call flush (output_unit)
3176# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3177 end block
3178# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3179#endif
3180# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3181 allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
3182# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3183
3184# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3185
3186# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3187#if defined(MFC_OpenACC)
3188# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3189!$acc enter data create(dqR_prim_dz_n(i)%vf)
3190# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3191#elif defined(MFC_OpenMP)
3192# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3193!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf)
3194# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3195#endif
3196
3197 do l = momxb, momxe
3198#ifdef MFC_DEBUG
3199# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3200 block
3201# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3202 use iso_fortran_env, only: output_unit
3203# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3204
3205# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3206 print *, 'm_rhs.fpp:406: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
3207# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3208
3209# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3210 call flush (output_unit)
3211# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3212 end block
3213# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3214#endif
3215# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3216 allocate (dql_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
3217# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3218
3219# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3220
3221# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3222#if defined(MFC_OpenACC)
3223# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3224!$acc enter data create(dqL_prim_dx_n(i)%vf(l)%sf)
3225# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3226#elif defined(MFC_OpenMP)
3227# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3228!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf(l)%sf)
3229# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3230#endif
3231#ifdef MFC_DEBUG
3232# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3233 block
3234# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3235 use iso_fortran_env, only: output_unit
3236# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3237
3238# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3239 print *, 'm_rhs.fpp:407: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
3240# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3241
3242# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3243 call flush (output_unit)
3244# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3245 end block
3246# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3247#endif
3248# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3249 allocate (dql_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
3250# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3251
3252# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3253
3254# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3255#if defined(MFC_OpenACC)
3256# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3257!$acc enter data create(dqL_prim_dy_n(i)%vf(l)%sf)
3258# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3259#elif defined(MFC_OpenMP)
3260# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3261!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf(l)%sf)
3262# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3263#endif
3264#ifdef MFC_DEBUG
3265# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3266 block
3267# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3268 use iso_fortran_env, only: output_unit
3269# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3270
3271# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3272 print *, 'm_rhs.fpp:408: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
3273# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3274
3275# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3276 call flush (output_unit)
3277# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3278 end block
3279# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3280#endif
3281# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3282 allocate (dql_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
3283# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3284
3285# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3286
3287# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3288#if defined(MFC_OpenACC)
3289# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3290!$acc enter data create(dqL_prim_dz_n(i)%vf(l)%sf)
3291# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3292#elif defined(MFC_OpenMP)
3293# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3294!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf(l)%sf)
3295# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3296#endif
3297#ifdef MFC_DEBUG
3298# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3299 block
3300# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3301 use iso_fortran_env, only: output_unit
3302# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3303
3304# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3305 print *, 'm_rhs.fpp:409: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
3306# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3307
3308# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3309 call flush (output_unit)
3310# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3311 end block
3312# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3313#endif
3314# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3315 allocate (dqr_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
3316# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3317
3318# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3319
3320# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3321#if defined(MFC_OpenACC)
3322# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3323!$acc enter data create(dqR_prim_dx_n(i)%vf(l)%sf)
3324# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3325#elif defined(MFC_OpenMP)
3326# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3327!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf(l)%sf)
3328# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3329#endif
3330#ifdef MFC_DEBUG
3331# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3332 block
3333# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3334 use iso_fortran_env, only: output_unit
3335# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3336
3337# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3338 print *, 'm_rhs.fpp:410: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
3339# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3340
3341# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3342 call flush (output_unit)
3343# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3344 end block
3345# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3346#endif
3347# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3348 allocate (dqr_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
3349# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3350
3351# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3352
3353# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3354#if defined(MFC_OpenACC)
3355# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3356!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf)
3357# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3358#elif defined(MFC_OpenMP)
3359# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3360!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf(l)%sf)
3361# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3362#endif
3363#ifdef MFC_DEBUG
3364# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3365 block
3366# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3367 use iso_fortran_env, only: output_unit
3368# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3369
3370# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3371 print *, 'm_rhs.fpp:411: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
3372# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3373
3374# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3375 call flush (output_unit)
3376# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3377 end block
3378# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3379#endif
3380# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3381 allocate (dqr_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
3382# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3383
3384# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3385
3386# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3387#if defined(MFC_OpenACC)
3388# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3389!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf)
3390# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3391#elif defined(MFC_OpenMP)
3392# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3393!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf(l)%sf)
3394# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3395#endif
3396 end do
3397#ifdef _CRAYFTN
3398# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3399 block
3400# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3401 integer :: macros_setup_vfs_i
3402# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3403
3404# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3405#ifdef MFC_DEBUG
3406# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3407 block
3408# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3409 use iso_fortran_env, only: output_unit
3410# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3411
3412# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3413 print *, 'm_rhs.fpp:413: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
3414# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3415
3416# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3417 call flush (output_unit)
3418# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3419 end block
3420# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3421#endif
3422# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3423
3424# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3425
3426# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3427#if defined(MFC_OpenACC)
3428# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3429!$acc enter data copyin(dqL_prim_dx_n(i))
3430# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3431#elif defined(MFC_OpenMP)
3432# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3433!$omp target enter data map(to:dqL_prim_dx_n(i))
3434# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3435#endif
3436# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3437
3438# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3439#if defined(MFC_OpenACC)
3440# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3441!$acc enter data copyin(dqL_prim_dx_n(i)%vf)
3442# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3443#elif defined(MFC_OpenMP)
3444# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3445!$omp target enter data map(to:dqL_prim_dx_n(i)%vf)
3446# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3447#endif
3448# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3449 if (allocated(dql_prim_dx_n(i)%vf)) then
3450# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3451 do macros_setup_vfs_i = lbound(dql_prim_dx_n(i)%vf, 1), ubound(dql_prim_dx_n(i)%vf, 1)
3452# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3453 if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
3454# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3455
3456# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3457#if defined(MFC_OpenACC)
3458# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3459!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i))
3460# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3461#elif defined(MFC_OpenMP)
3462# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3463!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i))
3464# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3465#endif
3466# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3467
3468# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3469#if defined(MFC_OpenACC)
3470# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3471!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
3472# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3473#elif defined(MFC_OpenMP)
3474# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3475!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
3476# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3477#endif
3478# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3479 end if
3480# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3481 end do
3482# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3483 end if
3484# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3485
3486# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3487#if defined(MFC_OpenACC)
3488# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3489!$acc enter data copyin(dqL_prim_dy_n(i))
3490# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3491#elif defined(MFC_OpenMP)
3492# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3493!$omp target enter data map(to:dqL_prim_dy_n(i))
3494# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3495#endif
3496# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3497
3498# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3499#if defined(MFC_OpenACC)
3500# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3501!$acc enter data copyin(dqL_prim_dy_n(i)%vf)
3502# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3503#elif defined(MFC_OpenMP)
3504# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3505!$omp target enter data map(to:dqL_prim_dy_n(i)%vf)
3506# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3507#endif
3508# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3509 if (allocated(dql_prim_dy_n(i)%vf)) then
3510# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3511 do macros_setup_vfs_i = lbound(dql_prim_dy_n(i)%vf, 1), ubound(dql_prim_dy_n(i)%vf, 1)
3512# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3513 if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
3514# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3515
3516# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3517#if defined(MFC_OpenACC)
3518# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3519!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i))
3520# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3521#elif defined(MFC_OpenMP)
3522# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3523!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i))
3524# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3525#endif
3526# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3527
3528# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3529#if defined(MFC_OpenACC)
3530# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3531!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
3532# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3533#elif defined(MFC_OpenMP)
3534# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3535!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
3536# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3537#endif
3538# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3539 end if
3540# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3541 end do
3542# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3543 end if
3544# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3545
3546# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3547#if defined(MFC_OpenACC)
3548# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3549!$acc enter data copyin(dqL_prim_dz_n(i))
3550# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3551#elif defined(MFC_OpenMP)
3552# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3553!$omp target enter data map(to:dqL_prim_dz_n(i))
3554# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3555#endif
3556# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3557
3558# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3559#if defined(MFC_OpenACC)
3560# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3561!$acc enter data copyin(dqL_prim_dz_n(i)%vf)
3562# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3563#elif defined(MFC_OpenMP)
3564# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3565!$omp target enter data map(to:dqL_prim_dz_n(i)%vf)
3566# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3567#endif
3568# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3569 if (allocated(dql_prim_dz_n(i)%vf)) then
3570# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3571 do macros_setup_vfs_i = lbound(dql_prim_dz_n(i)%vf, 1), ubound(dql_prim_dz_n(i)%vf, 1)
3572# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3573 if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
3574# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3575
3576# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3577#if defined(MFC_OpenACC)
3578# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3579!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i))
3580# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3581#elif defined(MFC_OpenMP)
3582# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3583!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i))
3584# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3585#endif
3586# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3587
3588# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3589#if defined(MFC_OpenACC)
3590# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3591!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
3592# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3593#elif defined(MFC_OpenMP)
3594# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3595!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
3596# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3597#endif
3598# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3599 end if
3600# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3601 end do
3602# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3603 end if
3604# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3605 end block
3606# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3607#endif
3608#ifdef _CRAYFTN
3609# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3610 block
3611# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3612 integer :: macros_setup_vfs_i
3613# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3614
3615# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3616#ifdef MFC_DEBUG
3617# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3618 block
3619# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3620 use iso_fortran_env, only: output_unit
3621# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3622
3623# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3624 print *, 'm_rhs.fpp:414: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
3625# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3626
3627# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3628 call flush (output_unit)
3629# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3630 end block
3631# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3632#endif
3633# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3634
3635# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3636
3637# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3638#if defined(MFC_OpenACC)
3639# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3640!$acc enter data copyin(dqR_prim_dx_n(i))
3641# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3642#elif defined(MFC_OpenMP)
3643# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3644!$omp target enter data map(to:dqR_prim_dx_n(i))
3645# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3646#endif
3647# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3648
3649# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3650#if defined(MFC_OpenACC)
3651# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3652!$acc enter data copyin(dqR_prim_dx_n(i)%vf)
3653# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3654#elif defined(MFC_OpenMP)
3655# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3656!$omp target enter data map(to:dqR_prim_dx_n(i)%vf)
3657# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3658#endif
3659# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3660 if (allocated(dqr_prim_dx_n(i)%vf)) then
3661# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3662 do macros_setup_vfs_i = lbound(dqr_prim_dx_n(i)%vf, 1), ubound(dqr_prim_dx_n(i)%vf, 1)
3663# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3664 if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
3665# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3666
3667# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3668#if defined(MFC_OpenACC)
3669# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3670!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i))
3671# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3672#elif defined(MFC_OpenMP)
3673# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3674!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i))
3675# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3676#endif
3677# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3678
3679# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3680#if defined(MFC_OpenACC)
3681# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3682!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
3683# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3684#elif defined(MFC_OpenMP)
3685# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3686!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
3687# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3688#endif
3689# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3690 end if
3691# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3692 end do
3693# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3694 end if
3695# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3696
3697# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3698#if defined(MFC_OpenACC)
3699# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3700!$acc enter data copyin(dqR_prim_dy_n(i))
3701# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3702#elif defined(MFC_OpenMP)
3703# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3704!$omp target enter data map(to:dqR_prim_dy_n(i))
3705# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3706#endif
3707# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3708
3709# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3710#if defined(MFC_OpenACC)
3711# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3712!$acc enter data copyin(dqR_prim_dy_n(i)%vf)
3713# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3714#elif defined(MFC_OpenMP)
3715# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3716!$omp target enter data map(to:dqR_prim_dy_n(i)%vf)
3717# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3718#endif
3719# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3720 if (allocated(dqr_prim_dy_n(i)%vf)) then
3721# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3722 do macros_setup_vfs_i = lbound(dqr_prim_dy_n(i)%vf, 1), ubound(dqr_prim_dy_n(i)%vf, 1)
3723# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3724 if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
3725# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3726
3727# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3728#if defined(MFC_OpenACC)
3729# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3730!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i))
3731# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3732#elif defined(MFC_OpenMP)
3733# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3734!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i))
3735# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3736#endif
3737# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3738
3739# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3740#if defined(MFC_OpenACC)
3741# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3742!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
3743# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3744#elif defined(MFC_OpenMP)
3745# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3746!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
3747# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3748#endif
3749# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3750 end if
3751# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3752 end do
3753# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3754 end if
3755# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3756
3757# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3758#if defined(MFC_OpenACC)
3759# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3760!$acc enter data copyin(dqR_prim_dz_n(i))
3761# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3762#elif defined(MFC_OpenMP)
3763# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3764!$omp target enter data map(to:dqR_prim_dz_n(i))
3765# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3766#endif
3767# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3768
3769# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3770#if defined(MFC_OpenACC)
3771# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3772!$acc enter data copyin(dqR_prim_dz_n(i)%vf)
3773# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3774#elif defined(MFC_OpenMP)
3775# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3776!$omp target enter data map(to:dqR_prim_dz_n(i)%vf)
3777# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3778#endif
3779# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3780 if (allocated(dqr_prim_dz_n(i)%vf)) then
3781# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3782 do macros_setup_vfs_i = lbound(dqr_prim_dz_n(i)%vf, 1), ubound(dqr_prim_dz_n(i)%vf, 1)
3783# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3784 if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
3785# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3786
3787# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3788#if defined(MFC_OpenACC)
3789# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3790!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i))
3791# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3792#elif defined(MFC_OpenMP)
3793# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3794!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i))
3795# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3796#endif
3797# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3798
3799# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3800#if defined(MFC_OpenACC)
3801# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3802!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
3803# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3804#elif defined(MFC_OpenMP)
3805# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3806!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
3807# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3808#endif
3809# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3810 end if
3811# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3812 end do
3813# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3814 end if
3815# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3816 end block
3817# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3818#endif
3819 end do
3820 end if
3821
3822 if (viscous) then
3823
3824#ifdef MFC_DEBUG
3825# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3826 block
3827# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3828 use iso_fortran_env, only: output_unit
3829# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3830
3831# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3832 print *, 'm_rhs.fpp:420: ', '@:ALLOCATE(tau_Re_vf(1:sys_size))'
3833# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3834
3835# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3836 call flush (output_unit)
3837# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3838 end block
3839# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3840#endif
3841# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3842 allocate (tau_re_vf(1:sys_size))
3843# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3844
3845# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3846
3847# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3848#if defined(MFC_OpenACC)
3849# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3850!$acc enter data create(tau_Re_vf)
3851# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3852#elif defined(MFC_OpenMP)
3853# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3854!$omp target enter data map(always,alloc:tau_Re_vf)
3855# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3856#endif
3857 do i = 1, num_dims
3858#ifdef MFC_DEBUG
3859# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3860 block
3861# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3862 use iso_fortran_env, only: output_unit
3863# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3864
3865# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3866 print *, 'm_rhs.fpp:422: ', '@:ALLOCATE(tau_Re_vf(cont_idx%end + i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
3867# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3868
3869# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3870 call flush (output_unit)
3871# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3872 end block
3873# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3874#endif
3875# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3876 allocate (tau_re_vf(cont_idx%end + i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
3877# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3878
3879# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3880
3881# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3882#if defined(MFC_OpenACC)
3883# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3884!$acc enter data create(tau_Re_vf(cont_idx%end + i)%sf)
3885# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3886#elif defined(MFC_OpenMP)
3887# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3888!$omp target enter data map(always,alloc:tau_Re_vf(cont_idx%end + i)%sf)
3889# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3890#endif
3891# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3892#ifdef _CRAYFTN
3893# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3894 block
3895# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3896
3897# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3898#ifdef MFC_DEBUG
3899# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3900 block
3901# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3902 use iso_fortran_env, only: output_unit
3903# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3904
3905# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3906 print *, 'm_rhs.fpp:425: ', '@:ACC_SETUP_SFs(tau_Re_vf(cont_idx%end + i))'
3907# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3908
3909# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3910 call flush (output_unit)
3911# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3912 end block
3913# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3914#endif
3915# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3916
3917# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3918
3919# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3920#if defined(MFC_OpenACC)
3921# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3922!$acc enter data copyin(tau_Re_vf(cont_idx%end + i))
3923# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3924#elif defined(MFC_OpenMP)
3925# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3926!$omp target enter data map(to:tau_Re_vf(cont_idx%end + i))
3927# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3928#endif
3929# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3930 if (associated(tau_re_vf(cont_idx%end + i)%sf)) then
3931# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3932
3933# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3934#if defined(MFC_OpenACC)
3935# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3936!$acc enter data copyin(tau_Re_vf(cont_idx%end + i)%sf)
3937# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3938#elif defined(MFC_OpenMP)
3939# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3940!$omp target enter data map(to:tau_Re_vf(cont_idx%end + i)%sf)
3941# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3942#endif
3943# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3944 end if
3945# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3946 end block
3947# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3948#endif
3949 end do
3950#ifdef MFC_DEBUG
3951# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3952 block
3953# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3954 use iso_fortran_env, only: output_unit
3955# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3956
3957# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3958 print *, 'm_rhs.fpp:427: ', '@:ALLOCATE(tau_Re_vf(E_idx)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
3959# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3960
3961# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3962 call flush (output_unit)
3963# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3964 end block
3965# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3966#endif
3967# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3968 allocate (tau_re_vf(e_idx)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
3969# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3970
3971# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3972
3973# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3974#if defined(MFC_OpenACC)
3975# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3976!$acc enter data create(tau_Re_vf(E_idx)%sf)
3977# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3978#elif defined(MFC_OpenMP)
3979# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3980!$omp target enter data map(always,alloc:tau_Re_vf(E_idx)%sf)
3981# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3982#endif
3983# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3984#ifdef _CRAYFTN
3985# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3986 block
3987# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3988
3989# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3990#ifdef MFC_DEBUG
3991# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3992 block
3993# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3994 use iso_fortran_env, only: output_unit
3995# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3996
3997# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
3998 print *, 'm_rhs.fpp:430: ', '@:ACC_SETUP_SFs(tau_Re_vf(E_idx))'
3999# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4000
4001# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4002 call flush (output_unit)
4003# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4004 end block
4005# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4006#endif
4007# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4008
4009# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4010
4011# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4012#if defined(MFC_OpenACC)
4013# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4014!$acc enter data copyin(tau_Re_vf(E_idx))
4015# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4016#elif defined(MFC_OpenMP)
4017# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4018!$omp target enter data map(to:tau_Re_vf(E_idx))
4019# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4020#endif
4021# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4022 if (associated(tau_re_vf(e_idx)%sf)) then
4023# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4024
4025# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4026#if defined(MFC_OpenACC)
4027# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4028!$acc enter data copyin(tau_Re_vf(E_idx)%sf)
4029# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4030#elif defined(MFC_OpenMP)
4031# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4032!$omp target enter data map(to:tau_Re_vf(E_idx)%sf)
4033# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4034#endif
4035# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4036 end if
4037# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4038 end block
4039# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4040#endif
4041
4042#ifdef MFC_DEBUG
4043# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4044 block
4045# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4046 use iso_fortran_env, only: output_unit
4047# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4048
4049# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4050 print *, 'm_rhs.fpp:432: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
4051# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4052
4053# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4054 call flush (output_unit)
4055# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4056 end block
4057# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4058#endif
4059# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4060 allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
4061# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4062
4063# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4064
4065# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4066#if defined(MFC_OpenACC)
4067# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4068!$acc enter data create(dq_prim_dx_qp(1)%vf)
4069# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4070#elif defined(MFC_OpenMP)
4071# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4072!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf)
4073# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4074#endif
4075#ifdef MFC_DEBUG
4076# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4077 block
4078# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4079 use iso_fortran_env, only: output_unit
4080# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4081
4082# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4083 print *, 'm_rhs.fpp:433: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
4084# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4085
4086# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4087 call flush (output_unit)
4088# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4089 end block
4090# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4091#endif
4092# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4093 allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
4094# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4095
4096# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4097
4098# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4099#if defined(MFC_OpenACC)
4100# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4101!$acc enter data create(dq_prim_dy_qp(1)%vf)
4102# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4103#elif defined(MFC_OpenMP)
4104# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4105!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf)
4106# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4107#endif
4108#ifdef MFC_DEBUG
4109# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4110 block
4111# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4112 use iso_fortran_env, only: output_unit
4113# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4114
4115# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4116 print *, 'm_rhs.fpp:434: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
4117# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4118
4119# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4120 call flush (output_unit)
4121# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4122 end block
4123# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4124#endif
4125# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4126 allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
4127# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4128
4129# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4130
4131# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4132#if defined(MFC_OpenACC)
4133# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4134!$acc enter data create(dq_prim_dz_qp(1)%vf)
4135# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4136#elif defined(MFC_OpenMP)
4137# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4138!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf)
4139# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4140#endif
4141
4142 do l = mom_idx%beg, mom_idx%end
4143#ifdef MFC_DEBUG
4144# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4145 block
4146# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4147 use iso_fortran_env, only: output_unit
4148# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4149
4150# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4151 print *, 'm_rhs.fpp:437: ', '@: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))'
4152# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4153
4154# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4155 call flush (output_unit)
4156# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4157 end block
4158# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4159#endif
4160# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4161 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))
4162# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4163
4164# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4165
4166# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4167#if defined(MFC_OpenACC)
4168# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4169!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf)
4170# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4171#elif defined(MFC_OpenMP)
4172# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4173!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf(l)%sf)
4174# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4175#endif
4176# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4177 end do
4178
4179#ifdef _CRAYFTN
4180# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4181 block
4182# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4183 integer :: macros_setup_vfs_i
4184# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4185
4186# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4187#ifdef MFC_DEBUG
4188# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4189 block
4190# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4191 use iso_fortran_env, only: output_unit
4192# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4193
4194# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4195 print *, 'm_rhs.fpp:443: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
4196# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4197
4198# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4199 call flush (output_unit)
4200# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4201 end block
4202# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4203#endif
4204# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4205
4206# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4207
4208# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4209#if defined(MFC_OpenACC)
4210# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4211!$acc enter data copyin(dq_prim_dx_qp(1))
4212# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4213#elif defined(MFC_OpenMP)
4214# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4215!$omp target enter data map(to:dq_prim_dx_qp(1))
4216# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4217#endif
4218# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4219
4220# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4221#if defined(MFC_OpenACC)
4222# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4223!$acc enter data copyin(dq_prim_dx_qp(1)%vf)
4224# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4225#elif defined(MFC_OpenMP)
4226# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4227!$omp target enter data map(to:dq_prim_dx_qp(1)%vf)
4228# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4229#endif
4230# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4231 if (allocated(dq_prim_dx_qp(1)%vf)) then
4232# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4233 do macros_setup_vfs_i = lbound(dq_prim_dx_qp(1)%vf, 1), ubound(dq_prim_dx_qp(1)%vf, 1)
4234# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4235 if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
4236# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4237
4238# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4239#if defined(MFC_OpenACC)
4240# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4241!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i))
4242# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4243#elif defined(MFC_OpenMP)
4244# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4245!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i))
4246# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4247#endif
4248# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4249
4250# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4251#if defined(MFC_OpenACC)
4252# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4253!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)
4254# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4255#elif defined(MFC_OpenMP)
4256# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4257!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)
4258# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4259#endif
4260# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4261 end if
4262# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4263 end do
4264# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4265 end if
4266# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4267 end block
4268# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4269#endif
4270
4271 if (n > 0) then
4272
4273 do l = mom_idx%beg, mom_idx%end
4274#ifdef MFC_DEBUG
4275# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4276 block
4277# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4278 use iso_fortran_env, only: output_unit
4279# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4280
4281# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4282 print *, 'm_rhs.fpp:448: ', '@: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))'
4283# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4284
4285# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4286 call flush (output_unit)
4287# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4288 end block
4289# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4290#endif
4291# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4292 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))
4293# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4294
4295# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4296
4297# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4298#if defined(MFC_OpenACC)
4299# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4300!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf)
4301# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4302#elif defined(MFC_OpenMP)
4303# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4304!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf(l)%sf)
4305# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4306#endif
4307# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4308 end do
4309
4310#ifdef _CRAYFTN
4311# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4312 block
4313# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4314 integer :: macros_setup_vfs_i
4315# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4316
4317# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4318#ifdef MFC_DEBUG
4319# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4320 block
4321# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4322 use iso_fortran_env, only: output_unit
4323# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4324
4325# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4326 print *, 'm_rhs.fpp:454: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
4327# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4328
4329# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4330 call flush (output_unit)
4331# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4332 end block
4333# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4334#endif
4335# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4336
4337# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4338
4339# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4340#if defined(MFC_OpenACC)
4341# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4342!$acc enter data copyin(dq_prim_dy_qp(1))
4343# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4344#elif defined(MFC_OpenMP)
4345# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4346!$omp target enter data map(to:dq_prim_dy_qp(1))
4347# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4348#endif
4349# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4350
4351# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4352#if defined(MFC_OpenACC)
4353# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4354!$acc enter data copyin(dq_prim_dy_qp(1)%vf)
4355# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4356#elif defined(MFC_OpenMP)
4357# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4358!$omp target enter data map(to:dq_prim_dy_qp(1)%vf)
4359# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4360#endif
4361# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4362 if (allocated(dq_prim_dy_qp(1)%vf)) then
4363# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4364 do macros_setup_vfs_i = lbound(dq_prim_dy_qp(1)%vf, 1), ubound(dq_prim_dy_qp(1)%vf, 1)
4365# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4366 if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
4367# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4368
4369# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4370#if defined(MFC_OpenACC)
4371# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4372!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i))
4373# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4374#elif defined(MFC_OpenMP)
4375# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4376!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i))
4377# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4378#endif
4379# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4380
4381# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4382#if defined(MFC_OpenACC)
4383# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4384!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)
4385# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4386#elif defined(MFC_OpenMP)
4387# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4388!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)
4389# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4390#endif
4391# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4392 end if
4393# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4394 end do
4395# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4396 end if
4397# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4398 end block
4399# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4400#endif
4401
4402 if (p > 0) then
4403
4404 do l = mom_idx%beg, mom_idx%end
4405#ifdef MFC_DEBUG
4406# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4407 block
4408# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4409 use iso_fortran_env, only: output_unit
4410# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4411
4412# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4413 print *, 'm_rhs.fpp:459: ', '@: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))'
4414# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4415
4416# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4417 call flush (output_unit)
4418# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4419 end block
4420# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4421#endif
4422# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4423 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))
4424# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4425
4426# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4427
4428# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4429#if defined(MFC_OpenACC)
4430# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4431!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf)
4432# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4433#elif defined(MFC_OpenMP)
4434# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4435!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf(l)%sf)
4436# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4437#endif
4438# 463 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4439 end do
4440#ifdef _CRAYFTN
4441# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4442 block
4443# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4444 integer :: macros_setup_vfs_i
4445# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4446
4447# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4448#ifdef MFC_DEBUG
4449# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4450 block
4451# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4452 use iso_fortran_env, only: output_unit
4453# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4454
4455# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4456 print *, 'm_rhs.fpp:464: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
4457# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4458
4459# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4460 call flush (output_unit)
4461# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4462 end block
4463# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4464#endif
4465# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4466
4467# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4468
4469# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4470#if defined(MFC_OpenACC)
4471# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4472!$acc enter data copyin(dq_prim_dz_qp(1))
4473# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4474#elif defined(MFC_OpenMP)
4475# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4476!$omp target enter data map(to:dq_prim_dz_qp(1))
4477# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4478#endif
4479# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4480
4481# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4482#if defined(MFC_OpenACC)
4483# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4484!$acc enter data copyin(dq_prim_dz_qp(1)%vf)
4485# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4486#elif defined(MFC_OpenMP)
4487# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4488!$omp target enter data map(to:dq_prim_dz_qp(1)%vf)
4489# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4490#endif
4491# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4492 if (allocated(dq_prim_dz_qp(1)%vf)) then
4493# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4494 do macros_setup_vfs_i = lbound(dq_prim_dz_qp(1)%vf, 1), ubound(dq_prim_dz_qp(1)%vf, 1)
4495# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4496 if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
4497# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4498
4499# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4500#if defined(MFC_OpenACC)
4501# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4502!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i))
4503# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4504#elif defined(MFC_OpenMP)
4505# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4506!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i))
4507# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4508#endif
4509# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4510
4511# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4512#if defined(MFC_OpenACC)
4513# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4514!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)
4515# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4516#elif defined(MFC_OpenMP)
4517# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4518!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)
4519# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4520#endif
4521# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4522 end if
4523# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4524 end do
4525# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4526 end if
4527# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4528 end block
4529# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4530#endif
4531 end if
4532
4533 end if
4534
4535 do i = 1, num_dims
4536#ifdef MFC_DEBUG
4537# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4538 block
4539# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4540 use iso_fortran_env, only: output_unit
4541# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4542
4543# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4544 print *, 'm_rhs.fpp:470: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
4545# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4546
4547# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4548 call flush (output_unit)
4549# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4550 end block
4551# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4552#endif
4553# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4554 allocate (dql_prim_dx_n(i)%vf(1:sys_size))
4555# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4556
4557# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4558
4559# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4560#if defined(MFC_OpenACC)
4561# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4562!$acc enter data create(dqL_prim_dx_n(i)%vf)
4563# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4564#elif defined(MFC_OpenMP)
4565# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4566!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf)
4567# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4568#endif
4569#ifdef MFC_DEBUG
4570# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4571 block
4572# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4573 use iso_fortran_env, only: output_unit
4574# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4575
4576# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4577 print *, 'm_rhs.fpp:471: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
4578# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4579
4580# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4581 call flush (output_unit)
4582# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4583 end block
4584# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4585#endif
4586# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4587 allocate (dql_prim_dy_n(i)%vf(1:sys_size))
4588# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4589
4590# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4591
4592# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4593#if defined(MFC_OpenACC)
4594# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4595!$acc enter data create(dqL_prim_dy_n(i)%vf)
4596# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4597#elif defined(MFC_OpenMP)
4598# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4599!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf)
4600# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4601#endif
4602#ifdef MFC_DEBUG
4603# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4604 block
4605# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4606 use iso_fortran_env, only: output_unit
4607# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4608
4609# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4610 print *, 'm_rhs.fpp:472: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
4611# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4612
4613# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4614 call flush (output_unit)
4615# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4616 end block
4617# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4618#endif
4619# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4620 allocate (dql_prim_dz_n(i)%vf(1:sys_size))
4621# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4622
4623# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4624
4625# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4626#if defined(MFC_OpenACC)
4627# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4628!$acc enter data create(dqL_prim_dz_n(i)%vf)
4629# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4630#elif defined(MFC_OpenMP)
4631# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4632!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf)
4633# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4634#endif
4635#ifdef MFC_DEBUG
4636# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4637 block
4638# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4639 use iso_fortran_env, only: output_unit
4640# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4641
4642# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4643 print *, 'm_rhs.fpp:473: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
4644# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4645
4646# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4647 call flush (output_unit)
4648# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4649 end block
4650# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4651#endif
4652# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4653 allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
4654# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4655
4656# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4657
4658# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4659#if defined(MFC_OpenACC)
4660# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4661!$acc enter data create(dqR_prim_dx_n(i)%vf)
4662# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4663#elif defined(MFC_OpenMP)
4664# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4665!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf)
4666# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4667#endif
4668#ifdef MFC_DEBUG
4669# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4670 block
4671# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4672 use iso_fortran_env, only: output_unit
4673# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4674
4675# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4676 print *, 'm_rhs.fpp:474: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
4677# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4678
4679# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4680 call flush (output_unit)
4681# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4682 end block
4683# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4684#endif
4685# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4686 allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
4687# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4688
4689# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4690
4691# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4692#if defined(MFC_OpenACC)
4693# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4694!$acc enter data create(dqR_prim_dy_n(i)%vf)
4695# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4696#elif defined(MFC_OpenMP)
4697# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4698!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf)
4699# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4700#endif
4701#ifdef MFC_DEBUG
4702# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4703 block
4704# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4705 use iso_fortran_env, only: output_unit
4706# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4707
4708# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4709 print *, 'm_rhs.fpp:475: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
4710# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4711
4712# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4713 call flush (output_unit)
4714# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4715 end block
4716# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4717#endif
4718# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4719 allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
4720# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4721
4722# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4723
4724# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4725#if defined(MFC_OpenACC)
4726# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4727!$acc enter data create(dqR_prim_dz_n(i)%vf)
4728# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4729#elif defined(MFC_OpenMP)
4730# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4731!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf)
4732# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4733#endif
4734 end do
4735
4736 do i = 1, num_dims
4737
4738 do l = mom_idx%beg, mom_idx%end
4739#ifdef MFC_DEBUG
4740# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4741 block
4742# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4743 use iso_fortran_env, only: output_unit
4744# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4745
4746# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4747 print *, 'm_rhs.fpp:481: ', '@: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))'
4748# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4749
4750# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4751 call flush (output_unit)
4752# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4753 end block
4754# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4755#endif
4756# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4757 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))
4758# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4759
4760# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4761
4762# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4763#if defined(MFC_OpenACC)
4764# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4765!$acc enter data create(dqL_prim_dx_n(i)%vf(l)%sf)
4766# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4767#elif defined(MFC_OpenMP)
4768# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4769!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf(l)%sf)
4770# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4771#endif
4772# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4773#ifdef MFC_DEBUG
4774# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4775 block
4776# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4777 use iso_fortran_env, only: output_unit
4778# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4779
4780# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4781 print *, 'm_rhs.fpp:485: ', '@: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))'
4782# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4783
4784# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4785 call flush (output_unit)
4786# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4787 end block
4788# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4789#endif
4790# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4791 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))
4792# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4793
4794# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4795
4796# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4797#if defined(MFC_OpenACC)
4798# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4799!$acc enter data create(dqR_prim_dx_n(i)%vf(l)%sf)
4800# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4801#elif defined(MFC_OpenMP)
4802# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4803!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf(l)%sf)
4804# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4805#endif
4806# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4807 end do
4808
4809 if (n > 0) then
4810 do l = mom_idx%beg, mom_idx%end
4811#ifdef MFC_DEBUG
4812# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4813 block
4814# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4815 use iso_fortran_env, only: output_unit
4816# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4817
4818# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4819 print *, 'm_rhs.fpp:493: ', '@: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))'
4820# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4821
4822# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4823 call flush (output_unit)
4824# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4825 end block
4826# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4827#endif
4828# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4829 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))
4830# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4831
4832# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4833
4834# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4835#if defined(MFC_OpenACC)
4836# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4837!$acc enter data create(dqL_prim_dy_n(i)%vf(l)%sf)
4838# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4839#elif defined(MFC_OpenMP)
4840# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4841!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf(l)%sf)
4842# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4843#endif
4844# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4845#ifdef MFC_DEBUG
4846# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4847 block
4848# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4849 use iso_fortran_env, only: output_unit
4850# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4851
4852# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4853 print *, 'm_rhs.fpp:497: ', '@: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))'
4854# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4855
4856# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4857 call flush (output_unit)
4858# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4859 end block
4860# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4861#endif
4862# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4863 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))
4864# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4865
4866# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4867
4868# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4869#if defined(MFC_OpenACC)
4870# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4871!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf)
4872# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4873#elif defined(MFC_OpenMP)
4874# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4875!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf(l)%sf)
4876# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4877#endif
4878# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4879 end do
4880 end if
4881
4882 if (p > 0) then
4883 do l = mom_idx%beg, mom_idx%end
4884#ifdef MFC_DEBUG
4885# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4886 block
4887# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4888 use iso_fortran_env, only: output_unit
4889# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4890
4891# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4892 print *, 'm_rhs.fpp:506: ', '@: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))'
4893# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4894
4895# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4896 call flush (output_unit)
4897# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4898 end block
4899# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4900#endif
4901# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4902 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))
4903# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4904
4905# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4906
4907# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4908#if defined(MFC_OpenACC)
4909# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4910!$acc enter data create(dqL_prim_dz_n(i)%vf(l)%sf)
4911# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4912#elif defined(MFC_OpenMP)
4913# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4914!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf(l)%sf)
4915# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4916#endif
4917# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4918#ifdef MFC_DEBUG
4919# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4920 block
4921# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4922 use iso_fortran_env, only: output_unit
4923# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4924
4925# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4926 print *, 'm_rhs.fpp:510: ', '@: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))'
4927# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4928
4929# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4930 call flush (output_unit)
4931# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4932 end block
4933# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4934#endif
4935# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4936 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))
4937# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4938
4939# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4940
4941# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4942#if defined(MFC_OpenACC)
4943# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4944!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf)
4945# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4946#elif defined(MFC_OpenMP)
4947# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4948!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf(l)%sf)
4949# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4950#endif
4951# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4952 end do
4953 end if
4954
4955#ifdef _CRAYFTN
4956# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4957 block
4958# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4959 integer :: macros_setup_vfs_i
4960# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4961
4962# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4963#ifdef MFC_DEBUG
4964# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4965 block
4966# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4967 use iso_fortran_env, only: output_unit
4968# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4969
4970# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4971 print *, 'm_rhs.fpp:517: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
4972# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4973
4974# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4975 call flush (output_unit)
4976# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4977 end block
4978# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4979#endif
4980# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4981
4982# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4983
4984# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4985#if defined(MFC_OpenACC)
4986# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4987!$acc enter data copyin(dqL_prim_dx_n(i))
4988# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4989#elif defined(MFC_OpenMP)
4990# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4991!$omp target enter data map(to:dqL_prim_dx_n(i))
4992# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4993#endif
4994# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4995
4996# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4997#if defined(MFC_OpenACC)
4998# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
4999!$acc enter data copyin(dqL_prim_dx_n(i)%vf)
5000# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5001#elif defined(MFC_OpenMP)
5002# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5003!$omp target enter data map(to:dqL_prim_dx_n(i)%vf)
5004# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5005#endif
5006# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5007 if (allocated(dql_prim_dx_n(i)%vf)) then
5008# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5009 do macros_setup_vfs_i = lbound(dql_prim_dx_n(i)%vf, 1), ubound(dql_prim_dx_n(i)%vf, 1)
5010# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5011 if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
5012# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5013
5014# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5015#if defined(MFC_OpenACC)
5016# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5017!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i))
5018# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5019#elif defined(MFC_OpenMP)
5020# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5021!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i))
5022# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5023#endif
5024# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5025
5026# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5027#if defined(MFC_OpenACC)
5028# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5029!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
5030# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5031#elif defined(MFC_OpenMP)
5032# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5033!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
5034# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5035#endif
5036# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5037 end if
5038# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5039 end do
5040# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5041 end if
5042# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5043
5044# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5045#if defined(MFC_OpenACC)
5046# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5047!$acc enter data copyin(dqL_prim_dy_n(i))
5048# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5049#elif defined(MFC_OpenMP)
5050# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5051!$omp target enter data map(to:dqL_prim_dy_n(i))
5052# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5053#endif
5054# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5055
5056# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5057#if defined(MFC_OpenACC)
5058# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5059!$acc enter data copyin(dqL_prim_dy_n(i)%vf)
5060# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5061#elif defined(MFC_OpenMP)
5062# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5063!$omp target enter data map(to:dqL_prim_dy_n(i)%vf)
5064# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5065#endif
5066# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5067 if (allocated(dql_prim_dy_n(i)%vf)) then
5068# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5069 do macros_setup_vfs_i = lbound(dql_prim_dy_n(i)%vf, 1), ubound(dql_prim_dy_n(i)%vf, 1)
5070# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5071 if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
5072# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5073
5074# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5075#if defined(MFC_OpenACC)
5076# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5077!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i))
5078# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5079#elif defined(MFC_OpenMP)
5080# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5081!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i))
5082# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5083#endif
5084# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5085
5086# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5087#if defined(MFC_OpenACC)
5088# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5089!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
5090# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5091#elif defined(MFC_OpenMP)
5092# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5093!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
5094# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5095#endif
5096# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5097 end if
5098# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5099 end do
5100# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5101 end if
5102# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5103
5104# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5105#if defined(MFC_OpenACC)
5106# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5107!$acc enter data copyin(dqL_prim_dz_n(i))
5108# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5109#elif defined(MFC_OpenMP)
5110# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5111!$omp target enter data map(to:dqL_prim_dz_n(i))
5112# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5113#endif
5114# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5115
5116# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5117#if defined(MFC_OpenACC)
5118# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5119!$acc enter data copyin(dqL_prim_dz_n(i)%vf)
5120# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5121#elif defined(MFC_OpenMP)
5122# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5123!$omp target enter data map(to:dqL_prim_dz_n(i)%vf)
5124# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5125#endif
5126# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5127 if (allocated(dql_prim_dz_n(i)%vf)) then
5128# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5129 do macros_setup_vfs_i = lbound(dql_prim_dz_n(i)%vf, 1), ubound(dql_prim_dz_n(i)%vf, 1)
5130# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5131 if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
5132# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5133
5134# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5135#if defined(MFC_OpenACC)
5136# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5137!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i))
5138# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5139#elif defined(MFC_OpenMP)
5140# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5141!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i))
5142# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5143#endif
5144# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5145
5146# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5147#if defined(MFC_OpenACC)
5148# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5149!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
5150# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5151#elif defined(MFC_OpenMP)
5152# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5153!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
5154# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5155#endif
5156# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5157 end if
5158# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5159 end do
5160# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5161 end if
5162# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5163 end block
5164# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5165#endif
5166#ifdef _CRAYFTN
5167# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5168 block
5169# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5170 integer :: macros_setup_vfs_i
5171# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5172
5173# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5174#ifdef MFC_DEBUG
5175# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5176 block
5177# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5178 use iso_fortran_env, only: output_unit
5179# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5180
5181# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5182 print *, 'm_rhs.fpp:518: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
5183# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5184
5185# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5186 call flush (output_unit)
5187# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5188 end block
5189# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5190#endif
5191# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5192
5193# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5194
5195# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5196#if defined(MFC_OpenACC)
5197# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5198!$acc enter data copyin(dqR_prim_dx_n(i))
5199# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5200#elif defined(MFC_OpenMP)
5201# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5202!$omp target enter data map(to:dqR_prim_dx_n(i))
5203# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5204#endif
5205# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5206
5207# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5208#if defined(MFC_OpenACC)
5209# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5210!$acc enter data copyin(dqR_prim_dx_n(i)%vf)
5211# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5212#elif defined(MFC_OpenMP)
5213# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5214!$omp target enter data map(to:dqR_prim_dx_n(i)%vf)
5215# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5216#endif
5217# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5218 if (allocated(dqr_prim_dx_n(i)%vf)) then
5219# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5220 do macros_setup_vfs_i = lbound(dqr_prim_dx_n(i)%vf, 1), ubound(dqr_prim_dx_n(i)%vf, 1)
5221# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5222 if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
5223# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5224
5225# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5226#if defined(MFC_OpenACC)
5227# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5228!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i))
5229# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5230#elif defined(MFC_OpenMP)
5231# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5232!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i))
5233# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5234#endif
5235# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5236
5237# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5238#if defined(MFC_OpenACC)
5239# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5240!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
5241# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5242#elif defined(MFC_OpenMP)
5243# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5244!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)
5245# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5246#endif
5247# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5248 end if
5249# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5250 end do
5251# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5252 end if
5253# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5254
5255# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5256#if defined(MFC_OpenACC)
5257# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5258!$acc enter data copyin(dqR_prim_dy_n(i))
5259# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5260#elif defined(MFC_OpenMP)
5261# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5262!$omp target enter data map(to:dqR_prim_dy_n(i))
5263# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5264#endif
5265# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5266
5267# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5268#if defined(MFC_OpenACC)
5269# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5270!$acc enter data copyin(dqR_prim_dy_n(i)%vf)
5271# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5272#elif defined(MFC_OpenMP)
5273# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5274!$omp target enter data map(to:dqR_prim_dy_n(i)%vf)
5275# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5276#endif
5277# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5278 if (allocated(dqr_prim_dy_n(i)%vf)) then
5279# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5280 do macros_setup_vfs_i = lbound(dqr_prim_dy_n(i)%vf, 1), ubound(dqr_prim_dy_n(i)%vf, 1)
5281# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5282 if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
5283# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5284
5285# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5286#if defined(MFC_OpenACC)
5287# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5288!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i))
5289# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5290#elif defined(MFC_OpenMP)
5291# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5292!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i))
5293# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5294#endif
5295# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5296
5297# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5298#if defined(MFC_OpenACC)
5299# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5300!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
5301# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5302#elif defined(MFC_OpenMP)
5303# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5304!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)
5305# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5306#endif
5307# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5308 end if
5309# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5310 end do
5311# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5312 end if
5313# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5314
5315# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5316#if defined(MFC_OpenACC)
5317# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5318!$acc enter data copyin(dqR_prim_dz_n(i))
5319# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5320#elif defined(MFC_OpenMP)
5321# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5322!$omp target enter data map(to:dqR_prim_dz_n(i))
5323# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5324#endif
5325# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5326
5327# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5328#if defined(MFC_OpenACC)
5329# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5330!$acc enter data copyin(dqR_prim_dz_n(i)%vf)
5331# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5332#elif defined(MFC_OpenMP)
5333# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5334!$omp target enter data map(to:dqR_prim_dz_n(i)%vf)
5335# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5336#endif
5337# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5338 if (allocated(dqr_prim_dz_n(i)%vf)) then
5339# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5340 do macros_setup_vfs_i = lbound(dqr_prim_dz_n(i)%vf, 1), ubound(dqr_prim_dz_n(i)%vf, 1)
5341# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5342 if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
5343# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5344
5345# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5346#if defined(MFC_OpenACC)
5347# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5348!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i))
5349# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5350#elif defined(MFC_OpenMP)
5351# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5352!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i))
5353# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5354#endif
5355# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5356
5357# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5358#if defined(MFC_OpenACC)
5359# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5360!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
5361# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5362#elif defined(MFC_OpenMP)
5363# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5364!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)
5365# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5366#endif
5367# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5368 end if
5369# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5370 end do
5371# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5372 end if
5373# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5374 end block
5375# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5376#endif
5377 end do
5378
5379 if (weno_re_flux) then
5380#ifdef MFC_DEBUG
5381# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5382 block
5383# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5384 use iso_fortran_env, only: output_unit
5385# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5386
5387# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5388 print *, 'm_rhs.fpp:522: ', '@:ALLOCATE(dqL_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
5389# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5390
5391# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5392 call flush (output_unit)
5393# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5394 end block
5395# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5396#endif
5397# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5398 allocate (dql_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))
5399# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5400
5401# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5402
5403# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5404#if defined(MFC_OpenACC)
5405# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5406!$acc enter data create(dqL_rsx_vf)
5407# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5408#elif defined(MFC_OpenMP)
5409# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5410!$omp target enter data map(always,alloc:dqL_rsx_vf)
5411# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5412#endif
5413# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5414#ifdef MFC_DEBUG
5415# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5416 block
5417# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5418 use iso_fortran_env, only: output_unit
5419# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5420
5421# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5422 print *, 'm_rhs.fpp:524: ', '@:ALLOCATE(dqR_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
5423# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5424
5425# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5426 call flush (output_unit)
5427# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5428 end block
5429# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5430#endif
5431# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5432 allocate (dqr_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))
5433# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5434
5435# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5436
5437# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5438#if defined(MFC_OpenACC)
5439# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5440!$acc enter data create(dqR_rsx_vf)
5441# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5442#elif defined(MFC_OpenMP)
5443# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5444!$omp target enter data map(always,alloc:dqR_rsx_vf)
5445# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5446#endif
5447# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5448
5449 if (n > 0) then
5450#ifdef MFC_DEBUG
5451# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5452 block
5453# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5454 use iso_fortran_env, only: output_unit
5455# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5456
5457# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5458 print *, 'm_rhs.fpp:528: ', '@:ALLOCATE(dqL_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
5459# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5460
5461# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5462 call flush (output_unit)
5463# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5464 end block
5465# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5466#endif
5467# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5468 allocate (dql_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))
5469# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5470
5471# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5472
5473# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5474#if defined(MFC_OpenACC)
5475# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5476!$acc enter data create(dqL_rsy_vf)
5477# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5478#elif defined(MFC_OpenMP)
5479# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5480!$omp target enter data map(always,alloc:dqL_rsy_vf)
5481# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5482#endif
5483# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5484#ifdef MFC_DEBUG
5485# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5486 block
5487# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5488 use iso_fortran_env, only: output_unit
5489# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5490
5491# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5492 print *, 'm_rhs.fpp:530: ', '@:ALLOCATE(dqR_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
5493# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5494
5495# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5496 call flush (output_unit)
5497# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5498 end block
5499# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5500#endif
5501# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5502 allocate (dqr_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))
5503# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5504
5505# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5506
5507# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5508#if defined(MFC_OpenACC)
5509# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5510!$acc enter data create(dqR_rsy_vf)
5511# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5512#elif defined(MFC_OpenMP)
5513# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5514!$omp target enter data map(always,alloc:dqR_rsy_vf)
5515# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5516#endif
5517# 532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5518 else
5519#ifdef MFC_DEBUG
5520# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5521 block
5522# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5523 use iso_fortran_env, only: output_unit
5524# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5525
5526# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5527 print *, 'm_rhs.fpp:533: ', '@:ALLOCATE(dqL_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
5528# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5529
5530# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5531 call flush (output_unit)
5532# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5533 end block
5534# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5535#endif
5536# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5537 allocate (dql_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))
5538# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5539
5540# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5541
5542# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5543#if defined(MFC_OpenACC)
5544# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5545!$acc enter data create(dqL_rsy_vf)
5546# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5547#elif defined(MFC_OpenMP)
5548# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5549!$omp target enter data map(always,alloc:dqL_rsy_vf)
5550# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5551#endif
5552# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5553#ifdef MFC_DEBUG
5554# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5555 block
5556# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5557 use iso_fortran_env, only: output_unit
5558# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5559
5560# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5561 print *, 'm_rhs.fpp:535: ', '@:ALLOCATE(dqR_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
5562# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5563
5564# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5565 call flush (output_unit)
5566# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5567 end block
5568# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5569#endif
5570# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5571 allocate (dqr_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))
5572# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5573
5574# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5575
5576# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5577#if defined(MFC_OpenACC)
5578# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5579!$acc enter data create(dqR_rsy_vf)
5580# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5581#elif defined(MFC_OpenMP)
5582# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5583!$omp target enter data map(always,alloc:dqR_rsy_vf)
5584# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5585#endif
5586# 537 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5587 end if
5588
5589 if (p > 0) then
5590#ifdef MFC_DEBUG
5591# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5592 block
5593# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5594 use iso_fortran_env, only: output_unit
5595# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5596
5597# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5598 print *, 'm_rhs.fpp:540: ', '@:ALLOCATE(dqL_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, mom_idx%beg:mom_idx%end))'
5599# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5600
5601# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5602 call flush (output_unit)
5603# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5604 end block
5605# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5606#endif
5607# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5608 allocate (dql_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, mom_idx%beg:mom_idx%end))
5609# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5610
5611# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5612
5613# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5614#if defined(MFC_OpenACC)
5615# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5616!$acc enter data create(dqL_rsz_vf)
5617# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5618#elif defined(MFC_OpenMP)
5619# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5620!$omp target enter data map(always,alloc:dqL_rsz_vf)
5621# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5622#endif
5623# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5624#ifdef MFC_DEBUG
5625# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5626 block
5627# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5628 use iso_fortran_env, only: output_unit
5629# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5630
5631# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5632 print *, 'm_rhs.fpp:542: ', '@:ALLOCATE(dqR_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, mom_idx%beg:mom_idx%end))'
5633# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5634
5635# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5636 call flush (output_unit)
5637# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5638 end block
5639# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5640#endif
5641# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5642 allocate (dqr_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, mom_idx%beg:mom_idx%end))
5643# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5644
5645# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5646
5647# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5648#if defined(MFC_OpenACC)
5649# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5650!$acc enter data create(dqR_rsz_vf)
5651# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5652#elif defined(MFC_OpenMP)
5653# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5654!$omp target enter data map(always,alloc:dqR_rsz_vf)
5655# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5656#endif
5657# 544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5658 else
5659#ifdef MFC_DEBUG
5660# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5661 block
5662# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5663 use iso_fortran_env, only: output_unit
5664# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5665
5666# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5667 print *, 'm_rhs.fpp:545: ', '@:ALLOCATE(dqL_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
5668# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5669
5670# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5671 call flush (output_unit)
5672# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5673 end block
5674# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5675#endif
5676# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5677 allocate (dql_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))
5678# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5679
5680# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5681
5682# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5683#if defined(MFC_OpenACC)
5684# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5685!$acc enter data create(dqL_rsz_vf)
5686# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5687#elif defined(MFC_OpenMP)
5688# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5689!$omp target enter data map(always,alloc:dqL_rsz_vf)
5690# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5691#endif
5692# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5693#ifdef MFC_DEBUG
5694# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5695 block
5696# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5697 use iso_fortran_env, only: output_unit
5698# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5699
5700# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5701 print *, 'm_rhs.fpp:547: ', '@:ALLOCATE(dqR_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
5702# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5703
5704# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5705 call flush (output_unit)
5706# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5707 end block
5708# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5709#endif
5710# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5711 allocate (dqr_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))
5712# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5713
5714# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5715
5716# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5717#if defined(MFC_OpenACC)
5718# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5719!$acc enter data create(dqR_rsz_vf)
5720# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5721#elif defined(MFC_OpenMP)
5722# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5723!$omp target enter data map(always,alloc:dqR_rsz_vf)
5724# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5725#endif
5726# 549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5727 end if
5728 end if ! end allocation for weno_Re_flux
5729
5730 else
5731#ifdef MFC_DEBUG
5732# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5733 block
5734# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5735 use iso_fortran_env, only: output_unit
5736# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5737
5738# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5739 print *, 'm_rhs.fpp:553: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
5740# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5741
5742# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5743 call flush (output_unit)
5744# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5745 end block
5746# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5747#endif
5748# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5749 allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
5750# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5751
5752# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5753
5754# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5755#if defined(MFC_OpenACC)
5756# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5757!$acc enter data create(dq_prim_dx_qp(1)%vf)
5758# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5759#elif defined(MFC_OpenMP)
5760# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5761!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf)
5762# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5763#endif
5764#ifdef MFC_DEBUG
5765# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5766 block
5767# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5768 use iso_fortran_env, only: output_unit
5769# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5770
5771# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5772 print *, 'm_rhs.fpp:554: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
5773# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5774
5775# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5776 call flush (output_unit)
5777# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5778 end block
5779# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5780#endif
5781# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5782 allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
5783# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5784
5785# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5786
5787# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5788#if defined(MFC_OpenACC)
5789# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5790!$acc enter data create(dq_prim_dy_qp(1)%vf)
5791# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5792#elif defined(MFC_OpenMP)
5793# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5794!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf)
5795# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5796#endif
5797#ifdef MFC_DEBUG
5798# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5799 block
5800# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5801 use iso_fortran_env, only: output_unit
5802# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5803
5804# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5805 print *, 'm_rhs.fpp:555: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
5806# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5807
5808# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5809 call flush (output_unit)
5810# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5811 end block
5812# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5813#endif
5814# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5815 allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
5816# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5817
5818# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5819
5820# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5821#if defined(MFC_OpenACC)
5822# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5823!$acc enter data create(dq_prim_dz_qp(1)%vf)
5824# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5825#elif defined(MFC_OpenMP)
5826# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5827!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf)
5828# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5829#endif
5830
5831 do l = momxb, momxe
5832#ifdef MFC_DEBUG
5833# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5834 block
5835# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5836 use iso_fortran_env, only: output_unit
5837# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5838
5839# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5840 print *, 'm_rhs.fpp:558: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))'
5841# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5842
5843# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5844 call flush (output_unit)
5845# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5846 end block
5847# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5848#endif
5849# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5850 allocate (dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))
5851# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5852
5853# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5854
5855# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5856#if defined(MFC_OpenACC)
5857# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5858!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf)
5859# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5860#elif defined(MFC_OpenMP)
5861# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5862!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf(l)%sf)
5863# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5864#endif
5865#ifdef _CRAYFTN
5866# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5867 block
5868# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5869 integer :: macros_setup_vfs_i
5870# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5871
5872# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5873#ifdef MFC_DEBUG
5874# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5875 block
5876# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5877 use iso_fortran_env, only: output_unit
5878# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5879
5880# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5881 print *, 'm_rhs.fpp:559: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
5882# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5883
5884# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5885 call flush (output_unit)
5886# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5887 end block
5888# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5889#endif
5890# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5891
5892# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5893
5894# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5895#if defined(MFC_OpenACC)
5896# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5897!$acc enter data copyin(dq_prim_dx_qp(1))
5898# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5899#elif defined(MFC_OpenMP)
5900# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5901!$omp target enter data map(to:dq_prim_dx_qp(1))
5902# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5903#endif
5904# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5905
5906# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5907#if defined(MFC_OpenACC)
5908# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5909!$acc enter data copyin(dq_prim_dx_qp(1)%vf)
5910# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5911#elif defined(MFC_OpenMP)
5912# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5913!$omp target enter data map(to:dq_prim_dx_qp(1)%vf)
5914# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5915#endif
5916# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5917 if (allocated(dq_prim_dx_qp(1)%vf)) then
5918# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5919 do macros_setup_vfs_i = lbound(dq_prim_dx_qp(1)%vf, 1), ubound(dq_prim_dx_qp(1)%vf, 1)
5920# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5921 if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
5922# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5923
5924# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5925#if defined(MFC_OpenACC)
5926# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5927!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i))
5928# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5929#elif defined(MFC_OpenMP)
5930# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5931!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i))
5932# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5933#endif
5934# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5935
5936# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5937#if defined(MFC_OpenACC)
5938# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5939!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)
5940# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5941#elif defined(MFC_OpenMP)
5942# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5943!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)
5944# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5945#endif
5946# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5947 end if
5948# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5949 end do
5950# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5951 end if
5952# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5953 end block
5954# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5955#endif
5956 if (n > 0) then
5957#ifdef MFC_DEBUG
5958# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5959 block
5960# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5961 use iso_fortran_env, only: output_unit
5962# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5963
5964# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5965 print *, 'm_rhs.fpp:561: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))'
5966# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5967
5968# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5969 call flush (output_unit)
5970# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5971 end block
5972# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5973#endif
5974# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5975 allocate (dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))
5976# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5977
5978# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5979
5980# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5981#if defined(MFC_OpenACC)
5982# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5983!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf)
5984# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5985#elif defined(MFC_OpenMP)
5986# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5987!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf(l)%sf)
5988# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5989#endif
5990#ifdef _CRAYFTN
5991# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5992 block
5993# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5994 integer :: macros_setup_vfs_i
5995# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5996
5997# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
5998#ifdef MFC_DEBUG
5999# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6000 block
6001# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6002 use iso_fortran_env, only: output_unit
6003# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6004
6005# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6006 print *, 'm_rhs.fpp:562: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
6007# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6008
6009# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6010 call flush (output_unit)
6011# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6012 end block
6013# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6014#endif
6015# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6016
6017# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6018
6019# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6020#if defined(MFC_OpenACC)
6021# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6022!$acc enter data copyin(dq_prim_dy_qp(1))
6023# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6024#elif defined(MFC_OpenMP)
6025# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6026!$omp target enter data map(to:dq_prim_dy_qp(1))
6027# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6028#endif
6029# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6030
6031# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6032#if defined(MFC_OpenACC)
6033# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6034!$acc enter data copyin(dq_prim_dy_qp(1)%vf)
6035# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6036#elif defined(MFC_OpenMP)
6037# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6038!$omp target enter data map(to:dq_prim_dy_qp(1)%vf)
6039# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6040#endif
6041# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6042 if (allocated(dq_prim_dy_qp(1)%vf)) then
6043# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6044 do macros_setup_vfs_i = lbound(dq_prim_dy_qp(1)%vf, 1), ubound(dq_prim_dy_qp(1)%vf, 1)
6045# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6046 if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
6047# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6048
6049# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6050#if defined(MFC_OpenACC)
6051# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6052!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i))
6053# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6054#elif defined(MFC_OpenMP)
6055# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6056!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i))
6057# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6058#endif
6059# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6060
6061# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6062#if defined(MFC_OpenACC)
6063# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6064!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)
6065# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6066#elif defined(MFC_OpenMP)
6067# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6068!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)
6069# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6070#endif
6071# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6072 end if
6073# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6074 end do
6075# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6076 end if
6077# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6078 end block
6079# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6080#endif
6081 if (p > 0) then
6082#ifdef MFC_DEBUG
6083# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6084 block
6085# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6086 use iso_fortran_env, only: output_unit
6087# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6088
6089# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6090 print *, 'm_rhs.fpp:564: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))'
6091# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6092
6093# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6094 call flush (output_unit)
6095# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6096 end block
6097# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6098#endif
6099# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6100 allocate (dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))
6101# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6102
6103# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6104
6105# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6106#if defined(MFC_OpenACC)
6107# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6108!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf)
6109# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6110#elif defined(MFC_OpenMP)
6111# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6112!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf(l)%sf)
6113# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6114#endif
6115#ifdef _CRAYFTN
6116# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6117 block
6118# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6119 integer :: macros_setup_vfs_i
6120# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6121
6122# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6123#ifdef MFC_DEBUG
6124# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6125 block
6126# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6127 use iso_fortran_env, only: output_unit
6128# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6129
6130# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6131 print *, 'm_rhs.fpp:565: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
6132# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6133
6134# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6135 call flush (output_unit)
6136# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6137 end block
6138# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6139#endif
6140# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6141
6142# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6143
6144# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6145#if defined(MFC_OpenACC)
6146# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6147!$acc enter data copyin(dq_prim_dz_qp(1))
6148# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6149#elif defined(MFC_OpenMP)
6150# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6151!$omp target enter data map(to:dq_prim_dz_qp(1))
6152# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6153#endif
6154# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6155
6156# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6157#if defined(MFC_OpenACC)
6158# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6159!$acc enter data copyin(dq_prim_dz_qp(1)%vf)
6160# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6161#elif defined(MFC_OpenMP)
6162# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6163!$omp target enter data map(to:dq_prim_dz_qp(1)%vf)
6164# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6165#endif
6166# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6167 if (allocated(dq_prim_dz_qp(1)%vf)) then
6168# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6169 do macros_setup_vfs_i = lbound(dq_prim_dz_qp(1)%vf, 1), ubound(dq_prim_dz_qp(1)%vf, 1)
6170# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6171 if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
6172# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6173
6174# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6175#if defined(MFC_OpenACC)
6176# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6177!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i))
6178# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6179#elif defined(MFC_OpenMP)
6180# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6181!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i))
6182# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6183#endif
6184# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6185
6186# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6187#if defined(MFC_OpenACC)
6188# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6189!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)
6190# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6191#elif defined(MFC_OpenMP)
6192# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6193!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)
6194# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6195#endif
6196# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6197 end if
6198# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6199 end do
6200# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6201 end if
6202# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6203 end block
6204# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6205#endif
6206 end if
6207 end if
6208 end do
6209 end if ! end allocation of viscous variables
6210
6211
6212# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6213
6214# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6215#if defined(MFC_OpenACC)
6216# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6217!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l, id)
6218# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6219#elif defined(MFC_OpenMP)
6220# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6221
6222# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6223
6224# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6225
6226# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6227!$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)
6228# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6229#endif
6230# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6231
6232 do id = 1, num_dims
6233 do i = 1, sys_size
6234 do l = idwbuff(3)%beg, idwbuff(3)%end
6235 do k = idwbuff(2)%beg, idwbuff(2)%end
6236 do j = idwbuff(1)%beg, idwbuff(1)%end
6237 flux_gsrc_n(id)%vf(i)%sf(j, k, l) = 0._wp
6238 end do
6239 end do
6240 end do
6241 end do
6242 end do
6243
6244# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6245
6246# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6247#if defined(MFC_OpenACC)
6248# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6249!$acc end parallel loop
6250# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6251#elif defined(MFC_OpenMP)
6252# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6253
6254# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6255
6256# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6257!$omp end target teams loop
6258# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6259#endif
6260# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6261
6262
6263 end if ! end allocation for .not. igr
6264
6265 if (qbmm) then
6266#ifdef MFC_DEBUG
6267# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6268 block
6269# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6270 use iso_fortran_env, only: output_unit
6271# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6272
6273# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6274 print *, 'm_rhs.fpp:588: ', '@:ALLOCATE(mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))'
6275# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6276
6277# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6278 call flush (output_unit)
6279# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6280 end block
6281# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6282#endif
6283# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6284 allocate (mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))
6285# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6286
6287# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6288
6289# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6290
6291# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6292#if defined(MFC_OpenACC)
6293# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6294!$acc enter data create(mom_sp, mom_3d)
6295# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6296#elif defined(MFC_OpenMP)
6297# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6298!$omp target enter data map(always,alloc:mom_sp, mom_3d)
6299# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6300#endif
6301
6302 do i = 0, 2
6303 do j = 0, 2
6304 do k = 1, nb
6305#ifdef MFC_DEBUG
6306# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6307 block
6308# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6309 use iso_fortran_env, only: output_unit
6310# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6311
6312# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6313 print *, 'm_rhs.fpp:593: ', '@: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))'
6314# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6315
6316# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6317 call flush (output_unit)
6318# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6319 end block
6320# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6321#endif
6322# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6323 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))
6324# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6325
6326# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6327
6328# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6329#if defined(MFC_OpenACC)
6330# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6331!$acc enter data create(mom_3d(i, j, k)%sf)
6332# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6333#elif defined(MFC_OpenMP)
6334# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6335!$omp target enter data map(always,alloc:mom_3d(i, j, k)%sf)
6336# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6337#endif
6338# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6339#ifdef _CRAYFTN
6340# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6341 block
6342# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6343
6344# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6345#ifdef MFC_DEBUG
6346# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6347 block
6348# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6349 use iso_fortran_env, only: output_unit
6350# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6351
6352# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6353 print *, 'm_rhs.fpp:597: ', '@:ACC_SETUP_SFs(mom_3d(i, j, k))'
6354# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6355
6356# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6357 call flush (output_unit)
6358# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6359 end block
6360# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6361#endif
6362# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6363
6364# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6365
6366# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6367#if defined(MFC_OpenACC)
6368# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6369!$acc enter data copyin(mom_3d(i, j, k))
6370# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6371#elif defined(MFC_OpenMP)
6372# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6373!$omp target enter data map(to:mom_3d(i, j, k))
6374# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6375#endif
6376# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6377 if (associated(mom_3d(i, j, k)%sf)) then
6378# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6379
6380# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6381#if defined(MFC_OpenACC)
6382# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6383!$acc enter data copyin(mom_3d(i, j, k)%sf)
6384# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6385#elif defined(MFC_OpenMP)
6386# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6387!$omp target enter data map(to:mom_3d(i, j, k)%sf)
6388# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6389#endif
6390# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6391 end if
6392# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6393 end block
6394# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6395#endif
6396 end do
6397 end do
6398 end do
6399
6400 do i = 1, nmomsp
6401#ifdef MFC_DEBUG
6402# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6403 block
6404# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6405 use iso_fortran_env, only: output_unit
6406# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6407
6408# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6409 print *, 'm_rhs.fpp:603: ', '@:ALLOCATE(mom_sp(i)%sf( idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
6410# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6411
6412# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6413 call flush (output_unit)
6414# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6415 end block
6416# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6417#endif
6418# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6419 allocate (mom_sp(i)%sf( idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
6420# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6421
6422# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6423
6424# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6425#if defined(MFC_OpenACC)
6426# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6427!$acc enter data create(mom_sp(i)%sf)
6428# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6429#elif defined(MFC_OpenMP)
6430# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6431!$omp target enter data map(always,alloc:mom_sp(i)%sf)
6432# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6433#endif
6434# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6435#ifdef _CRAYFTN
6436# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6437 block
6438# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6439
6440# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6441#ifdef MFC_DEBUG
6442# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6443 block
6444# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6445 use iso_fortran_env, only: output_unit
6446# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6447
6448# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6449 print *, 'm_rhs.fpp:607: ', '@:ACC_SETUP_SFs(mom_sp(i))'
6450# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6451
6452# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6453 call flush (output_unit)
6454# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6455 end block
6456# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6457#endif
6458# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6459
6460# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6461
6462# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6463#if defined(MFC_OpenACC)
6464# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6465!$acc enter data copyin(mom_sp(i))
6466# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6467#elif defined(MFC_OpenMP)
6468# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6469!$omp target enter data map(to:mom_sp(i))
6470# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6471#endif
6472# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6473 if (associated(mom_sp(i)%sf)) then
6474# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6475
6476# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6477#if defined(MFC_OpenACC)
6478# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6479!$acc enter data copyin(mom_sp(i)%sf)
6480# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6481#elif defined(MFC_OpenMP)
6482# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6483!$omp target enter data map(to:mom_sp(i)%sf)
6484# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6485#endif
6486# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6487 end if
6488# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6489 end block
6490# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6491#endif
6492 end do
6493 end if
6494
6495 if (mpp_lim .and. bubbles_euler) then
6496#ifdef MFC_DEBUG
6497# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6498 block
6499# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6500 use iso_fortran_env, only: output_unit
6501# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6502
6503# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6504 print *, 'm_rhs.fpp:612: ', '@:ALLOCATE(alf_sum%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
6505# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6506
6507# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6508 call flush (output_unit)
6509# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6510 end block
6511# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6512#endif
6513# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6514 allocate (alf_sum%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
6515# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6516
6517# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6518
6519# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6520#if defined(MFC_OpenACC)
6521# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6522!$acc enter data create(alf_sum%sf)
6523# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6524#elif defined(MFC_OpenMP)
6525# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6526!$omp target enter data map(always,alloc:alf_sum%sf)
6527# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6528#endif
6529 end if
6530 ! END: Allocation/Association of qK_cons_n and qK_prim_n
6531
6532 ! Allocation of gm_alphaK_n
6533 if (.not. igr) then
6534#ifdef MFC_DEBUG
6535# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6536 block
6537# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6538 use iso_fortran_env, only: output_unit
6539# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6540
6541# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6542 print *, 'm_rhs.fpp:618: ', '@:ALLOCATE(gm_alphaL_n(1:num_dims))'
6543# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6544
6545# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6546 call flush (output_unit)
6547# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6548 end block
6549# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6550#endif
6551# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6552 allocate (gm_alphal_n(1:num_dims))
6553# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6554
6555# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6556
6557# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6558#if defined(MFC_OpenACC)
6559# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6560!$acc enter data create(gm_alphaL_n)
6561# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6562#elif defined(MFC_OpenMP)
6563# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6564!$omp target enter data map(always,alloc:gm_alphaL_n)
6565# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6566#endif
6567#ifdef MFC_DEBUG
6568# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6569 block
6570# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6571 use iso_fortran_env, only: output_unit
6572# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6573
6574# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6575 print *, 'm_rhs.fpp:619: ', '@:ALLOCATE(gm_alphaR_n(1:num_dims))'
6576# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6577
6578# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6579 call flush (output_unit)
6580# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6581 end block
6582# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6583#endif
6584# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6585 allocate (gm_alphar_n(1:num_dims))
6586# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6587
6588# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6589
6590# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6591#if defined(MFC_OpenACC)
6592# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6593!$acc enter data create(gm_alphaR_n)
6594# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6595#elif defined(MFC_OpenMP)
6596# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6597!$omp target enter data map(always,alloc:gm_alphaR_n)
6598# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6599#endif
6600 end if
6601
6602 if (alt_soundspeed) then
6603#ifdef MFC_DEBUG
6604# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6605 block
6606# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6607 use iso_fortran_env, only: output_unit
6608# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6609
6610# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6611 print *, 'm_rhs.fpp:623: ', '@: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))'
6612# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6613
6614# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6615 call flush (output_unit)
6616# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6617 end block
6618# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6619#endif
6620# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6621 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))
6622# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6623
6624# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6625
6626# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6627
6628# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6629
6630# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6631
6632# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6633
6634# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6635#if defined(MFC_OpenACC)
6636# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6637!$acc enter data create(blkmod1, blkmod2, alpha1, alpha2, Kterm)
6638# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6639#elif defined(MFC_OpenMP)
6640# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6641!$omp target enter data map(always,alloc:blkmod1, blkmod2, alpha1, alpha2, Kterm)
6642# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6643#endif
6644 end if
6645
6646 call s_initialize_pressure_relaxation_module
6647
6648 if (bubbles_euler) then
6649#ifdef MFC_DEBUG
6650# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6651 block
6652# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6653 use iso_fortran_env, only: output_unit
6654# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6655
6656# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6657 print *, 'm_rhs.fpp:629: ', '@:ALLOCATE(nbub(0:m, 0:n, 0:p))'
6658# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6659
6660# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6661 call flush (output_unit)
6662# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6663 end block
6664# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6665#endif
6666# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6667 allocate (nbub(0:m, 0:n, 0:p))
6668# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6669
6670# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6671
6672# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6673#if defined(MFC_OpenACC)
6674# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6675!$acc enter data create(nbub)
6676# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6677#elif defined(MFC_OpenMP)
6678# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6679!$omp target enter data map(always,alloc:nbub)
6680# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6681#endif
6682 end if
6683
6684 end subroutine s_initialize_rhs_module
6685
6686 !> @brief Computes the right-hand side of the semi-discrete governing equations for a single time stage.
6687 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, time_avg, stage)
6688
6689 type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
6690 type(scalar_field), intent(inout) :: q_t_sf
6691 type(scalar_field), dimension(sys_size), intent(inout) :: q_prim_vf
6692 type(integer_field), dimension(1:num_dims, 1:2), intent(in) :: bc_type
6693 type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
6694 real(stp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:, 1:), intent(inout) :: pb_in
6695 real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:, 1:), intent(inout) :: rhs_pb ! TODO :: I think these other two variables need to be stp as well, but it doesn't compile like that right now
6696 real(stp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:, 1:), intent(inout) :: mv_in
6697 real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:, 1:), intent(inout) :: rhs_mv
6698 integer, intent(in) :: t_step
6699 real(wp), intent(inout) :: time_avg
6700 integer, intent(in) :: stage
6701
6702 real(wp) :: t_start, t_finish
6703 integer :: id
6704 integer(kind=8) :: i, j, k, l, q !< Generic loop iterators
6705
6706 call nvtxstartrange("COMPUTE-RHS")
6707
6708 call cpu_time(t_start)
6709
6710 if (.not. igr .or. dummy) then
6711 ! Association/Population of Working Variables
6712
6713# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6714
6715# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6716#if defined(MFC_OpenACC)
6717# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6718!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
6719# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6720#elif defined(MFC_OpenMP)
6721# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6722
6723# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6724
6725# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6726
6727# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6728!$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)
6729# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6730#endif
6731# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6732
6733 do i = 1, sys_size
6734 do l = idwbuff(3)%beg, idwbuff(3)%end
6735 do k = idwbuff(2)%beg, idwbuff(2)%end
6736 do j = idwbuff(1)%beg, idwbuff(1)%end
6737 q_cons_qp%vf(i)%sf(j, k, l) = q_cons_vf(i)%sf(j, k, l)
6738 end do
6739 end do
6740 end do
6741 end do
6742
6743# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6744
6745# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6746#if defined(MFC_OpenACC)
6747# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6748!$acc end parallel loop
6749# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6750#elif defined(MFC_OpenMP)
6751# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6752
6753# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6754
6755# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6756!$omp end target teams loop
6757# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6758#endif
6759# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6760
6761
6762 ! Converting Conservative to Primitive Variables
6763
6764 if (mpp_lim .and. bubbles_euler) then
6765
6766# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6767
6768# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6769#if defined(MFC_OpenACC)
6770# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6771!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
6772# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6773#elif defined(MFC_OpenMP)
6774# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6775
6776# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6777
6778# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6779
6780# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6781!$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)
6782# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6783#endif
6784# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6785
6786 do l = idwbuff(3)%beg, idwbuff(3)%end
6787 do k = idwbuff(2)%beg, idwbuff(2)%end
6788 do j = idwbuff(1)%beg, idwbuff(1)%end
6789 alf_sum%sf(j, k, l) = 0._wp
6790
6791# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6792#if defined(MFC_OpenACC)
6793# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6794!$acc loop seq
6795# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6796#elif defined(MFC_OpenMP)
6797# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6798
6799# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6800#endif
6801 do i = advxb, advxe - 1
6802 alf_sum%sf(j, k, l) = alf_sum%sf(j, k, l) + q_cons_qp%vf(i)%sf(j, k, l)
6803 end do
6804
6805# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6806#if defined(MFC_OpenACC)
6807# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6808!$acc loop seq
6809# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6810#elif defined(MFC_OpenMP)
6811# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6812
6813# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6814#endif
6815 do i = advxb, advxe - 1
6816 q_cons_qp%vf(i)%sf(j, k, l) = q_cons_qp%vf(i)%sf(j, k, l)*(1._wp - q_cons_qp%vf(alf_idx)%sf(j, k, l)) &
6817 /alf_sum%sf(j, k, l)
6818 end do
6819 end do
6820 end do
6821 end do
6822
6823# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6824
6825# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6826#if defined(MFC_OpenACC)
6827# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6828!$acc end parallel loop
6829# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6830#elif defined(MFC_OpenMP)
6831# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6832
6833# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6834
6835# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6836!$omp end target teams loop
6837# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6838#endif
6839# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6840
6841 end if
6842 end if
6843
6844 if (igr .or. dummy) then
6845 call nvtxstartrange("RHS-COMMUNICATION")
6846 call s_populate_variables_buffers(bc_type, q_cons_vf, pb_in, mv_in)
6847 call nvtxendrange
6848 end if
6849 if (.not. igr .or. dummy) then
6850 call nvtxstartrange("RHS-CONVERT")
6851 call s_convert_conservative_to_primitive_variables( &
6852 q_cons_qp%vf, &
6853 q_t_sf, &
6854 q_prim_qp%vf, &
6855 idwint)
6856 call nvtxendrange
6857
6858 call nvtxstartrange("RHS-COMMUNICATION")
6859 call s_populate_variables_buffers(bc_type, q_prim_qp%vf, pb_in, mv_in)
6860 call nvtxendrange
6861 end if
6862
6863 call nvtxstartrange("RHS-ELASTIC")
6864 if (hyperelasticity) call s_hyperelastic_rmt_stress_update(q_cons_qp%vf, q_prim_qp%vf)
6865 call nvtxendrange
6866
6867 if (cfl_dt) then
6868 if (mytime >= t_stop) return
6869 else
6870 if (t_step == t_step_stop) return
6871 end if
6872
6873 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), idwbuff(2), idwbuff(3))
6874
6875 if ((viscous .and. .not. igr) .or. dummy) then
6876 call nvtxstartrange("RHS-VISCOUS")
6877 call s_get_viscous(ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
6878 dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n, &
6879 ql_prim, &
6880 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
6881 dqr_prim_dx_n, dqr_prim_dy_n, dqr_prim_dz_n, &
6882 qr_prim, &
6883 q_prim_qp, &
6884 dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp, &
6885 idwbuff(1), idwbuff(2), idwbuff(3))
6886 call nvtxendrange
6887 end if
6888
6889 if (surface_tension) then
6890 call nvtxstartrange("RHS-SURFACE-TENSION")
6891 call s_get_capillary(q_prim_qp%vf, bc_type)
6892 call nvtxendrange
6893 end if
6894
6895 ! Dimensional Splitting Loop
6896 do id = 1, num_dims
6897
6898 if (igr .or. dummy) then
6899
6900 if (id == 1) then
6901
6902# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6903
6904# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6905#if defined(MFC_OpenACC)
6906# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6907!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
6908# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6909#elif defined(MFC_OpenMP)
6910# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6911
6912# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6913
6914# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6915
6916# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6917!$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)
6918# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6919#endif
6920# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6921
6922 do l = -1, p + 1
6923 do k = -1, n + 1
6924 do j = -1, m + 1
6925 do i = 1, sys_size
6926 rhs_vf(i)%sf(j, k, l) = 0._stp
6927 end do
6928 end do
6929 end do
6930 end do
6931
6932# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6933
6934# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6935#if defined(MFC_OpenACC)
6936# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6937!$acc end parallel loop
6938# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6939#elif defined(MFC_OpenMP)
6940# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6941
6942# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6943
6944# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6945!$omp end target teams loop
6946# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6947#endif
6948# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
6949
6950 end if
6951
6952 call nvtxstartrange("IGR_RIEMANN")
6953 call s_igr_riemann_solver(q_cons_vf, rhs_vf, id)
6954 call nvtxendrange
6955
6956 if (id == 1) then
6957 call nvtxstartrange("IGR_Jacobi")
6958 call s_igr_iterative_solve(q_cons_vf, bc_type, t_step)
6959 call nvtxendrange
6960
6961 call nvtxstartrange("IGR_SIGMA")
6962 call s_igr_sigma_x(q_cons_vf, rhs_vf)
6963 call nvtxendrange
6964 end if
6965 end if
6966 if ((.not. igr) .or. dummy) then! Finite volume solve
6967
6968 ! Reconstructing Primitive/Conservative Variables
6969 call nvtxstartrange("RHS-WENO")
6970
6971 if (.not. surface_tension) then
6972 if (all(re_size == 0)) then
6973 ! Reconstruct densitiess
6974 iv%beg = 1; iv%end = sys_size
6975 call s_reconstruct_cell_boundary_values( &
6976 q_prim_qp%vf(1:sys_size), &
6977 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
6978 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
6979 id)
6980 else
6981 iv%beg = 1; iv%end = contxe
6982 call s_reconstruct_cell_boundary_values( &
6983 q_prim_qp%vf(iv%beg:iv%end), &
6984 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
6985 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
6986 id)
6987
6988 iv%beg = e_idx; iv%end = sys_size
6989 call s_reconstruct_cell_boundary_values( &
6990 q_prim_qp%vf(iv%beg:iv%end), &
6991 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
6992 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
6993 id)
6994 end if
6995
6996 else
6997 if (all(re_size == 0)) then
6998 iv%beg = 1; iv%end = e_idx - 1
6999 call s_reconstruct_cell_boundary_values( &
7000 q_prim_qp%vf(iv%beg:iv%end), &
7001 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
7002 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
7003 id)
7004
7005 iv%beg = e_idx; iv%end = e_idx
7006 call s_reconstruct_cell_boundary_values_first_order( &
7007 q_prim_qp%vf(e_idx), &
7008 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
7009 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
7010 id)
7011
7012 iv%beg = e_idx + 1; iv%end = sys_size
7013 call s_reconstruct_cell_boundary_values( &
7014 q_prim_qp%vf(iv%beg:iv%end), &
7015 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
7016 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
7017 id)
7018 else
7019 iv%beg = 1; iv%end = contxe
7020 call s_reconstruct_cell_boundary_values( &
7021 q_prim_qp%vf(iv%beg:iv%end), &
7022 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
7023 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
7024 id)
7025
7026 iv%beg = e_idx; iv%end = e_idx
7027 call s_reconstruct_cell_boundary_values_first_order( &
7028 q_prim_qp%vf(e_idx), &
7029 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
7030 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
7031 id)
7032
7033 iv%beg = e_idx + 1; iv%end = sys_size
7034 call s_reconstruct_cell_boundary_values( &
7035 q_prim_qp%vf(iv%beg:iv%end), &
7036 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
7037 qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
7038 id)
7039 end if
7040
7041 end if
7042
7043 ! Reconstruct viscous derivatives for viscosity
7044 if (weno_re_flux) then
7045 iv%beg = momxb; iv%end = momxe
7046 call s_reconstruct_cell_boundary_values_visc_deriv( &
7047 dq_prim_dx_qp(1)%vf(iv%beg:iv%end), &
7048 dql_rsx_vf, dql_rsy_vf, dql_rsz_vf, &
7049 dqr_rsx_vf, dqr_rsy_vf, dqr_rsz_vf, &
7050 id, dql_prim_dx_n(id)%vf(iv%beg:iv%end), dqr_prim_dx_n(id)%vf(iv%beg:iv%end), &
7051 idwbuff(1), idwbuff(2), idwbuff(3))
7052 if (n > 0) then
7053 call s_reconstruct_cell_boundary_values_visc_deriv( &
7054 dq_prim_dy_qp(1)%vf(iv%beg:iv%end), &
7055 dql_rsx_vf, dql_rsy_vf, dql_rsz_vf, &
7056 dqr_rsx_vf, dqr_rsy_vf, dqr_rsz_vf, &
7057 id, dql_prim_dy_n(id)%vf(iv%beg:iv%end), dqr_prim_dy_n(id)%vf(iv%beg:iv%end), &
7058 idwbuff(1), idwbuff(2), idwbuff(3))
7059 if (p > 0) then
7060 call s_reconstruct_cell_boundary_values_visc_deriv( &
7061 dq_prim_dz_qp(1)%vf(iv%beg:iv%end), &
7062 dql_rsx_vf, dql_rsy_vf, dql_rsz_vf, &
7063 dqr_rsx_vf, dqr_rsy_vf, dqr_rsz_vf, &
7064 id, dql_prim_dz_n(id)%vf(iv%beg:iv%end), dqr_prim_dz_n(id)%vf(iv%beg:iv%end), &
7065 idwbuff(1), idwbuff(2), idwbuff(3))
7066 end if
7067 end if
7068 end if
7069
7070 call nvtxendrange ! WENO
7071
7072 ! Configuring Coordinate Direction Indexes
7073 if (id == 1) then
7074 irx%beg = -1; iry%beg = 0; irz%beg = 0
7075 elseif (id == 2) then
7076 irx%beg = 0; iry%beg = -1; irz%beg = 0
7077 else
7078 irx%beg = 0; iry%beg = 0; irz%beg = -1
7079 end if
7080 irx%end = m; iry%end = n; irz%end = p
7081 ! $:GPU_UPDATE(host='[qL_rsx_vf,qR_rsx_vf]')
7082 ! print *, "L", qL_rsx_vf(100:300, 0, 0, 1)
7083 ! print *, "R", qR_rsx_vf(100:300, 0, 0, 1)
7084
7085 !Computing Riemann Solver Flux and Source Flux
7086 call nvtxstartrange("RHS-RIEMANN-SOLVER")
7087 call s_riemann_solver(qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
7088 dqr_prim_dx_n(id)%vf, &
7089 dqr_prim_dy_n(id)%vf, &
7090 dqr_prim_dz_n(id)%vf, &
7091 qr_prim(id)%vf, &
7092 ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
7093 dql_prim_dx_n(id)%vf, &
7094 dql_prim_dy_n(id)%vf, &
7095 dql_prim_dz_n(id)%vf, &
7096 ql_prim(id)%vf, &
7097 q_prim_qp%vf, &
7098 flux_n(id)%vf, &
7099 flux_src_n(id)%vf, &
7100 flux_gsrc_n(id)%vf, &
7101 id, irx, iry, irz)
7102 call nvtxendrange
7103
7104 !$:GPU_UPDATE(host='[flux_n(1)%vf(1)%sf]')
7105 !print *, "FLUX", flux_n(1)%vf(1)%sf(100:300, 0, 0)
7106
7107 ! Additional physics and source terms
7108 ! RHS addition for advection source
7109 call nvtxstartrange("RHS-ADVECTION-SRC")
7110 call s_compute_advection_source_term(id, &
7111 rhs_vf, &
7112 q_cons_qp, &
7113 q_prim_qp, &
7114 flux_src_n(id))
7115 call nvtxendrange
7116
7117 ! RHS additions for hypoelasticity
7118 call nvtxstartrange("RHS-HYPOELASTICITY")
7119 if (hypoelasticity) call s_compute_hypoelastic_rhs(id, &
7120 q_prim_qp%vf, &
7121 rhs_vf)
7122 call nvtxendrange
7123
7124 ! RHS for diffusion
7125 if (chemistry .and. chem_params%diffusion) then
7126 call nvtxstartrange("RHS-CHEM-DIFFUSION")
7127 call s_compute_chemistry_diffusion_flux(id, q_prim_qp%vf, flux_src_n(id)%vf, irx, iry, irz)
7128 call nvtxendrange
7129 end if
7130
7131 ! RHS additions for viscosity
7132 if (viscous .or. surface_tension .or. chem_params%diffusion) then
7133 call nvtxstartrange("RHS-ADD-PHYSICS")
7134 call s_compute_additional_physics_rhs(id, &
7135 q_prim_qp%vf, &
7136 rhs_vf, &
7137 flux_src_n(id)%vf, &
7138 dq_prim_dx_qp(1)%vf, &
7139 dq_prim_dy_qp(1)%vf, &
7140 dq_prim_dz_qp(1)%vf)
7141 call nvtxendrange
7142 end if
7143
7144 ! RHS additions for sub-grid bubbles_euler
7145 if (bubbles_euler) then
7146 call nvtxstartrange("RHS-BUBBLES-COMPUTE")
7147 call s_compute_bubbles_ee_rhs(id, q_prim_qp%vf, divu)
7148 call nvtxendrange
7149 end if
7150
7151 ! RHS additions for qbmm bubbles
7152 if (qbmm) then
7153 call nvtxstartrange("RHS-QBMM")
7154 call s_compute_qbmm_rhs(id, &
7155 q_cons_qp%vf, &
7156 q_prim_qp%vf, &
7157 rhs_vf, &
7158 flux_n(id)%vf, &
7159 pb_in, &
7160 rhs_pb)
7161 call nvtxendrange
7162 end if
7163 ! END: Additional physics and source terms
7164
7165 if (hyper_cleaning) then
7166
7167# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7168
7169# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7170#if defined(MFC_OpenACC)
7171# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7172!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
7173# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7174#elif defined(MFC_OpenMP)
7175# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7176
7177# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7178
7179# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7180
7181# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7182!$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)
7183# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7184#endif
7185# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7186
7187 do l = 0, p
7188 do k = 0, n
7189 do j = 0, m
7190 rhs_vf(psi_idx)%sf(j, k, l) = rhs_vf(psi_idx)%sf(j, k, l) - &
7191 q_prim_vf(psi_idx)%sf(j, k, l)/hyper_cleaning_tau
7192 end do
7193 end do
7194 end do
7195
7196# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7197
7198# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7199#if defined(MFC_OpenACC)
7200# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7201!$acc end parallel loop
7202# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7203#elif defined(MFC_OpenMP)
7204# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7205
7206# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7207
7208# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7209!$omp end target teams loop
7210# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7211#endif
7212# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7213
7214 end if
7215
7216 ! END: Additional physics and source terms
7217 end if
7218 end do
7219 ! END: Dimensional Splitting Loop
7220
7221 if (ib) then
7222
7223# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7224
7225# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7226#if defined(MFC_OpenACC)
7227# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7228!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
7229# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7230#elif defined(MFC_OpenMP)
7231# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7232
7233# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7234
7235# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7236
7237# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7238!$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)
7239# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7240#endif
7241# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7242
7243 do l = 0, p
7244 do k = 0, n
7245 do j = 0, m
7246 if (ib_markers%sf(j, k, l) /= 0) then
7247 do i = 1, sys_size
7248 rhs_vf(i)%sf(j, k, l) = 0._wp
7249 end do
7250 end if
7251 end do
7252 end do
7253 end do
7254
7255# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7256
7257# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7258#if defined(MFC_OpenACC)
7259# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7260!$acc end parallel loop
7261# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7262#elif defined(MFC_OpenMP)
7263# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7264
7265# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7266
7267# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7268!$omp end target teams loop
7269# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7270#endif
7271# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7272
7273 end if
7274
7275 ! Additional Physics and Source Temrs
7276 ! Additions for acoustic_source
7277 if (acoustic_source) then
7278 call nvtxstartrange("RHS-ACOUSTIC-SRC")
7279 call s_acoustic_src_calculations(q_cons_qp%vf(1:sys_size), &
7280 q_prim_qp%vf(1:sys_size), &
7281 t_step, &
7282 rhs_vf)
7283 call nvtxendrange
7284 end if
7285
7286 ! Add bubbles source term
7287 if (bubbles_euler .and. (.not. adap_dt) .and. (.not. qbmm)) then
7288 call nvtxstartrange("RHS-BUBBLES-SRC")
7289 call s_compute_bubble_ee_source( &
7290 q_cons_qp%vf(1:sys_size), &
7291 q_prim_qp%vf(1:sys_size), &
7292 rhs_vf, &
7293 divu)
7294 call nvtxendrange
7295 end if
7296
7297 if (bubbles_lagrange) then
7298 ! RHS additions for sub-grid bubbles_lagrange
7299 call nvtxstartrange("RHS-EL-BUBBLES-SRC")
7300 call s_compute_bubbles_el_source( &
7301 q_cons_qp%vf(1:sys_size), &
7302 q_prim_qp%vf(1:sys_size), &
7303 rhs_vf)
7304 call nvtxendrange
7305 ! Compute bubble dynamics
7306 if (.not. adap_dt) then
7307 call nvtxstartrange("RHS-EL-BUBBLES-DYN")
7308 call s_compute_bubble_el_dynamics( &
7309 q_prim_qp%vf(1:sys_size), &
7310 stage)
7311 call nvtxendrange
7312 end if
7313 end if
7314
7315 if (chemistry .and. chem_params%reactions) then
7316 call nvtxstartrange("RHS-CHEM-REACTIONS")
7317 call s_compute_chemistry_reaction_flux(rhs_vf, q_cons_qp%vf, q_t_sf, q_prim_qp%vf, idwint)
7318 call nvtxendrange
7319 end if
7320
7321 if (cont_damage) call s_compute_damage_state(q_cons_qp%vf, rhs_vf)
7322
7323 ! END: Additional pphysics and source terms
7324
7325 if (run_time_info .or. probe_wrt .or. ib .or. bubbles_lagrange) then
7326 if (.not. igr .or. dummy) then
7327
7328# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7329
7330# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7331#if defined(MFC_OpenACC)
7332# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7333!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
7334# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7335#elif defined(MFC_OpenMP)
7336# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7337
7338# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7339
7340# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7341
7342# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7343!$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)
7344# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7345#endif
7346# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7347
7348 do i = 1, sys_size
7349 do l = idwbuff(3)%beg, idwbuff(3)%end
7350 do k = idwbuff(2)%beg, idwbuff(2)%end
7351 do j = idwbuff(1)%beg, idwbuff(1)%end
7352 q_prim_vf(i)%sf(j, k, l) = q_prim_qp%vf(i)%sf(j, k, l)
7353 end do
7354 end do
7355 end do
7356 end do
7357
7358# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7359
7360# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7361#if defined(MFC_OpenACC)
7362# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7363!$acc end parallel loop
7364# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7365#elif defined(MFC_OpenMP)
7366# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7367
7368# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7369
7370# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7371!$omp end target teams loop
7372# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7373#endif
7374# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7375
7376 end if
7377 end if
7378
7379 call cpu_time(t_finish)
7380
7381 if (t_step >= 2) then
7382 time_avg = (abs(t_finish - t_start) + (t_step - 2)*time_avg)/(t_step - 1)
7383 else
7384 time_avg = 0._wp
7385 end if
7386
7387 call nvtxendrange
7388
7389 end subroutine s_compute_rhs
7390
7391 !> @brief Accumulates advection source contributions from a given coordinate direction into the RHS.
7392 subroutine s_compute_advection_source_term(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf)
7393
7394 integer, intent(in) :: idir
7395 type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
7396 type(vector_field), intent(inout) :: q_cons_vf
7397 type(vector_field), intent(inout) :: q_prim_vf
7398 type(vector_field), intent(inout) :: flux_src_n_vf
7399
7400 integer :: j, k, l, q ! Loop iterators from original, meaning varies
7401 integer :: k_loop, l_loop, q_loop ! Standardized spatial loop iterators 0:m, 0:n, 0:p
7402 integer :: i_fluid_loop
7403
7404 real(wp) :: inv_ds, flux_face1, flux_face2
7405 real(wp) :: advected_qty_val, pressure_val, velocity_val
7406
7407 if (alt_soundspeed) then
7408
7409# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7410
7411# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7412#if defined(MFC_OpenACC)
7413# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7414!$acc parallel loop collapse(3) gang vector default(present) private(k_loop, l_loop, q_loop)
7415# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7416#elif defined(MFC_OpenMP)
7417# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7418
7419# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7420
7421# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7422
7423# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7424!$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)
7425# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7426#endif
7427# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7428
7429 do q_loop = 0, p
7430 do l_loop = 0, n
7431 do k_loop = 0, m
7432 blkmod1(k_loop, l_loop, q_loop) = ((gammas(1) + 1._wp)*q_prim_vf%vf(e_idx)%sf(k_loop, l_loop, q_loop) + &
7433 pi_infs(1))/gammas(1)
7434 blkmod2(k_loop, l_loop, q_loop) = ((gammas(2) + 1._wp)*q_prim_vf%vf(e_idx)%sf(k_loop, l_loop, q_loop) + &
7435 pi_infs(2))/gammas(2)
7436 alpha1(k_loop, l_loop, q_loop) = q_cons_vf%vf(advxb)%sf(k_loop, l_loop, q_loop)
7437
7438 if (bubbles_euler) then
7439 alpha2(k_loop, l_loop, q_loop) = q_cons_vf%vf(alf_idx - 1)%sf(k_loop, l_loop, q_loop)
7440 else
7441 alpha2(k_loop, l_loop, q_loop) = q_cons_vf%vf(advxe)%sf(k_loop, l_loop, q_loop)
7442 end if
7443
7444 kterm(k_loop, l_loop, q_loop) = alpha1(k_loop, l_loop, q_loop)*alpha2(k_loop, l_loop, q_loop)* &
7445 (blkmod2(k_loop, l_loop, q_loop) - blkmod1(k_loop, l_loop, q_loop))/ &
7446 (alpha1(k_loop, l_loop, q_loop)*blkmod2(k_loop, l_loop, q_loop) + &
7447 alpha2(k_loop, l_loop, q_loop)*blkmod1(k_loop, l_loop, q_loop))
7448 end do
7449 end do
7450 end do
7451
7452# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7453
7454# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7455#if defined(MFC_OpenACC)
7456# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7457!$acc end parallel loop
7458# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7459#elif defined(MFC_OpenMP)
7460# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7461
7462# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7463
7464# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7465!$omp end target teams loop
7466# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7467#endif
7468# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7469
7470 end if
7471
7472 select case (idir)
7473 case (1) ! x-direction
7474 if (bc_x%beg <= bc_char_slip_wall .and. bc_x%beg >= bc_char_sup_outflow) then
7475 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
7476 end if
7477 if (bc_x%end <= bc_char_slip_wall .and. bc_x%end >= bc_char_sup_outflow) then
7478 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
7479 end if
7480
7481
7482# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7483
7484# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7485#if defined(MFC_OpenACC)
7486# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7487!$acc parallel loop collapse(4) gang vector default(present) private(j, k_loop, l_loop, q_loop, inv_ds, flux_face1, flux_face2)
7488# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7489#elif defined(MFC_OpenMP)
7490# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7491
7492# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7493
7494# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7495
7496# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7497!$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)
7498# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7499#endif
7500# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7501
7502 do j = 1, sys_size
7503 do q_loop = 0, p
7504 do l_loop = 0, n
7505 do k_loop = 0, m
7506 inv_ds = 1._wp/dx(k_loop)
7507 flux_face1 = flux_n(1)%vf(j)%sf(k_loop - 1, l_loop, q_loop)
7508 flux_face2 = flux_n(1)%vf(j)%sf(k_loop, l_loop, q_loop)
7509 rhs_vf(j)%sf(k_loop, l_loop, q_loop) = inv_ds*(flux_face1 - flux_face2)
7510 end do
7511 end do
7512 end do
7513 end do
7514
7515# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7516
7517# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7518#if defined(MFC_OpenACC)
7519# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7520!$acc end parallel loop
7521# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7522#elif defined(MFC_OpenMP)
7523# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7524
7525# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7526
7527# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7528!$omp end target teams loop
7529# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7530#endif
7531# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7532
7533
7534 if (model_eqns == 3) then
7535
7536# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7537
7538# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7539#if defined(MFC_OpenACC)
7540# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7541!$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)
7542# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7543#elif defined(MFC_OpenMP)
7544# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7545
7546# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7547
7548# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7549
7550# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7551!$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)
7552# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7553#endif
7554# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7555
7556 do q_loop = 0, p
7557 do l_loop = 0, n
7558 do k_loop = 0, m
7559 do i_fluid_loop = 1, num_fluids
7560 inv_ds = 1._wp/dx(k_loop)
7561 advected_qty_val = q_cons_vf%vf(i_fluid_loop + advxb - 1)%sf(k_loop, l_loop, q_loop)
7562 pressure_val = q_prim_vf%vf(e_idx)%sf(k_loop, l_loop, q_loop)
7563 flux_face1 = flux_src_n_vf%vf(advxb)%sf(k_loop, l_loop, q_loop)
7564 flux_face2 = flux_src_n_vf%vf(advxb)%sf(k_loop - 1, l_loop, q_loop)
7565 rhs_vf(i_fluid_loop + intxb - 1)%sf(k_loop, l_loop, q_loop) = &
7566 rhs_vf(i_fluid_loop + intxb - 1)%sf(k_loop, l_loop, q_loop) - &
7567 inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
7568 end do
7569 end do
7570 end do
7571 end do
7572
7573# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7574
7575# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7576#if defined(MFC_OpenACC)
7577# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7578!$acc end parallel loop
7579# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7580#elif defined(MFC_OpenMP)
7581# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7582
7583# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7584
7585# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7586!$omp end target teams loop
7587# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7588#endif
7589# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7590
7591 end if
7592
7593 call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
7594
7595 case (2) ! y-direction
7596 if (bc_y%beg <= bc_char_slip_wall .and. bc_y%beg >= bc_char_sup_outflow) then
7597 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
7598 end if
7599 if (bc_y%end <= bc_char_slip_wall .and. bc_y%end >= bc_char_sup_outflow) then
7600 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
7601 end if
7602
7603
7604# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7605
7606# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7607#if defined(MFC_OpenACC)
7608# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7609!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, flux_face1, flux_face2)
7610# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7611#elif defined(MFC_OpenMP)
7612# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7613
7614# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7615
7616# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7617
7618# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7619!$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)
7620# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7621#endif
7622# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7623
7624 do j = 1, sys_size
7625 do l = 0, p
7626 do k = 0, n
7627 do q = 0, m
7628 inv_ds = 1._wp/dy(k)
7629 flux_face1 = flux_n(2)%vf(j)%sf(q, k - 1, l)
7630 flux_face2 = flux_n(2)%vf(j)%sf(q, k, l)
7631 rhs_vf(j)%sf(q, k, l) = rhs_vf(j)%sf(q, k, l) + inv_ds*(flux_face1 - flux_face2)
7632 end do
7633 end do
7634 end do
7635 end do
7636
7637# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7638
7639# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7640#if defined(MFC_OpenACC)
7641# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7642!$acc end parallel loop
7643# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7644#elif defined(MFC_OpenMP)
7645# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7646
7647# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7648
7649# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7650!$omp end target teams loop
7651# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7652#endif
7653# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7654
7655
7656 if (model_eqns == 3) then
7657
7658# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7659
7660# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7661#if defined(MFC_OpenACC)
7662# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7663!$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)
7664# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7665#elif defined(MFC_OpenMP)
7666# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7667
7668# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7669
7670# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7671
7672# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7673!$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)
7674# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7675#endif
7676# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7677
7678 do l = 0, p
7679 do k = 0, n
7680 do q = 0, m
7681 do i_fluid_loop = 1, num_fluids
7682 inv_ds = 1._wp/dy(k)
7683 advected_qty_val = q_cons_vf%vf(i_fluid_loop + advxb - 1)%sf(q, k, l)
7684 pressure_val = q_prim_vf%vf(e_idx)%sf(q, k, l)
7685 flux_face1 = flux_src_n_vf%vf(advxb)%sf(q, k, l)
7686 flux_face2 = flux_src_n_vf%vf(advxb)%sf(q, k - 1, l)
7687 rhs_vf(i_fluid_loop + intxb - 1)%sf(q, k, l) = &
7688 rhs_vf(i_fluid_loop + intxb - 1)%sf(q, k, l) - &
7689 inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
7690 if (cyl_coord) then
7691 rhs_vf(i_fluid_loop + intxb - 1)%sf(q, k, l) = &
7692 rhs_vf(i_fluid_loop + intxb - 1)%sf(q, k, l) - &
7693 5.e-1_wp/y_cc(k)*advected_qty_val*pressure_val*(flux_face1 + flux_face2)
7694 end if
7695 end do
7696 end do
7697 end do
7698 end do
7699
7700# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7701
7702# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7703#if defined(MFC_OpenACC)
7704# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7705!$acc end parallel loop
7706# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7707#elif defined(MFC_OpenMP)
7708# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7709
7710# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7711
7712# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7713!$omp end target teams loop
7714# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7715#endif
7716# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7717
7718 end if
7719
7720 if (cyl_coord) then
7721
7722# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7723
7724# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7725#if defined(MFC_OpenACC)
7726# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7727!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, flux_face1, flux_face2)
7728# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7729#elif defined(MFC_OpenMP)
7730# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7731
7732# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7733
7734# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7735
7736# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7737!$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)
7738# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7739#endif
7740# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7741
7742 do j = 1, sys_size
7743 do l = 0, p
7744 do k = 0, n
7745 do q = 0, m
7746 flux_face1 = flux_gsrc_n(2)%vf(j)%sf(q, k - 1, l)
7747 flux_face2 = flux_gsrc_n(2)%vf(j)%sf(q, k, l)
7748 rhs_vf(j)%sf(q, k, l) = rhs_vf(j)%sf(q, k, l) - &
7749 5.e-1_wp/y_cc(k)*(flux_face1 + flux_face2)
7750 end do
7751 end do
7752 end do
7753 end do
7754
7755# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7756
7757# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7758#if defined(MFC_OpenACC)
7759# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7760!$acc end parallel loop
7761# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7762#elif defined(MFC_OpenMP)
7763# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7764
7765# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7766
7767# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7768!$omp end target teams loop
7769# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7770#endif
7771# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7772
7773 end if
7774
7775 call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
7776
7777 case (3) ! z-direction
7778 if (bc_z%beg <= bc_char_slip_wall .and. bc_z%beg >= bc_char_sup_outflow) then
7779 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
7780 end if
7781 if (bc_z%end <= bc_char_slip_wall .and. bc_z%end >= bc_char_sup_outflow) then
7782 call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
7783 end if
7784
7785 if (grid_geometry == 3) then ! Cylindrical Coordinates
7786
7787# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7788
7789# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7790#if defined(MFC_OpenACC)
7791# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7792!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, velocity_val, flux_face1, flux_face2)
7793# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7794#elif defined(MFC_OpenMP)
7795# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7796
7797# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7798
7799# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7800
7801# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7802!$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)
7803# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7804#endif
7805# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7806
7807 do j = 1, sys_size
7808 do k = 0, p
7809 do q = 0, n
7810 do l = 0, m
7811 inv_ds = 1._wp/(dz(k)*y_cc(q))
7812 velocity_val = q_prim_vf%vf(contxe + idir)%sf(l, q, k)
7813 flux_face1 = flux_n(3)%vf(j)%sf(l, q, k - 1)
7814 flux_face2 = flux_n(3)%vf(j)%sf(l, q, k)
7815 rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) + &
7816 inv_ds*velocity_val*(flux_face1 - flux_face2)
7817 end do
7818 end do
7819 end do
7820 end do
7821
7822# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7823
7824# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7825#if defined(MFC_OpenACC)
7826# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7827!$acc end parallel loop
7828# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7829#elif defined(MFC_OpenMP)
7830# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7831
7832# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7833
7834# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7835!$omp end target teams loop
7836# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7837#endif
7838# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7839
7840
7841# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7842
7843# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7844#if defined(MFC_OpenACC)
7845# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7846!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, flux_face1, flux_face2)
7847# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7848#elif defined(MFC_OpenMP)
7849# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7850
7851# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7852
7853# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7854
7855# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7856!$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)
7857# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7858#endif
7859# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7860
7861 do j = 1, sys_size
7862 do k = 0, p
7863 do q = 0, n
7864 do l = 0, m
7865 flux_face1 = flux_gsrc_n(3)%vf(j)%sf(l, q, k - 1)
7866 flux_face2 = flux_gsrc_n(3)%vf(j)%sf(l, q, k)
7867 rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) - &
7868 5.e-1_wp/y_cc(q)*(flux_face1 + flux_face2)
7869 end do
7870 end do
7871 end do
7872 end do
7873
7874# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7875
7876# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7877#if defined(MFC_OpenACC)
7878# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7879!$acc end parallel loop
7880# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7881#elif defined(MFC_OpenMP)
7882# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7883
7884# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7885
7886# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7887!$omp end target teams loop
7888# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7889#endif
7890# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7891
7892 else ! Cartesian Coordinates
7893
7894# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7895
7896# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7897#if defined(MFC_OpenACC)
7898# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7899!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, flux_face1, flux_face2)
7900# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7901#elif defined(MFC_OpenMP)
7902# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7903
7904# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7905
7906# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7907
7908# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7909!$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)
7910# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7911#endif
7912# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7913
7914 do j = 1, sys_size
7915 do k = 0, p
7916 do q = 0, n
7917 do l = 0, m
7918 inv_ds = 1._wp/dz(k)
7919 flux_face1 = flux_n(3)%vf(j)%sf(l, q, k - 1)
7920 flux_face2 = flux_n(3)%vf(j)%sf(l, q, k)
7921 rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) + inv_ds*(flux_face1 - flux_face2)
7922 end do
7923 end do
7924 end do
7925 end do
7926
7927# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7928
7929# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7930#if defined(MFC_OpenACC)
7931# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7932!$acc end parallel loop
7933# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7934#elif defined(MFC_OpenMP)
7935# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7936
7937# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7938
7939# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7940!$omp end target teams loop
7941# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7942#endif
7943# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7944
7945 end if
7946
7947 if (model_eqns == 3) then
7948
7949# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7950
7951# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7952#if defined(MFC_OpenACC)
7953# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7954!$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)
7955# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7956#elif defined(MFC_OpenMP)
7957# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7958
7959# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7960
7961# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7962
7963# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7964!$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)
7965# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7966#endif
7967# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7968
7969 do k = 0, p
7970 do q = 0, n
7971 do l = 0, m
7972 do i_fluid_loop = 1, num_fluids
7973 inv_ds = 1._wp/dz(k)
7974 advected_qty_val = q_cons_vf%vf(i_fluid_loop + advxb - 1)%sf(l, q, k)
7975 pressure_val = q_prim_vf%vf(e_idx)%sf(l, q, k)
7976 flux_face1 = flux_src_n_vf%vf(advxb)%sf(l, q, k)
7977 flux_face2 = flux_src_n_vf%vf(advxb)%sf(l, q, k - 1)
7978 rhs_vf(i_fluid_loop + intxb - 1)%sf(l, q, k) = &
7979 rhs_vf(i_fluid_loop + intxb - 1)%sf(l, q, k) - &
7980 inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
7981 end do
7982 end do
7983 end do
7984 end do
7985
7986# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7987
7988# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7989#if defined(MFC_OpenACC)
7990# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7991!$acc end parallel loop
7992# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7993#elif defined(MFC_OpenMP)
7994# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7995
7996# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7997
7998# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
7999!$omp end target teams loop
8000# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8001#endif
8002# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8003
8004 end if
8005
8006 call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
8007
8008 end select
8009
8010 contains
8011
8012 !> @brief Adds the advection source flux-difference terms for a single coordinate direction to the RHS.
8013 subroutine s_add_directional_advection_source_terms(current_idir, rhs_vf_arg, q_cons_vf_arg, &
8014 q_prim_vf_arg, flux_src_n_vf_arg, Kterm_arg)
8015 integer, intent(in) :: current_idir
8016 type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf_arg
8017 type(vector_field), intent(in) :: q_cons_vf_arg
8018 type(vector_field), intent(in) :: q_prim_vf_arg
8019 type(vector_field), intent(in) :: flux_src_n_vf_arg
8020 ! CORRECTED DECLARATION FOR Kterm_arg:
8021 real(wp), allocatable, dimension(:, :, :), intent(in) :: Kterm_arg
8022
8023 integer :: j_adv, k_idx, l_idx, q_idx
8024 real(wp) :: local_inv_ds, local_term_coeff, local_flux1, local_flux2
8025 real(wp) :: local_q_cons_val, local_k_term_val
8026 logical :: use_standard_riemann
8027
8028 select case (current_idir)
8029 case (1) ! x-direction
8030 use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
8031 if (use_standard_riemann) then
8032
8033# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8034
8035# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8036#if defined(MFC_OpenACC)
8037# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8038!$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)
8039# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8040#elif defined(MFC_OpenMP)
8041# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8042
8043# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8044
8045# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8046
8047# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8048!$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)
8049# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8050#endif
8051# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8052
8053 do j_adv = advxb, advxe
8054 do q_idx = 0, p ! z_extent
8055 do l_idx = 0, n ! y_extent
8056 do k_idx = 0, m ! x_extent
8057 local_inv_ds = 1._wp/dx(k_idx)
8058 local_term_coeff = q_prim_vf_arg%vf(contxe + current_idir)%sf(k_idx, l_idx, q_idx)
8059 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx - 1, l_idx, q_idx)
8060 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx, l_idx, q_idx)
8061 rhs_vf_arg(j_adv)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(j_adv)%sf(k_idx, l_idx, q_idx) + &
8062 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8063 end do
8064 end do
8065 end do
8066 end do
8067
8068# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8069
8070# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8071#if defined(MFC_OpenACC)
8072# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8073!$acc end parallel loop
8074# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8075#elif defined(MFC_OpenMP)
8076# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8077
8078# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8079
8080# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8081!$omp end target teams loop
8082# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8083#endif
8084# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8085
8086 else ! Other Riemann solvers
8087 if (alt_soundspeed) then
8088 if (bubbles_euler .neqv. .true.) then
8089
8090# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8091
8092# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8093#if defined(MFC_OpenACC)
8094# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8095!$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)
8096# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8097#elif defined(MFC_OpenMP)
8098# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8099
8100# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8101
8102# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8103
8104# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8105!$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)
8106# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8107#endif
8108# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8109
8110 do q_idx = 0, p; do l_idx = 0, n; do k_idx = 0, m
8111 local_inv_ds = 1._wp/dx(k_idx)
8112 local_q_cons_val = q_cons_vf_arg%vf(advxe)%sf(k_idx, l_idx, q_idx)
8113 local_k_term_val = kterm_arg(k_idx, l_idx, q_idx) ! Access is safe due to outer alt_soundspeed check
8114 local_term_coeff = local_q_cons_val - local_k_term_val
8115 local_flux1 = flux_src_n_vf_arg%vf(advxe)%sf(k_idx, l_idx, q_idx)
8116 local_flux2 = flux_src_n_vf_arg%vf(advxe)%sf(k_idx - 1, l_idx, q_idx)
8117 rhs_vf_arg(advxe)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(advxe)%sf(k_idx, l_idx, q_idx) + &
8118 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8119 end do; end do; end do
8120
8121# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8122
8123# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8124#if defined(MFC_OpenACC)
8125# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8126!$acc end parallel loop
8127# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8128#elif defined(MFC_OpenMP)
8129# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8130
8131# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8132
8133# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8134!$omp end target teams loop
8135# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8136#endif
8137# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8138
8139
8140
8141# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8142
8143# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8144#if defined(MFC_OpenACC)
8145# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8146!$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)
8147# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8148#elif defined(MFC_OpenMP)
8149# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8150
8151# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8152
8153# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8154
8155# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8156!$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)
8157# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8158#endif
8159# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8160
8161 do q_idx = 0, p; do l_idx = 0, n; do k_idx = 0, m
8162 local_inv_ds = 1._wp/dx(k_idx)
8163 local_q_cons_val = q_cons_vf_arg%vf(advxb)%sf(k_idx, l_idx, q_idx)
8164 local_k_term_val = kterm_arg(k_idx, l_idx, q_idx) ! Access is safe
8165 local_term_coeff = local_q_cons_val + local_k_term_val
8166 local_flux1 = flux_src_n_vf_arg%vf(advxb)%sf(k_idx, l_idx, q_idx)
8167 local_flux2 = flux_src_n_vf_arg%vf(advxb)%sf(k_idx - 1, l_idx, q_idx)
8168 rhs_vf_arg(advxb)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(advxb)%sf(k_idx, l_idx, q_idx) + &
8169 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8170 end do; end do; end do
8171
8172# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8173
8174# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8175#if defined(MFC_OpenACC)
8176# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8177!$acc end parallel loop
8178# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8179#elif defined(MFC_OpenMP)
8180# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8181
8182# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8183
8184# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8185!$omp end target teams loop
8186# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8187#endif
8188# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8189
8190 end if
8191 else ! NOT alt_soundspeed
8192
8193# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8194
8195# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8196#if defined(MFC_OpenACC)
8197# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8198!$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)
8199# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8200#elif defined(MFC_OpenMP)
8201# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8202
8203# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8204
8205# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8206
8207# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8208!$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)
8209# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8210#endif
8211# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8212
8213 do j_adv = advxb, advxe
8214 do q_idx = 0, p; do l_idx = 0, n; do k_idx = 0, m
8215 local_inv_ds = 1._wp/dx(k_idx)
8216 local_term_coeff = q_cons_vf_arg%vf(j_adv)%sf(k_idx, l_idx, q_idx)
8217 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx, l_idx, q_idx)
8218 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx - 1, l_idx, q_idx)
8219 rhs_vf_arg(j_adv)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(j_adv)%sf(k_idx, l_idx, q_idx) + &
8220 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8221 end do; end do; end do
8222 end do
8223
8224# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8225
8226# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8227#if defined(MFC_OpenACC)
8228# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8229!$acc end parallel loop
8230# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8231#elif defined(MFC_OpenMP)
8232# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8233
8234# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8235
8236# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8237!$omp end target teams loop
8238# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8239#endif
8240# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8241
8242 end if
8243 end if
8244
8245 case (2) ! 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)
8246 use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
8247 if (use_standard_riemann) then
8248
8249# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8250
8251# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8252#if defined(MFC_OpenACC)
8253# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8254!$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)
8255# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8256#elif defined(MFC_OpenMP)
8257# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8258
8259# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8260
8261# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8262
8263# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8264!$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)
8265# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8266#endif
8267# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8268
8269 do j_adv = advxb, advxe
8270 do l_idx = 0, p ! z_extent
8271 do k_idx = 0, n ! y_extent
8272 do q_idx = 0, m ! x_extent
8273 local_inv_ds = 1._wp/dy(k_idx)
8274 local_term_coeff = q_prim_vf_arg%vf(contxe + current_idir)%sf(q_idx, k_idx, l_idx)
8275 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx - 1, l_idx)
8276 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx, l_idx)
8277 rhs_vf_arg(j_adv)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(j_adv)%sf(q_idx, k_idx, l_idx) + &
8278 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8279 end do
8280 end do
8281 end do
8282 end do
8283
8284# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8285
8286# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8287#if defined(MFC_OpenACC)
8288# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8289!$acc end parallel loop
8290# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8291#elif defined(MFC_OpenMP)
8292# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8293
8294# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8295
8296# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8297!$omp end target teams loop
8298# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8299#endif
8300# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8301
8302 else ! Other Riemann solvers
8303 if (alt_soundspeed) then
8304 if (bubbles_euler .neqv. .true.) then
8305
8306# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8307
8308# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8309#if defined(MFC_OpenACC)
8310# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8311!$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)
8312# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8313#elif defined(MFC_OpenMP)
8314# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8315
8316# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8317
8318# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8319
8320# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8321!$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)
8322# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8323#endif
8324# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8325
8326 do l_idx = 0, p; do k_idx = 0, n; do q_idx = 0, m
8327 local_inv_ds = 1._wp/dy(k_idx)
8328 local_q_cons_val = q_cons_vf_arg%vf(advxe)%sf(q_idx, k_idx, l_idx)
8329 local_k_term_val = kterm_arg(q_idx, k_idx, l_idx) ! Access is safe
8330 local_term_coeff = local_q_cons_val - local_k_term_val
8331 local_flux1 = flux_src_n_vf_arg%vf(advxe)%sf(q_idx, k_idx, l_idx)
8332 local_flux2 = flux_src_n_vf_arg%vf(advxe)%sf(q_idx, k_idx - 1, l_idx)
8333 rhs_vf_arg(advxe)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(advxe)%sf(q_idx, k_idx, l_idx) + &
8334 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8335 if (cyl_coord) then
8336 rhs_vf_arg(advxe)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(advxe)%sf(q_idx, k_idx, l_idx) - &
8337 (local_k_term_val/(2._wp*y_cc(k_idx)))*(local_flux1 + local_flux2)
8338 end if
8339 end do; end do; end do
8340
8341# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8342
8343# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8344#if defined(MFC_OpenACC)
8345# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8346!$acc end parallel loop
8347# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8348#elif defined(MFC_OpenMP)
8349# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8350
8351# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8352
8353# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8354!$omp end target teams loop
8355# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8356#endif
8357# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8358
8359
8360
8361# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8362
8363# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8364#if defined(MFC_OpenACC)
8365# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8366!$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)
8367# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8368#elif defined(MFC_OpenMP)
8369# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8370
8371# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8372
8373# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8374
8375# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8376!$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)
8377# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8378#endif
8379# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8380
8381 do l_idx = 0, p; do k_idx = 0, n; do q_idx = 0, m
8382 local_inv_ds = 1._wp/dy(k_idx)
8383 local_q_cons_val = q_cons_vf_arg%vf(advxb)%sf(q_idx, k_idx, l_idx)
8384 local_k_term_val = kterm_arg(q_idx, k_idx, l_idx) ! Access is safe
8385 local_term_coeff = local_q_cons_val + local_k_term_val
8386 local_flux1 = flux_src_n_vf_arg%vf(advxb)%sf(q_idx, k_idx, l_idx)
8387 local_flux2 = flux_src_n_vf_arg%vf(advxb)%sf(q_idx, k_idx - 1, l_idx)
8388 rhs_vf_arg(advxb)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(advxb)%sf(q_idx, k_idx, l_idx) + &
8389 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8390 if (cyl_coord) then
8391 rhs_vf_arg(advxb)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(advxb)%sf(q_idx, k_idx, l_idx) + &
8392 (local_k_term_val/(2._wp*y_cc(k_idx)))*(local_flux1 + local_flux2)
8393 end if
8394 end do; end do; end do
8395
8396# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8397
8398# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8399#if defined(MFC_OpenACC)
8400# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8401!$acc end parallel loop
8402# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8403#elif defined(MFC_OpenMP)
8404# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8405
8406# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8407
8408# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8409!$omp end target teams loop
8410# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8411#endif
8412# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8413
8414 end if
8415 else ! NOT alt_soundspeed
8416
8417# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8418
8419# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8420#if defined(MFC_OpenACC)
8421# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8422!$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)
8423# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8424#elif defined(MFC_OpenMP)
8425# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8426
8427# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8428
8429# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8430
8431# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8432!$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)
8433# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8434#endif
8435# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8436
8437 do j_adv = advxb, advxe
8438 do l_idx = 0, p; do k_idx = 0, n; do q_idx = 0, m
8439 local_inv_ds = 1._wp/dy(k_idx)
8440 local_term_coeff = q_cons_vf_arg%vf(j_adv)%sf(q_idx, k_idx, l_idx)
8441 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx, l_idx)
8442 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx - 1, l_idx)
8443 rhs_vf_arg(j_adv)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(j_adv)%sf(q_idx, k_idx, l_idx) + &
8444 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8445 end do; end do; end do
8446 end do
8447
8448# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8449
8450# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8451#if defined(MFC_OpenACC)
8452# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8453!$acc end parallel loop
8454# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8455#elif defined(MFC_OpenMP)
8456# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8457
8458# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8459
8460# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8461!$omp end target teams loop
8462# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8463#endif
8464# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8465
8466 end if
8467 end if
8468
8469 case (3) ! 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)
8470 if (grid_geometry == 3) then
8471 use_standard_riemann = (riemann_solver == 1)
8472 else
8473 use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
8474 end if
8475
8476 if (use_standard_riemann) then
8477
8478# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8479
8480# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8481#if defined(MFC_OpenACC)
8482# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8483!$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)
8484# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8485#elif defined(MFC_OpenMP)
8486# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8487
8488# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8489
8490# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8491
8492# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8493!$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)
8494# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8495#endif
8496# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8497
8498 do j_adv = advxb, advxe
8499 do k_idx = 0, p ! z_extent
8500 do q_idx = 0, n ! y_extent
8501 do l_idx = 0, m ! x_extent
8502 local_inv_ds = 1._wp/dz(k_idx)
8503 local_term_coeff = q_prim_vf_arg%vf(contxe + current_idir)%sf(l_idx, q_idx, k_idx)
8504 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx - 1)
8505 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx)
8506 rhs_vf_arg(j_adv)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(j_adv)%sf(l_idx, q_idx, k_idx) + &
8507 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8508 end do
8509 end do
8510 end do
8511 end do
8512
8513# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8514
8515# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8516#if defined(MFC_OpenACC)
8517# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8518!$acc end parallel loop
8519# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8520#elif defined(MFC_OpenMP)
8521# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8522
8523# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8524
8525# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8526!$omp end target teams loop
8527# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8528#endif
8529# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8530
8531 else ! Other Riemann solvers
8532 if (alt_soundspeed) then
8533 if (bubbles_euler .neqv. .true.) then
8534
8535# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8536
8537# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8538#if defined(MFC_OpenACC)
8539# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8540!$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)
8541# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8542#elif defined(MFC_OpenMP)
8543# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8544
8545# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8546
8547# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8548
8549# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8550!$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)
8551# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8552#endif
8553# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8554
8555 do k_idx = 0, p; do q_idx = 0, n; do l_idx = 0, m
8556 local_inv_ds = 1._wp/dz(k_idx)
8557 local_q_cons_val = q_cons_vf_arg%vf(advxe)%sf(l_idx, q_idx, k_idx)
8558 local_k_term_val = kterm_arg(l_idx, q_idx, k_idx) ! Access is safe
8559 local_term_coeff = local_q_cons_val - local_k_term_val
8560 local_flux1 = flux_src_n_vf_arg%vf(advxe)%sf(l_idx, q_idx, k_idx)
8561 local_flux2 = flux_src_n_vf_arg%vf(advxe)%sf(l_idx, q_idx, k_idx - 1)
8562 rhs_vf_arg(advxe)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(advxe)%sf(l_idx, q_idx, k_idx) + &
8563 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8564 end do; end do; end do
8565
8566# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8567
8568# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8569#if defined(MFC_OpenACC)
8570# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8571!$acc end parallel loop
8572# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8573#elif defined(MFC_OpenMP)
8574# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8575
8576# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8577
8578# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8579!$omp end target teams loop
8580# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8581#endif
8582# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8583
8584
8585
8586# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8587
8588# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8589#if defined(MFC_OpenACC)
8590# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8591!$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)
8592# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8593#elif defined(MFC_OpenMP)
8594# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8595
8596# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8597
8598# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8599
8600# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8601!$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)
8602# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8603#endif
8604# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8605
8606 do k_idx = 0, p; do q_idx = 0, n; do l_idx = 0, m
8607 local_inv_ds = 1._wp/dz(k_idx)
8608 local_q_cons_val = q_cons_vf_arg%vf(advxb)%sf(l_idx, q_idx, k_idx)
8609 local_k_term_val = kterm_arg(l_idx, q_idx, k_idx) ! Access is safe
8610 local_term_coeff = local_q_cons_val + local_k_term_val
8611 local_flux1 = flux_src_n_vf_arg%vf(advxb)%sf(l_idx, q_idx, k_idx)
8612 local_flux2 = flux_src_n_vf_arg%vf(advxb)%sf(l_idx, q_idx, k_idx - 1)
8613 rhs_vf_arg(advxb)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(advxb)%sf(l_idx, q_idx, k_idx) + &
8614 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8615 end do; end do; end do
8616
8617# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8618
8619# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8620#if defined(MFC_OpenACC)
8621# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8622!$acc end parallel loop
8623# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8624#elif defined(MFC_OpenMP)
8625# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8626
8627# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8628
8629# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8630!$omp end target teams loop
8631# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8632#endif
8633# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8634
8635 end if
8636 else ! NOT alt_soundspeed
8637
8638# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8639
8640# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8641#if defined(MFC_OpenACC)
8642# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8643!$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)
8644# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8645#elif defined(MFC_OpenMP)
8646# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8647
8648# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8649
8650# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8651
8652# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8653!$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)
8654# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8655#endif
8656# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8657
8658 do j_adv = advxb, advxe
8659 do k_idx = 0, p; do q_idx = 0, n; do l_idx = 0, m
8660 local_inv_ds = 1._wp/dz(k_idx)
8661 local_term_coeff = q_cons_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx)
8662 local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx)
8663 local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx - 1)
8664 rhs_vf_arg(j_adv)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(j_adv)%sf(l_idx, q_idx, k_idx) + &
8665 local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
8666 end do; end do; end do
8667 end do
8668
8669# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8670
8671# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8672#if defined(MFC_OpenACC)
8673# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8674!$acc end parallel loop
8675# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8676#elif defined(MFC_OpenMP)
8677# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8678
8679# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8680
8681# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8682!$omp end target teams loop
8683# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8684#endif
8685# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8686
8687 end if
8688 end if
8689 end select
8690 end subroutine s_add_directional_advection_source_terms
8691
8692 end subroutine s_compute_advection_source_term
8693
8694 !> @brief Adds viscous, surface-tension, and species-diffusion source flux contributions to the RHS for a given direction.
8695 subroutine s_compute_additional_physics_rhs(idir, q_prim_vf, rhs_vf, flux_src_n_in, &
8696 dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf)
8697
8698 integer, intent(in) :: idir
8699 type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf
8700 type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
8701 type(scalar_field), dimension(sys_size), intent(in) :: flux_src_n_in
8702 type(scalar_field), dimension(sys_size), intent(in) :: dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf
8703
8704 integer :: i, j, k, l
8705
8706 if (idir == 1) then ! x-direction
8707
8708 if (surface_tension) then
8709
8710# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8711
8712# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8713#if defined(MFC_OpenACC)
8714# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8715!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
8716# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8717#elif defined(MFC_OpenMP)
8718# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8719
8720# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8721
8722# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8723
8724# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8725!$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)
8726# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8727#endif
8728# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8729
8730 do l = 0, p
8731 do k = 0, n
8732 do j = 0, m
8733 rhs_vf(c_idx)%sf(j, k, l) = &
8734 rhs_vf(c_idx)%sf(j, k, l) + 1._wp/dx(j)* &
8735 q_prim_vf(c_idx)%sf(j, k, l)* &
8736 (flux_src_n_in(advxb)%sf(j, k, l) - &
8737 flux_src_n_in(advxb)%sf(j - 1, k, l))
8738 end do
8739 end do
8740 end do
8741
8742# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8743
8744# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8745#if defined(MFC_OpenACC)
8746# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8747!$acc end parallel loop
8748# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8749#elif defined(MFC_OpenMP)
8750# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8751
8752# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8753
8754# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8755!$omp end target teams loop
8756# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8757#endif
8758# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8759
8760 end if
8761
8762 if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
8763
8764# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8765
8766# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8767#if defined(MFC_OpenACC)
8768# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8769!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
8770# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8771#elif defined(MFC_OpenMP)
8772# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8773
8774# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8775
8776# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8777
8778# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8779!$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)
8780# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8781#endif
8782# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8783
8784 do l = 0, p
8785 do k = 0, n
8786 do j = 0, m
8787 if (surface_tension .or. viscous) then
8788
8789# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8790#if defined(MFC_OpenACC)
8791# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8792!$acc loop seq
8793# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8794#elif defined(MFC_OpenMP)
8795# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8796
8797# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8798#endif
8799 do i = momxb, e_idx
8800 rhs_vf(i)%sf(j, k, l) = &
8801 rhs_vf(i)%sf(j, k, l) + 1._wp/dx(j)* &
8802 (flux_src_n_in(i)%sf(j - 1, k, l) &
8803 - flux_src_n_in(i)%sf(j, k, l))
8804 end do
8805 end if
8806
8807 if (chem_params%diffusion) then
8808
8809# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8810#if defined(MFC_OpenACC)
8811# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8812!$acc loop seq
8813# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8814#elif defined(MFC_OpenMP)
8815# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8816
8817# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8818#endif
8819 do i = chemxb, chemxe
8820 rhs_vf(i)%sf(j, k, l) = &
8821 rhs_vf(i)%sf(j, k, l) + 1._wp/dx(j)* &
8822 (flux_src_n_in(i)%sf(j - 1, k, l) &
8823 - flux_src_n_in(i)%sf(j, k, l))
8824 end do
8825
8826 if (.not. viscous) then
8827 rhs_vf(e_idx)%sf(j, k, l) = &
8828 rhs_vf(e_idx)%sf(j, k, l) + 1._wp/dx(j)* &
8829 (flux_src_n_in(e_idx)%sf(j - 1, k, l) &
8830 - flux_src_n_in(e_idx)%sf(j, k, l))
8831 end if
8832 end if
8833 end do
8834 end do
8835 end do
8836
8837# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8838
8839# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8840#if defined(MFC_OpenACC)
8841# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8842!$acc end parallel loop
8843# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8844#elif defined(MFC_OpenMP)
8845# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8846
8847# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8848
8849# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8850!$omp end target teams loop
8851# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8852#endif
8853# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8854
8855 end if
8856
8857 elseif (idir == 2) then ! y-direction
8858
8859 if (surface_tension) then
8860
8861# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8862
8863# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8864#if defined(MFC_OpenACC)
8865# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8866!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
8867# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8868#elif defined(MFC_OpenMP)
8869# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8870
8871# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8872
8873# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8874
8875# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8876!$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)
8877# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8878#endif
8879# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8880
8881 do l = 0, p
8882 do k = 0, n
8883 do j = 0, m
8884 rhs_vf(c_idx)%sf(j, k, l) = &
8885 rhs_vf(c_idx)%sf(j, k, l) + 1._wp/dy(k)* &
8886 q_prim_vf(c_idx)%sf(j, k, l)* &
8887 (flux_src_n_in(advxb)%sf(j, k, l) - &
8888 flux_src_n_in(advxb)%sf(j, k - 1, l))
8889 end do
8890 end do
8891 end do
8892
8893# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8894
8895# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8896#if defined(MFC_OpenACC)
8897# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8898!$acc end parallel loop
8899# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8900#elif defined(MFC_OpenMP)
8901# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8902
8903# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8904
8905# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8906!$omp end target teams loop
8907# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8908#endif
8909# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8910
8911 end if
8912
8913 if (cyl_coord .and. ((bc_y%beg == -2) .or. (bc_y%beg == -14))) then
8914 if (viscous .or. dummy) then
8915 if (p > 0) then
8916 call s_compute_viscous_stress_cylindrical_boundary(q_prim_vf, &
8917 dq_prim_dx_vf(mom_idx%beg:mom_idx%end), &
8918 dq_prim_dy_vf(mom_idx%beg:mom_idx%end), &
8919 dq_prim_dz_vf(mom_idx%beg:mom_idx%end), &
8920 tau_re_vf, &
8921 idwbuff(1), idwbuff(2), idwbuff(3))
8922 else
8923 call s_compute_viscous_stress_cylindrical_boundary(q_prim_vf, &
8924 dq_prim_dx_vf(mom_idx%beg:mom_idx%end), &
8925 dq_prim_dy_vf(mom_idx%beg:mom_idx%end), &
8926 dq_prim_dy_vf(mom_idx%beg:mom_idx%end), &
8927 tau_re_vf, &
8928 idwbuff(1), idwbuff(2), idwbuff(3))
8929 end if
8930
8931
8932# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8933
8934# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8935#if defined(MFC_OpenACC)
8936# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8937!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l)
8938# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8939#elif defined(MFC_OpenMP)
8940# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8941
8942# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8943
8944# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8945
8946# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8947!$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)
8948# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8949#endif
8950# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8951
8952 do l = 0, p
8953 do j = 0, m
8954
8955# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8956#if defined(MFC_OpenACC)
8957# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8958!$acc loop seq
8959# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8960#elif defined(MFC_OpenMP)
8961# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8962
8963# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8964#endif
8965 do i = momxb, e_idx
8966 rhs_vf(i)%sf(j, 0, l) = &
8967 rhs_vf(i)%sf(j, 0, l) + 1._wp/(y_cc(1) - y_cc(-1))* &
8968 (tau_re_vf(i)%sf(j, -1, l) &
8969 - tau_re_vf(i)%sf(j, 1, l))
8970 end do
8971 end do
8972 end do
8973
8974# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8975
8976# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8977#if defined(MFC_OpenACC)
8978# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8979!$acc end parallel loop
8980# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8981#elif defined(MFC_OpenMP)
8982# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8983
8984# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8985
8986# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8987!$omp end target teams loop
8988# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8989#endif
8990# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8991
8992
8993 end if
8994
8995
8996# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8997
8998# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
8999#if defined(MFC_OpenACC)
9000# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9001!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
9002# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9003#elif defined(MFC_OpenMP)
9004# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9005
9006# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9007
9008# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9009
9010# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9011!$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)
9012# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9013#endif
9014# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9015
9016 do l = 0, p
9017 do k = 1, n
9018 do j = 0, m
9019
9020# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9021#if defined(MFC_OpenACC)
9022# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9023!$acc loop seq
9024# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9025#elif defined(MFC_OpenMP)
9026# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9027
9028# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9029#endif
9030 do i = momxb, e_idx
9031 rhs_vf(i)%sf(j, k, l) = &
9032 rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)* &
9033 (flux_src_n_in(i)%sf(j, k - 1, l) &
9034 - flux_src_n_in(i)%sf(j, k, l))
9035 end do
9036 end do
9037 end do
9038 end do
9039
9040# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9041
9042# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9043#if defined(MFC_OpenACC)
9044# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9045!$acc end parallel loop
9046# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9047#elif defined(MFC_OpenMP)
9048# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9049
9050# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9051
9052# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9053!$omp end target teams loop
9054# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9055#endif
9056# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9057
9058
9059 else
9060
9061 if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
9062
9063# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9064
9065# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9066#if defined(MFC_OpenACC)
9067# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9068!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
9069# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9070#elif defined(MFC_OpenMP)
9071# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9072
9073# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9074
9075# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9076
9077# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9078!$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)
9079# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9080#endif
9081# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9082
9083 do l = 0, p
9084 do k = 0, n
9085 do j = 0, m
9086 if (surface_tension .or. viscous) then
9087
9088# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9089#if defined(MFC_OpenACC)
9090# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9091!$acc loop seq
9092# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9093#elif defined(MFC_OpenMP)
9094# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9095
9096# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9097#endif
9098 do i = momxb, e_idx
9099 rhs_vf(i)%sf(j, k, l) = &
9100 rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)* &
9101 (flux_src_n_in(i)%sf(j, k - 1, l) &
9102 - flux_src_n_in(i)%sf(j, k, l))
9103 end do
9104 end if
9105
9106 if (chem_params%diffusion) then
9107
9108# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9109#if defined(MFC_OpenACC)
9110# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9111!$acc loop seq
9112# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9113#elif defined(MFC_OpenMP)
9114# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9115
9116# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9117#endif
9118 do i = chemxb, chemxe
9119 rhs_vf(i)%sf(j, k, l) = &
9120 rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)* &
9121 (flux_src_n_in(i)%sf(j, k - 1, l) &
9122 - flux_src_n_in(i)%sf(j, k, l))
9123 end do
9124 if (.not. viscous) then
9125 rhs_vf(e_idx)%sf(j, k, l) = &
9126 rhs_vf(e_idx)%sf(j, k, l) + 1._wp/dy(k)* &
9127 (flux_src_n_in(e_idx)%sf(j, k - 1, l) &
9128 - flux_src_n_in(e_idx)%sf(j, k, l))
9129 end if
9130 end if
9131 end do
9132 end do
9133 end do
9134
9135# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9136
9137# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9138#if defined(MFC_OpenACC)
9139# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9140!$acc end parallel loop
9141# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9142#elif defined(MFC_OpenMP)
9143# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9144
9145# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9146
9147# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9148!$omp end target teams loop
9149# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9150#endif
9151# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9152
9153 end if
9154 end if
9155
9156 ! Applying the geometrical viscous Riemann source fluxes calculated as average
9157 ! of values at cell boundaries
9158 if (cyl_coord) then
9159 if ((bc_y%beg == -2) .or. (bc_y%beg == -14)) then
9160
9161
9162# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9163
9164# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9165#if defined(MFC_OpenACC)
9166# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9167!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
9168# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9169#elif defined(MFC_OpenMP)
9170# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9171
9172# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9173
9174# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9175
9176# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9177!$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)
9178# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9179#endif
9180# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9181
9182 do l = 0, p
9183 do k = 1, n
9184 do j = 0, m
9185
9186# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9187#if defined(MFC_OpenACC)
9188# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9189!$acc loop seq
9190# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9191#elif defined(MFC_OpenMP)
9192# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9193
9194# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9195#endif
9196 do i = momxb, e_idx
9197 rhs_vf(i)%sf(j, k, l) = &
9198 rhs_vf(i)%sf(j, k, l) - 5.e-1_wp/y_cc(k)* &
9199 (flux_src_n_in(i)%sf(j, k - 1, l) &
9200 + flux_src_n_in(i)%sf(j, k, l))
9201 end do
9202 end do
9203 end do
9204 end do
9205
9206# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9207
9208# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9209#if defined(MFC_OpenACC)
9210# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9211!$acc end parallel loop
9212# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9213#elif defined(MFC_OpenMP)
9214# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9215
9216# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9217
9218# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9219!$omp end target teams loop
9220# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9221#endif
9222# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9223
9224
9225 if (viscous .or. dummy) then
9226
9227# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9228
9229# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9230#if defined(MFC_OpenACC)
9231# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9232!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l)
9233# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9234#elif defined(MFC_OpenMP)
9235# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9236
9237# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9238
9239# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9240
9241# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9242!$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)
9243# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9244#endif
9245# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9246
9247 do l = 0, p
9248 do j = 0, m
9249
9250# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9251#if defined(MFC_OpenACC)
9252# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9253!$acc loop seq
9254# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9255#elif defined(MFC_OpenMP)
9256# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9257
9258# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9259#endif
9260 do i = momxb, e_idx
9261 rhs_vf(i)%sf(j, 0, l) = &
9262 rhs_vf(i)%sf(j, 0, l) - 1._wp/y_cc(0)* &
9263 tau_re_vf(i)%sf(j, 0, l)
9264 end do
9265 end do
9266 end do
9267
9268# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9269
9270# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9271#if defined(MFC_OpenACC)
9272# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9273!$acc end parallel loop
9274# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9275#elif defined(MFC_OpenMP)
9276# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9277
9278# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9279
9280# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9281!$omp end target teams loop
9282# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9283#endif
9284# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9285
9286 end if
9287 else
9288
9289
9290# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9291
9292# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9293#if defined(MFC_OpenACC)
9294# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9295!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
9296# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9297#elif defined(MFC_OpenMP)
9298# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9299
9300# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9301
9302# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9303
9304# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9305!$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)
9306# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9307#endif
9308# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9309
9310 do l = 0, p
9311 do k = 0, n
9312 do j = 0, m
9313
9314# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9315#if defined(MFC_OpenACC)
9316# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9317!$acc loop seq
9318# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9319#elif defined(MFC_OpenMP)
9320# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9321
9322# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9323#endif
9324 do i = momxb, e_idx
9325 rhs_vf(i)%sf(j, k, l) = &
9326 rhs_vf(i)%sf(j, k, l) - 5.e-1_wp/y_cc(k)* &
9327 (flux_src_n_in(i)%sf(j, k - 1, l) &
9328 + flux_src_n_in(i)%sf(j, k, l))
9329 end do
9330 end do
9331 end do
9332 end do
9333
9334# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9335
9336# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9337#if defined(MFC_OpenACC)
9338# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9339!$acc end parallel loop
9340# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9341#elif defined(MFC_OpenMP)
9342# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9343
9344# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9345
9346# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9347!$omp end target teams loop
9348# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9349#endif
9350# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9351
9352 end if
9353 end if
9354
9355 elseif (idir == 3) then ! z-direction
9356
9357 if (surface_tension) then
9358
9359# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9360
9361# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9362#if defined(MFC_OpenACC)
9363# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9364!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
9365# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9366#elif defined(MFC_OpenMP)
9367# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9368
9369# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9370
9371# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9372
9373# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9374!$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)
9375# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9376#endif
9377# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9378
9379 do l = 0, p
9380 do k = 0, n
9381 do j = 0, m
9382 rhs_vf(c_idx)%sf(j, k, l) = &
9383 rhs_vf(c_idx)%sf(j, k, l) + 1._wp/dz(l)* &
9384 q_prim_vf(c_idx)%sf(j, k, l)* &
9385 (flux_src_n_in(advxb)%sf(j, k, l) - &
9386 flux_src_n_in(advxb)%sf(j, k, l - 1))
9387 end do
9388 end do
9389 end do
9390
9391# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9392
9393# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9394#if defined(MFC_OpenACC)
9395# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9396!$acc end parallel loop
9397# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9398#elif defined(MFC_OpenMP)
9399# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9400
9401# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9402
9403# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9404!$omp end target teams loop
9405# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9406#endif
9407# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9408
9409 end if
9410
9411 if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
9412
9413# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9414
9415# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9416#if defined(MFC_OpenACC)
9417# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9418!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
9419# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9420#elif defined(MFC_OpenMP)
9421# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9422
9423# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9424
9425# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9426
9427# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9428!$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)
9429# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9430#endif
9431# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9432
9433 do l = 0, p
9434 do k = 0, n
9435 do j = 0, m
9436 if (surface_tension .or. viscous) then
9437
9438# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9439#if defined(MFC_OpenACC)
9440# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9441!$acc loop seq
9442# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9443#elif defined(MFC_OpenMP)
9444# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9445
9446# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9447#endif
9448 do i = momxb, e_idx
9449 rhs_vf(i)%sf(j, k, l) = &
9450 rhs_vf(i)%sf(j, k, l) + 1._wp/dz(l)* &
9451 (flux_src_n_in(i)%sf(j, k, l - 1) &
9452 - flux_src_n_in(i)%sf(j, k, l))
9453 end do
9454 end if
9455
9456 if (chem_params%diffusion) then
9457
9458# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9459#if defined(MFC_OpenACC)
9460# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9461!$acc loop seq
9462# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9463#elif defined(MFC_OpenMP)
9464# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9465
9466# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9467#endif
9468 do i = chemxb, chemxe
9469 rhs_vf(i)%sf(j, k, l) = &
9470 rhs_vf(i)%sf(j, k, l) + 1._wp/dz(l)* &
9471 (flux_src_n_in(i)%sf(j, k, l - 1) &
9472 - flux_src_n_in(i)%sf(j, k, l))
9473 end do
9474 if (.not. viscous) then
9475 rhs_vf(e_idx)%sf(j, k, l) = &
9476 rhs_vf(e_idx)%sf(j, k, l) + 1._wp/dz(l)* &
9477 (flux_src_n_in(e_idx)%sf(j, k, l - 1) &
9478 - flux_src_n_in(e_idx)%sf(j, k, l))
9479 end if
9480 end if
9481 end do
9482 end do
9483 end do
9484
9485# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9486
9487# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9488#if defined(MFC_OpenACC)
9489# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9490!$acc end parallel loop
9491# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9492#elif defined(MFC_OpenMP)
9493# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9494
9495# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9496
9497# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9498!$omp end target teams loop
9499# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9500#endif
9501# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9502
9503 end if
9504
9505 if (grid_geometry == 3) then
9506
9507# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9508
9509# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9510#if defined(MFC_OpenACC)
9511# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9512!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
9513# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9514#elif defined(MFC_OpenMP)
9515# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9516
9517# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9518
9519# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9520
9521# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9522!$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)
9523# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9524#endif
9525# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9526
9527 do l = 0, p
9528 do k = 0, n
9529 do j = 0, m
9530 rhs_vf(momxb + 1)%sf(j, k, l) = &
9531 rhs_vf(momxb + 1)%sf(j, k, l) + 5.e-1_wp* &
9532 (flux_src_n_in(momxe)%sf(j, k, l - 1) &
9533 + flux_src_n_in(momxe)%sf(j, k, l))
9534
9535 rhs_vf(momxe)%sf(j, k, l) = &
9536 rhs_vf(momxe)%sf(j, k, l) - 5.e-1_wp* &
9537 (flux_src_n_in(momxb + 1)%sf(j, k, l - 1) &
9538 + flux_src_n_in(momxb + 1)%sf(j, k, l))
9539 end do
9540 end do
9541 end do
9542
9543# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9544
9545# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9546#if defined(MFC_OpenACC)
9547# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9548!$acc end parallel loop
9549# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9550#elif defined(MFC_OpenMP)
9551# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9552
9553# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9554
9555# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9556!$omp end target teams loop
9557# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9558#endif
9559# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9560
9561 end if
9562 end if
9563
9564 end subroutine s_compute_additional_physics_rhs
9565
9566 !> The purpose of this subroutine is to WENO-reconstruct the
9567 !! left and the right cell-boundary values, including values
9568 !! at the Gaussian quadrature points, from the cell-averaged
9569 !! variables.
9570 !! @param v_vf Cell-average variables
9571 !! @param vL_x Left reconstructed cell-boundary values in x
9572 !! @param vL_y Left reconstructed cell-boundary values in y
9573 !! @param vL_z Left reconstructed cell-boundary values in z
9574 !! @param vR_x Right reconstructed cell-boundary values in x
9575 !! @param vR_y Right reconstructed cell-boundary values in y
9576 !! @param vR_z Right reconstructed cell-boundary values in z
9577 !! @param norm_dir Splitting coordinate direction
9578 subroutine s_reconstruct_cell_boundary_values(v_vf, vL_x, vL_y, vL_z, vR_x, vR_y, vR_z, &
9579 norm_dir)
9580
9581 type(scalar_field), dimension(iv%beg:iv%end), intent(in) :: v_vf
9582 real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) :: vL_x, vL_y, vL_z
9583 real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) :: vR_x, vR_y, vR_z
9584 integer, intent(in) :: norm_dir
9585
9586 integer :: recon_dir !< Coordinate direction of the reconstruction
9587
9588 integer :: i, j, k, l
9589
9590# 1889 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9591 if (recon_type == weno_type .or. dummy) then
9592 ! Reconstruction in s1-direction
9593 if (norm_dir == 1) then
9594 is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
9595 recon_dir = 1; is1%beg = is1%beg + weno_polyn
9596 is1%end = is1%end - weno_polyn
9597
9598 elseif (norm_dir == 2) then
9599 is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
9600 recon_dir = 2; is1%beg = is1%beg + weno_polyn
9601 is1%end = is1%end - weno_polyn
9602
9603 else
9604 is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
9605 recon_dir = 3; is1%beg = is1%beg + weno_polyn
9606 is1%end = is1%end - weno_polyn
9607 end if
9608
9609 if (n > 0) then
9610 if (p > 0) then
9611 call s_weno (v_vf(iv%beg:iv%end), &
9612 vl_x(:, :, :, iv%beg:iv%end), vl_y(:, :, :, iv%beg:iv%end), vl_z(:, :, :, iv%beg:iv%end), vr_x(:, :, :, iv%beg:iv%end), vr_y(:, :, :, iv%beg:iv%end), vr_z(:, :, :, iv%beg:iv%end), &
9613 recon_dir, &
9614 is1, is2, is3)
9615 else
9616 call s_weno (v_vf(iv%beg:iv%end), &
9617 vl_x(:, :, :, iv%beg:iv%end), vl_y(:, :, :, iv%beg:iv%end), vl_z(:, :, :, :), vr_x(:, :, :, iv%beg:iv%end), vr_y(:, :, :, iv%beg:iv%end), vr_z(:, :, :, :), &
9618 recon_dir, &
9619 is1, is2, is3)
9620 end if
9621 else
9622
9623 call s_weno (v_vf(iv%beg:iv%end), &
9624 vl_x(:, :, :, iv%beg:iv%end), vl_y(:, :, :, :), vl_z(:, :, :, :), vr_x(:, :, :, iv%beg:iv%end), vr_y(:, :, :, :), vr_z(:, :, :, :), &
9625 recon_dir, &
9626 is1, is2, is3)
9627 end if
9628 end if
9629# 1889 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9630 if (recon_type == muscl_type .or. dummy) then
9631 ! Reconstruction in s1-direction
9632 if (norm_dir == 1) then
9633 is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
9634 recon_dir = 1; is1%beg = is1%beg + muscl_polyn
9635 is1%end = is1%end - muscl_polyn
9636
9637 elseif (norm_dir == 2) then
9638 is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
9639 recon_dir = 2; is1%beg = is1%beg + muscl_polyn
9640 is1%end = is1%end - muscl_polyn
9641
9642 else
9643 is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
9644 recon_dir = 3; is1%beg = is1%beg + muscl_polyn
9645 is1%end = is1%end - muscl_polyn
9646 end if
9647
9648 if (n > 0) then
9649 if (p > 0) then
9650 call s_muscl (v_vf(iv%beg:iv%end), &
9651 vl_x(:, :, :, iv%beg:iv%end), vl_y(:, :, :, iv%beg:iv%end), vl_z(:, :, :, iv%beg:iv%end), vr_x(:, :, :, iv%beg:iv%end), vr_y(:, :, :, iv%beg:iv%end), vr_z(:, :, :, iv%beg:iv%end), &
9652 recon_dir, &
9653 is1, is2, is3)
9654 else
9655 call s_muscl (v_vf(iv%beg:iv%end), &
9656 vl_x(:, :, :, iv%beg:iv%end), vl_y(:, :, :, iv%beg:iv%end), vl_z(:, :, :, :), vr_x(:, :, :, iv%beg:iv%end), vr_y(:, :, :, iv%beg:iv%end), vr_z(:, :, :, :), &
9657 recon_dir, &
9658 is1, is2, is3)
9659 end if
9660 else
9661
9662 call s_muscl (v_vf(iv%beg:iv%end), &
9663 vl_x(:, :, :, iv%beg:iv%end), vl_y(:, :, :, :), vl_z(:, :, :, :), vr_x(:, :, :, iv%beg:iv%end), vr_y(:, :, :, :), vr_z(:, :, :, :), &
9664 recon_dir, &
9665 is1, is2, is3)
9666 end if
9667 end if
9668# 1928 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9669 end subroutine s_reconstruct_cell_boundary_values
9670
9671 !> @brief Performs first-order (piecewise constant) reconstruction of left and right cell-boundary values.
9672 subroutine s_reconstruct_cell_boundary_values_first_order(v_vf, vL_x, vL_y, vL_z, vR_x, vR_y, vR_z, &
9673 norm_dir)
9674
9675 type(scalar_field), dimension(iv%beg:iv%end), intent(in) :: v_vf
9676 real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) :: vL_x, vL_y, vL_z
9677 real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:), intent(inout) :: vR_x, vR_y, vR_z
9678 integer, intent(in) :: norm_dir
9679
9680 integer :: recon_dir !< Coordinate direction of the WENO reconstruction
9681
9682 integer :: i, j, k, l
9683 ! Reconstruction in s1-direction
9684
9685# 1945 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9686 if (recon_type == weno_type .or. dummy) then
9687 if (norm_dir == 1) then
9688 is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
9689 recon_dir = 1; is1%beg = is1%beg + weno_polyn
9690 is1%end = is1%end - weno_polyn
9691
9692 elseif (norm_dir == 2) then
9693 is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
9694 recon_dir = 2; is1%beg = is1%beg + weno_polyn
9695 is1%end = is1%end - weno_polyn
9696
9697 else
9698 is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
9699 recon_dir = 3; is1%beg = is1%beg + weno_polyn
9700 is1%end = is1%end - weno_polyn
9701
9702 end if
9703
9704
9705# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9706#if defined(MFC_OpenACC)
9707# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9708!$acc update device(is1, is2, is3, iv)
9709# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9710#elif defined(MFC_OpenMP)
9711# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9712!$omp target update to(is1, is2, is3, iv)
9713# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9714#endif
9715 end if
9716# 1945 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9717 if (recon_type == muscl_type .or. dummy) then
9718 if (norm_dir == 1) then
9719 is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
9720 recon_dir = 1; is1%beg = is1%beg + muscl_polyn
9721 is1%end = is1%end - muscl_polyn
9722
9723 elseif (norm_dir == 2) then
9724 is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
9725 recon_dir = 2; is1%beg = is1%beg + muscl_polyn
9726 is1%end = is1%end - muscl_polyn
9727
9728 else
9729 is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
9730 recon_dir = 3; is1%beg = is1%beg + muscl_polyn
9731 is1%end = is1%end - muscl_polyn
9732
9733 end if
9734
9735
9736# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9737#if defined(MFC_OpenACC)
9738# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9739!$acc update device(is1, is2, is3, iv)
9740# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9741#elif defined(MFC_OpenMP)
9742# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9743!$omp target update to(is1, is2, is3, iv)
9744# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9745#endif
9746 end if
9747# 1966 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9748
9749 if (recon_dir == 1) then
9750
9751# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9752
9753# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9754#if defined(MFC_OpenACC)
9755# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9756!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
9757# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9758#elif defined(MFC_OpenMP)
9759# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9760
9761# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9762
9763# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9764
9765# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9766!$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)
9767# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9768#endif
9769# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9770
9771 do i = iv%beg, iv%end
9772 do l = is3%beg, is3%end
9773 do k = is2%beg, is2%end
9774 do j = is1%beg, is1%end
9775 vl_x(j, k, l, i) = v_vf(i)%sf(j, k, l)
9776 vr_x(j, k, l, i) = v_vf(i)%sf(j, k, l)
9777 end do
9778 end do
9779 end do
9780 end do
9781
9782# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9783
9784# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9785#if defined(MFC_OpenACC)
9786# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9787!$acc end parallel loop
9788# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9789#elif defined(MFC_OpenMP)
9790# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9791
9792# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9793
9794# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9795!$omp end target teams loop
9796# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9797#endif
9798# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9799
9800 else if (recon_dir == 2) then
9801
9802# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9803
9804# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9805#if defined(MFC_OpenACC)
9806# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9807!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
9808# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9809#elif defined(MFC_OpenMP)
9810# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9811
9812# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9813
9814# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9815
9816# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9817!$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)
9818# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9819#endif
9820# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9821
9822 do i = iv%beg, iv%end
9823 do l = is3%beg, is3%end
9824 do k = is2%beg, is2%end
9825 do j = is1%beg, is1%end
9826 vl_y(j, k, l, i) = v_vf(i)%sf(k, j, l)
9827 vr_y(j, k, l, i) = v_vf(i)%sf(k, j, l)
9828 end do
9829 end do
9830 end do
9831 end do
9832
9833# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9834
9835# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9836#if defined(MFC_OpenACC)
9837# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9838!$acc end parallel loop
9839# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9840#elif defined(MFC_OpenMP)
9841# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9842
9843# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9844
9845# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9846!$omp end target teams loop
9847# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9848#endif
9849# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9850
9851 else if (recon_dir == 3) then
9852
9853# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9854
9855# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9856#if defined(MFC_OpenACC)
9857# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9858!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
9859# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9860#elif defined(MFC_OpenMP)
9861# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9862
9863# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9864
9865# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9866
9867# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9868!$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)
9869# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9870#endif
9871# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9872
9873 do i = iv%beg, iv%end
9874 do l = is3%beg, is3%end
9875 do k = is2%beg, is2%end
9876 do j = is1%beg, is1%end
9877 vl_z(j, k, l, i) = v_vf(i)%sf(l, k, j)
9878 vr_z(j, k, l, i) = v_vf(i)%sf(l, k, j)
9879 end do
9880 end do
9881 end do
9882 end do
9883
9884# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9885
9886# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9887#if defined(MFC_OpenACC)
9888# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9889!$acc end parallel loop
9890# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9891#elif defined(MFC_OpenMP)
9892# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9893
9894# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9895
9896# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9897!$omp end target teams loop
9898# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9899#endif
9900# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9901
9902 end if
9903
9904 end subroutine s_reconstruct_cell_boundary_values_first_order
9905
9906 !> Module deallocation and/or disassociation procedures
9907 impure subroutine s_finalize_rhs_module
9908
9909 integer :: i, j, l
9910
9911 call s_finalize_pressure_relaxation_module
9912
9913 if (.not. igr) then
9914 do j = cont_idx%beg, cont_idx%end
9915 if (relativity) then
9916 ! Cons and Prim densities are different for relativity
9917#ifdef MFC_DEBUG
9918# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9919 block
9920# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9921 use iso_fortran_env, only: output_unit
9922# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9923
9924# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9925 print *, 'm_rhs.fpp:2021: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
9926# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9927
9928# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9929 call flush (output_unit)
9930# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9931 end block
9932# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9933#endif
9934# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9935
9936# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9937#if defined(MFC_OpenACC)
9938# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9939!$acc exit data delete(q_cons_qp%vf(j)%sf)
9940# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9941#elif defined(MFC_OpenMP)
9942# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9943!$omp target exit data map(release:q_cons_qp%vf(j)%sf)
9944# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9945#endif
9946# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9947 deallocate (q_cons_qp%vf(j)%sf)
9948#ifdef MFC_DEBUG
9949# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9950 block
9951# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9952 use iso_fortran_env, only: output_unit
9953# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9954
9955# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9956 print *, 'm_rhs.fpp:2022: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
9957# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9958
9959# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9960 call flush (output_unit)
9961# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9962 end block
9963# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9964#endif
9965# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9966
9967# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9968#if defined(MFC_OpenACC)
9969# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9970!$acc exit data delete(q_prim_qp%vf(j)%sf)
9971# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9972#elif defined(MFC_OpenMP)
9973# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9974!$omp target exit data map(release:q_prim_qp%vf(j)%sf)
9975# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9976#endif
9977# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9978 deallocate (q_prim_qp%vf(j)%sf)
9979 else
9980 nullify (q_prim_qp%vf(j)%sf)
9981 end if
9982 end do
9983
9984 do j = adv_idx%beg, adv_idx%end
9985 nullify (q_prim_qp%vf(j)%sf)
9986 end do
9987
9988 do j = mom_idx%beg, e_idx
9989#ifdef MFC_DEBUG
9990# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9991 block
9992# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9993 use iso_fortran_env, only: output_unit
9994# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9995
9996# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9997 print *, 'm_rhs.fpp:2033: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
9998# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
9999
10000# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10001 call flush (output_unit)
10002# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10003 end block
10004# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10005#endif
10006# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10007
10008# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10009#if defined(MFC_OpenACC)
10010# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10011!$acc exit data delete(q_cons_qp%vf(j)%sf)
10012# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10013#elif defined(MFC_OpenMP)
10014# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10015!$omp target exit data map(release:q_cons_qp%vf(j)%sf)
10016# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10017#endif
10018# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10019 deallocate (q_cons_qp%vf(j)%sf)
10020#ifdef MFC_DEBUG
10021# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10022 block
10023# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10024 use iso_fortran_env, only: output_unit
10025# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10026
10027# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10028 print *, 'm_rhs.fpp:2034: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
10029# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10030
10031# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10032 call flush (output_unit)
10033# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10034 end block
10035# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10036#endif
10037# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10038
10039# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10040#if defined(MFC_OpenACC)
10041# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10042!$acc exit data delete(q_prim_qp%vf(j)%sf)
10043# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10044#elif defined(MFC_OpenMP)
10045# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10046!$omp target exit data map(release:q_prim_qp%vf(j)%sf)
10047# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10048#endif
10049# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10050 deallocate (q_prim_qp%vf(j)%sf)
10051 end do
10052 end if
10053
10054#ifdef MFC_DEBUG
10055# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10056 block
10057# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10058 use iso_fortran_env, only: output_unit
10059# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10060
10061# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10062 print *, 'm_rhs.fpp:2038: ', '@:DEALLOCATE(q_cons_qp%vf, q_prim_qp%vf)'
10063# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10064
10065# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10066 call flush (output_unit)
10067# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10068 end block
10069# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10070#endif
10071# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10072
10073# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10074#if defined(MFC_OpenACC)
10075# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10076!$acc exit data delete(q_cons_qp%vf, q_prim_qp%vf)
10077# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10078#elif defined(MFC_OpenMP)
10079# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10080!$omp target exit data map(release:q_cons_qp%vf, q_prim_qp%vf)
10081# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10082#endif
10083# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10084 deallocate (q_cons_qp%vf, q_prim_qp%vf)
10085
10086 if (.not. igr) then
10087#ifdef MFC_DEBUG
10088# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10089 block
10090# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10091 use iso_fortran_env, only: output_unit
10092# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10093
10094# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10095 print *, 'm_rhs.fpp:2041: ', '@:DEALLOCATE(qL_rsx_vf, qR_rsx_vf)'
10096# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10097
10098# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10099 call flush (output_unit)
10100# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10101 end block
10102# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10103#endif
10104# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10105
10106# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10107#if defined(MFC_OpenACC)
10108# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10109!$acc exit data delete(qL_rsx_vf, qR_rsx_vf)
10110# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10111#elif defined(MFC_OpenMP)
10112# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10113!$omp target exit data map(release:qL_rsx_vf, qR_rsx_vf)
10114# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10115#endif
10116# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10117 deallocate (ql_rsx_vf, qr_rsx_vf)
10118
10119 if (n > 0) then
10120#ifdef MFC_DEBUG
10121# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10122 block
10123# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10124 use iso_fortran_env, only: output_unit
10125# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10126
10127# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10128 print *, 'm_rhs.fpp:2044: ', '@:DEALLOCATE(qL_rsy_vf, qR_rsy_vf)'
10129# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10130
10131# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10132 call flush (output_unit)
10133# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10134 end block
10135# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10136#endif
10137# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10138
10139# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10140#if defined(MFC_OpenACC)
10141# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10142!$acc exit data delete(qL_rsy_vf, qR_rsy_vf)
10143# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10144#elif defined(MFC_OpenMP)
10145# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10146!$omp target exit data map(release:qL_rsy_vf, qR_rsy_vf)
10147# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10148#endif
10149# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10150 deallocate (ql_rsy_vf, qr_rsy_vf)
10151 end if
10152
10153 if (p > 0) then
10154#ifdef MFC_DEBUG
10155# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10156 block
10157# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10158 use iso_fortran_env, only: output_unit
10159# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10160
10161# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10162 print *, 'm_rhs.fpp:2048: ', '@:DEALLOCATE(qL_rsz_vf, qR_rsz_vf)'
10163# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10164
10165# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10166 call flush (output_unit)
10167# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10168 end block
10169# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10170#endif
10171# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10172
10173# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10174#if defined(MFC_OpenACC)
10175# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10176!$acc exit data delete(qL_rsz_vf, qR_rsz_vf)
10177# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10178#elif defined(MFC_OpenMP)
10179# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10180!$omp target exit data map(release:qL_rsz_vf, qR_rsz_vf)
10181# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10182#endif
10183# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10184 deallocate (ql_rsz_vf, qr_rsz_vf)
10185 end if
10186
10187 if (viscous) then
10188 do l = mom_idx%beg, mom_idx%end
10189#ifdef MFC_DEBUG
10190# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10191 block
10192# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10193 use iso_fortran_env, only: output_unit
10194# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10195
10196# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10197 print *, 'm_rhs.fpp:2053: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf)'
10198# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10199
10200# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10201 call flush (output_unit)
10202# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10203 end block
10204# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10205#endif
10206# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10207
10208# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10209#if defined(MFC_OpenACC)
10210# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10211!$acc exit data delete(dq_prim_dx_qp(1)%vf(l)%sf)
10212# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10213#elif defined(MFC_OpenMP)
10214# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10215!$omp target exit data map(release:dq_prim_dx_qp(1)%vf(l)%sf)
10216# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10217#endif
10218# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10219 deallocate (dq_prim_dx_qp(1)%vf(l)%sf)
10220 end do
10221
10222 if (n > 0) then
10223
10224 do l = mom_idx%beg, mom_idx%end
10225#ifdef MFC_DEBUG
10226# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10227 block
10228# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10229 use iso_fortran_env, only: output_unit
10230# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10231
10232# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10233 print *, 'm_rhs.fpp:2059: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf)'
10234# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10235
10236# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10237 call flush (output_unit)
10238# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10239 end block
10240# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10241#endif
10242# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10243
10244# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10245#if defined(MFC_OpenACC)
10246# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10247!$acc exit data delete(dq_prim_dy_qp(1)%vf(l)%sf)
10248# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10249#elif defined(MFC_OpenMP)
10250# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10251!$omp target exit data map(release:dq_prim_dy_qp(1)%vf(l)%sf)
10252# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10253#endif
10254# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10255 deallocate (dq_prim_dy_qp(1)%vf(l)%sf)
10256 end do
10257
10258 if (p > 0) then
10259 do l = mom_idx%beg, mom_idx%end
10260#ifdef MFC_DEBUG
10261# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10262 block
10263# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10264 use iso_fortran_env, only: output_unit
10265# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10266
10267# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10268 print *, 'm_rhs.fpp:2064: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf)'
10269# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10270
10271# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10272 call flush (output_unit)
10273# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10274 end block
10275# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10276#endif
10277# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10278
10279# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10280#if defined(MFC_OpenACC)
10281# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10282!$acc exit data delete(dq_prim_dz_qp(1)%vf(l)%sf)
10283# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10284#elif defined(MFC_OpenMP)
10285# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10286!$omp target exit data map(release:dq_prim_dz_qp(1)%vf(l)%sf)
10287# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10288#endif
10289# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10290 deallocate (dq_prim_dz_qp(1)%vf(l)%sf)
10291 end do
10292 end if
10293
10294 end if
10295
10296#ifdef MFC_DEBUG
10297# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10298 block
10299# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10300 use iso_fortran_env, only: output_unit
10301# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10302
10303# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10304 print *, 'm_rhs.fpp:2070: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf)'
10305# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10306
10307# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10308 call flush (output_unit)
10309# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10310 end block
10311# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10312#endif
10313# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10314
10315# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10316#if defined(MFC_OpenACC)
10317# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10318!$acc exit data delete(dq_prim_dx_qp(1)%vf)
10319# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10320#elif defined(MFC_OpenMP)
10321# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10322!$omp target exit data map(release:dq_prim_dx_qp(1)%vf)
10323# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10324#endif
10325# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10326 deallocate (dq_prim_dx_qp(1)%vf)
10327#ifdef MFC_DEBUG
10328# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10329 block
10330# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10331 use iso_fortran_env, only: output_unit
10332# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10333
10334# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10335 print *, 'm_rhs.fpp:2071: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf)'
10336# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10337
10338# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10339 call flush (output_unit)
10340# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10341 end block
10342# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10343#endif
10344# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10345
10346# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10347#if defined(MFC_OpenACC)
10348# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10349!$acc exit data delete(dq_prim_dy_qp(1)%vf)
10350# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10351#elif defined(MFC_OpenMP)
10352# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10353!$omp target exit data map(release:dq_prim_dy_qp(1)%vf)
10354# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10355#endif
10356# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10357 deallocate (dq_prim_dy_qp(1)%vf)
10358#ifdef MFC_DEBUG
10359# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10360 block
10361# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10362 use iso_fortran_env, only: output_unit
10363# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10364
10365# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10366 print *, 'm_rhs.fpp:2072: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf)'
10367# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10368
10369# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10370 call flush (output_unit)
10371# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10372 end block
10373# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10374#endif
10375# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10376
10377# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10378#if defined(MFC_OpenACC)
10379# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10380!$acc exit data delete(dq_prim_dz_qp(1)%vf)
10381# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10382#elif defined(MFC_OpenMP)
10383# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10384!$omp target exit data map(release:dq_prim_dz_qp(1)%vf)
10385# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10386#endif
10387# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10388 deallocate (dq_prim_dz_qp(1)%vf)
10389
10390 do i = num_dims, 1, -1
10391
10392 do l = mom_idx%beg, mom_idx%end
10393#ifdef MFC_DEBUG
10394# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10395 block
10396# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10397 use iso_fortran_env, only: output_unit
10398# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10399
10400# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10401 print *, 'm_rhs.fpp:2077: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf)'
10402# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10403
10404# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10405 call flush (output_unit)
10406# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10407 end block
10408# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10409#endif
10410# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10411
10412# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10413#if defined(MFC_OpenACC)
10414# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10415!$acc exit data delete(dqL_prim_dx_n(i)%vf(l)%sf)
10416# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10417#elif defined(MFC_OpenMP)
10418# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10419!$omp target exit data map(release:dqL_prim_dx_n(i)%vf(l)%sf)
10420# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10421#endif
10422# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10423 deallocate (dql_prim_dx_n(i)%vf(l)%sf)
10424#ifdef MFC_DEBUG
10425# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10426 block
10427# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10428 use iso_fortran_env, only: output_unit
10429# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10430
10431# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10432 print *, 'm_rhs.fpp:2078: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf)'
10433# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10434
10435# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10436 call flush (output_unit)
10437# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10438 end block
10439# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10440#endif
10441# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10442
10443# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10444#if defined(MFC_OpenACC)
10445# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10446!$acc exit data delete(dqR_prim_dx_n(i)%vf(l)%sf)
10447# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10448#elif defined(MFC_OpenMP)
10449# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10450!$omp target exit data map(release:dqR_prim_dx_n(i)%vf(l)%sf)
10451# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10452#endif
10453# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10454 deallocate (dqr_prim_dx_n(i)%vf(l)%sf)
10455 end do
10456
10457 if (n > 0) then
10458 do l = mom_idx%beg, mom_idx%end
10459#ifdef MFC_DEBUG
10460# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10461 block
10462# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10463 use iso_fortran_env, only: output_unit
10464# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10465
10466# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10467 print *, 'm_rhs.fpp:2083: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf)'
10468# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10469
10470# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10471 call flush (output_unit)
10472# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10473 end block
10474# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10475#endif
10476# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10477
10478# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10479#if defined(MFC_OpenACC)
10480# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10481!$acc exit data delete(dqL_prim_dy_n(i)%vf(l)%sf)
10482# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10483#elif defined(MFC_OpenMP)
10484# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10485!$omp target exit data map(release:dqL_prim_dy_n(i)%vf(l)%sf)
10486# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10487#endif
10488# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10489 deallocate (dql_prim_dy_n(i)%vf(l)%sf)
10490#ifdef MFC_DEBUG
10491# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10492 block
10493# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10494 use iso_fortran_env, only: output_unit
10495# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10496
10497# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10498 print *, 'm_rhs.fpp:2084: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf)'
10499# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10500
10501# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10502 call flush (output_unit)
10503# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10504 end block
10505# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10506#endif
10507# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10508
10509# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10510#if defined(MFC_OpenACC)
10511# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10512!$acc exit data delete(dqR_prim_dy_n(i)%vf(l)%sf)
10513# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10514#elif defined(MFC_OpenMP)
10515# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10516!$omp target exit data map(release:dqR_prim_dy_n(i)%vf(l)%sf)
10517# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10518#endif
10519# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10520 deallocate (dqr_prim_dy_n(i)%vf(l)%sf)
10521 end do
10522 end if
10523
10524 if (p > 0) then
10525 do l = mom_idx%beg, mom_idx%end
10526#ifdef MFC_DEBUG
10527# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10528 block
10529# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10530 use iso_fortran_env, only: output_unit
10531# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10532
10533# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10534 print *, 'm_rhs.fpp:2090: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf)'
10535# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10536
10537# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10538 call flush (output_unit)
10539# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10540 end block
10541# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10542#endif
10543# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10544
10545# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10546#if defined(MFC_OpenACC)
10547# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10548!$acc exit data delete(dqL_prim_dz_n(i)%vf(l)%sf)
10549# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10550#elif defined(MFC_OpenMP)
10551# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10552!$omp target exit data map(release:dqL_prim_dz_n(i)%vf(l)%sf)
10553# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10554#endif
10555# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10556 deallocate (dql_prim_dz_n(i)%vf(l)%sf)
10557#ifdef MFC_DEBUG
10558# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10559 block
10560# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10561 use iso_fortran_env, only: output_unit
10562# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10563
10564# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10565 print *, 'm_rhs.fpp:2091: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf)'
10566# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10567
10568# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10569 call flush (output_unit)
10570# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10571 end block
10572# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10573#endif
10574# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10575
10576# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10577#if defined(MFC_OpenACC)
10578# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10579!$acc exit data delete(dqR_prim_dz_n(i)%vf(l)%sf)
10580# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10581#elif defined(MFC_OpenMP)
10582# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10583!$omp target exit data map(release:dqR_prim_dz_n(i)%vf(l)%sf)
10584# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10585#endif
10586# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10587 deallocate (dqr_prim_dz_n(i)%vf(l)%sf)
10588 end do
10589 end if
10590
10591#ifdef MFC_DEBUG
10592# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10593 block
10594# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10595 use iso_fortran_env, only: output_unit
10596# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10597
10598# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10599 print *, 'm_rhs.fpp:2095: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf)'
10600# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10601
10602# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10603 call flush (output_unit)
10604# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10605 end block
10606# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10607#endif
10608# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10609
10610# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10611#if defined(MFC_OpenACC)
10612# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10613!$acc exit data delete(dqL_prim_dx_n(i)%vf)
10614# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10615#elif defined(MFC_OpenMP)
10616# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10617!$omp target exit data map(release:dqL_prim_dx_n(i)%vf)
10618# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10619#endif
10620# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10621 deallocate (dql_prim_dx_n(i)%vf)
10622#ifdef MFC_DEBUG
10623# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10624 block
10625# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10626 use iso_fortran_env, only: output_unit
10627# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10628
10629# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10630 print *, 'm_rhs.fpp:2096: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf)'
10631# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10632
10633# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10634 call flush (output_unit)
10635# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10636 end block
10637# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10638#endif
10639# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10640
10641# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10642#if defined(MFC_OpenACC)
10643# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10644!$acc exit data delete(dqL_prim_dy_n(i)%vf)
10645# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10646#elif defined(MFC_OpenMP)
10647# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10648!$omp target exit data map(release:dqL_prim_dy_n(i)%vf)
10649# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10650#endif
10651# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10652 deallocate (dql_prim_dy_n(i)%vf)
10653#ifdef MFC_DEBUG
10654# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10655 block
10656# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10657 use iso_fortran_env, only: output_unit
10658# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10659
10660# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10661 print *, 'm_rhs.fpp:2097: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf)'
10662# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10663
10664# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10665 call flush (output_unit)
10666# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10667 end block
10668# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10669#endif
10670# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10671
10672# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10673#if defined(MFC_OpenACC)
10674# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10675!$acc exit data delete(dqL_prim_dz_n(i)%vf)
10676# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10677#elif defined(MFC_OpenMP)
10678# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10679!$omp target exit data map(release:dqL_prim_dz_n(i)%vf)
10680# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10681#endif
10682# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10683 deallocate (dql_prim_dz_n(i)%vf)
10684#ifdef MFC_DEBUG
10685# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10686 block
10687# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10688 use iso_fortran_env, only: output_unit
10689# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10690
10691# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10692 print *, 'm_rhs.fpp:2098: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf)'
10693# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10694
10695# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10696 call flush (output_unit)
10697# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10698 end block
10699# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10700#endif
10701# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10702
10703# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10704#if defined(MFC_OpenACC)
10705# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10706!$acc exit data delete(dqR_prim_dx_n(i)%vf)
10707# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10708#elif defined(MFC_OpenMP)
10709# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10710!$omp target exit data map(release:dqR_prim_dx_n(i)%vf)
10711# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10712#endif
10713# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10714 deallocate (dqr_prim_dx_n(i)%vf)
10715#ifdef MFC_DEBUG
10716# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10717 block
10718# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10719 use iso_fortran_env, only: output_unit
10720# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10721
10722# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10723 print *, 'm_rhs.fpp:2099: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf)'
10724# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10725
10726# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10727 call flush (output_unit)
10728# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10729 end block
10730# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10731#endif
10732# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10733
10734# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10735#if defined(MFC_OpenACC)
10736# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10737!$acc exit data delete(dqR_prim_dy_n(i)%vf)
10738# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10739#elif defined(MFC_OpenMP)
10740# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10741!$omp target exit data map(release:dqR_prim_dy_n(i)%vf)
10742# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10743#endif
10744# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10745 deallocate (dqr_prim_dy_n(i)%vf)
10746#ifdef MFC_DEBUG
10747# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10748 block
10749# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10750 use iso_fortran_env, only: output_unit
10751# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10752
10753# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10754 print *, 'm_rhs.fpp:2100: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf)'
10755# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10756
10757# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10758 call flush (output_unit)
10759# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10760 end block
10761# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10762#endif
10763# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10764
10765# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10766#if defined(MFC_OpenACC)
10767# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10768!$acc exit data delete(dqR_prim_dz_n(i)%vf)
10769# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10770#elif defined(MFC_OpenMP)
10771# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10772!$omp target exit data map(release:dqR_prim_dz_n(i)%vf)
10773# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10774#endif
10775# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10776 deallocate (dqr_prim_dz_n(i)%vf)
10777 end do
10778
10779 if (weno_re_flux) then
10780#ifdef MFC_DEBUG
10781# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10782 block
10783# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10784 use iso_fortran_env, only: output_unit
10785# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10786
10787# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10788 print *, 'm_rhs.fpp:2104: ', '@:DEALLOCATE(dqL_rsx_vf, dqR_rsx_vf)'
10789# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10790
10791# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10792 call flush (output_unit)
10793# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10794 end block
10795# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10796#endif
10797# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10798
10799# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10800#if defined(MFC_OpenACC)
10801# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10802!$acc exit data delete(dqL_rsx_vf, dqR_rsx_vf)
10803# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10804#elif defined(MFC_OpenMP)
10805# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10806!$omp target exit data map(release:dqL_rsx_vf, dqR_rsx_vf)
10807# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10808#endif
10809# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10810 deallocate (dql_rsx_vf, dqr_rsx_vf)
10811
10812 if (n > 0) then
10813#ifdef MFC_DEBUG
10814# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10815 block
10816# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10817 use iso_fortran_env, only: output_unit
10818# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10819
10820# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10821 print *, 'm_rhs.fpp:2107: ', '@:DEALLOCATE(dqL_rsy_vf, dqR_rsy_vf)'
10822# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10823
10824# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10825 call flush (output_unit)
10826# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10827 end block
10828# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10829#endif
10830# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10831
10832# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10833#if defined(MFC_OpenACC)
10834# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10835!$acc exit data delete(dqL_rsy_vf, dqR_rsy_vf)
10836# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10837#elif defined(MFC_OpenMP)
10838# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10839!$omp target exit data map(release:dqL_rsy_vf, dqR_rsy_vf)
10840# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10841#endif
10842# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10843 deallocate (dql_rsy_vf, dqr_rsy_vf)
10844 end if
10845
10846 if (p > 0) then
10847#ifdef MFC_DEBUG
10848# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10849 block
10850# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10851 use iso_fortran_env, only: output_unit
10852# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10853
10854# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10855 print *, 'm_rhs.fpp:2111: ', '@:DEALLOCATE(dqL_rsz_vf, dqR_rsz_vf)'
10856# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10857
10858# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10859 call flush (output_unit)
10860# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10861 end block
10862# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10863#endif
10864# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10865
10866# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10867#if defined(MFC_OpenACC)
10868# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10869!$acc exit data delete(dqL_rsz_vf, dqR_rsz_vf)
10870# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10871#elif defined(MFC_OpenMP)
10872# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10873!$omp target exit data map(release:dqL_rsz_vf, dqR_rsz_vf)
10874# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10875#endif
10876# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10877 deallocate (dql_rsz_vf, dqr_rsz_vf)
10878 end if
10879 end if
10880
10881 if (cyl_coord) then
10882 do i = 1, num_dims
10883#ifdef MFC_DEBUG
10884# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10885 block
10886# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10887 use iso_fortran_env, only: output_unit
10888# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10889
10890# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10891 print *, 'm_rhs.fpp:2117: ', '@:DEALLOCATE(tau_re_vf(cont_idx%end + i)%sf)'
10892# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10893
10894# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10895 call flush (output_unit)
10896# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10897 end block
10898# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10899#endif
10900# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10901
10902# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10903#if defined(MFC_OpenACC)
10904# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10905!$acc exit data delete(tau_re_vf(cont_idx%end + i)%sf)
10906# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10907#elif defined(MFC_OpenMP)
10908# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10909!$omp target exit data map(release:tau_re_vf(cont_idx%end + i)%sf)
10910# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10911#endif
10912# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10913 deallocate (tau_re_vf(cont_idx%end + i)%sf)
10914 end do
10915#ifdef MFC_DEBUG
10916# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10917 block
10918# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10919 use iso_fortran_env, only: output_unit
10920# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10921
10922# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10923 print *, 'm_rhs.fpp:2119: ', '@:DEALLOCATE(tau_re_vf(e_idx)%sf)'
10924# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10925
10926# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10927 call flush (output_unit)
10928# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10929 end block
10930# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10931#endif
10932# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10933
10934# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10935#if defined(MFC_OpenACC)
10936# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10937!$acc exit data delete(tau_re_vf(e_idx)%sf)
10938# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10939#elif defined(MFC_OpenMP)
10940# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10941!$omp target exit data map(release:tau_re_vf(e_idx)%sf)
10942# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10943#endif
10944# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10945 deallocate (tau_re_vf(e_idx)%sf)
10946#ifdef MFC_DEBUG
10947# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10948 block
10949# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10950 use iso_fortran_env, only: output_unit
10951# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10952
10953# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10954 print *, 'm_rhs.fpp:2120: ', '@:DEALLOCATE(tau_re_vf)'
10955# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10956
10957# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10958 call flush (output_unit)
10959# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10960 end block
10961# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10962#endif
10963# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10964
10965# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10966#if defined(MFC_OpenACC)
10967# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10968!$acc exit data delete(tau_re_vf)
10969# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10970#elif defined(MFC_OpenMP)
10971# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10972!$omp target exit data map(release:tau_re_vf)
10973# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10974#endif
10975# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10976 deallocate (tau_re_vf)
10977 end if
10978 end if
10979#ifdef MFC_DEBUG
10980# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10981 block
10982# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10983 use iso_fortran_env, only: output_unit
10984# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10985
10986# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10987 print *, 'm_rhs.fpp:2123: ', '@:DEALLOCATE(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)'
10988# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10989
10990# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10991 call flush (output_unit)
10992# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10993 end block
10994# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10995#endif
10996# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10997
10998# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
10999#if defined(MFC_OpenACC)
11000# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11001!$acc exit data delete(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
11002# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11003#elif defined(MFC_OpenMP)
11004# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11005!$omp target exit data map(release:dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)
11006# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11007#endif
11008# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11009 deallocate (dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n)
11010#ifdef MFC_DEBUG
11011# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11012 block
11013# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11014 use iso_fortran_env, only: output_unit
11015# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11016
11017# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11018 print *, 'm_rhs.fpp:2124: ', '@:DEALLOCATE(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)'
11019# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11020
11021# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11022 call flush (output_unit)
11023# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11024 end block
11025# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11026#endif
11027# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11028
11029# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11030#if defined(MFC_OpenACC)
11031# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11032!$acc exit data delete(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)
11033# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11034#elif defined(MFC_OpenMP)
11035# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11036!$omp target exit data map(release:dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)
11037# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11038#endif
11039# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11040 deallocate (dqr_prim_dx_n, dqr_prim_dy_n, dqr_prim_dz_n)
11041 end if
11042
11043 if (mpp_lim .and. bubbles_euler) then
11044
11045# 2128 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11046#if defined(MFC_OpenACC)
11047# 2128 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11048!$acc exit data delete(alf_sum%sf)
11049# 2128 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11050#elif defined(MFC_OpenMP)
11051# 2128 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11052!$omp target exit data map(release:alf_sum%sf)
11053# 2128 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11054#endif
11055 deallocate (alf_sum%sf)
11056 end if
11057
11058 if (.not. igr) then
11059 do i = num_dims, 1, -1
11060 if (i /= 1) then
11061 do l = 1, sys_size
11062 nullify (flux_n(i)%vf(l)%sf)
11063 nullify (flux_src_n(i)%vf(l)%sf)
11064#ifdef MFC_DEBUG
11065# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11066 block
11067# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11068 use iso_fortran_env, only: output_unit
11069# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11070
11071# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11072 print *, 'm_rhs.fpp:2138: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
11073# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11074
11075# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11076 call flush (output_unit)
11077# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11078 end block
11079# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11080#endif
11081# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11082
11083# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11084#if defined(MFC_OpenACC)
11085# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11086!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf)
11087# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11088#elif defined(MFC_OpenMP)
11089# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11090!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf)
11091# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11092#endif
11093# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11094 deallocate (flux_gsrc_n(i)%vf(l)%sf)
11095 end do
11096 else
11097 do l = 1, sys_size
11098#ifdef MFC_DEBUG
11099# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11100 block
11101# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11102 use iso_fortran_env, only: output_unit
11103# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11104
11105# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11106 print *, 'm_rhs.fpp:2142: ', '@:DEALLOCATE(flux_n(i)%vf(l)%sf)'
11107# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11108
11109# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11110 call flush (output_unit)
11111# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11112 end block
11113# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11114#endif
11115# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11116
11117# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11118#if defined(MFC_OpenACC)
11119# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11120!$acc exit data delete(flux_n(i)%vf(l)%sf)
11121# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11122#elif defined(MFC_OpenMP)
11123# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11124!$omp target exit data map(release:flux_n(i)%vf(l)%sf)
11125# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11126#endif
11127# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11128 deallocate (flux_n(i)%vf(l)%sf)
11129#ifdef MFC_DEBUG
11130# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11131 block
11132# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11133 use iso_fortran_env, only: output_unit
11134# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11135
11136# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11137 print *, 'm_rhs.fpp:2143: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
11138# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11139
11140# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11141 call flush (output_unit)
11142# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11143 end block
11144# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11145#endif
11146# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11147
11148# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11149#if defined(MFC_OpenACC)
11150# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11151!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf)
11152# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11153#elif defined(MFC_OpenMP)
11154# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11155!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf)
11156# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11157#endif
11158# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11159 deallocate (flux_gsrc_n(i)%vf(l)%sf)
11160 end do
11161
11162 if (viscous) then
11163 do l = mom_idx%beg, e_idx
11164#ifdef MFC_DEBUG
11165# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11166 block
11167# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11168 use iso_fortran_env, only: output_unit
11169# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11170
11171# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11172 print *, 'm_rhs.fpp:2148: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
11173# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11174
11175# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11176 call flush (output_unit)
11177# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11178 end block
11179# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11180#endif
11181# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11182
11183# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11184#if defined(MFC_OpenACC)
11185# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11186!$acc exit data delete(flux_src_n(i)%vf(l)%sf)
11187# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11188#elif defined(MFC_OpenMP)
11189# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11190!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf)
11191# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11192#endif
11193# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11194 deallocate (flux_src_n(i)%vf(l)%sf)
11195 end do
11196 end if
11197
11198 if (chem_params%diffusion .and. .not. viscous) then
11199#ifdef MFC_DEBUG
11200# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11201 block
11202# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11203 use iso_fortran_env, only: output_unit
11204# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11205
11206# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11207 print *, 'm_rhs.fpp:2153: ', '@:DEALLOCATE(flux_src_n(i)%vf(E_idx)%sf)'
11208# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11209
11210# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11211 call flush (output_unit)
11212# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11213 end block
11214# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11215#endif
11216# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11217
11218# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11219#if defined(MFC_OpenACC)
11220# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11221!$acc exit data delete(flux_src_n(i)%vf(E_idx)%sf)
11222# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11223#elif defined(MFC_OpenMP)
11224# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11225!$omp target exit data map(release:flux_src_n(i)%vf(E_idx)%sf)
11226# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11227#endif
11228# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11229 deallocate (flux_src_n(i)%vf(e_idx)%sf)
11230 end if
11231
11232 if (riemann_solver == 1 .or. riemann_solver == 4) then
11233 do l = adv_idx%beg + 1, adv_idx%end
11234#ifdef MFC_DEBUG
11235# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11236 block
11237# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11238 use iso_fortran_env, only: output_unit
11239# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11240
11241# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11242 print *, 'm_rhs.fpp:2158: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
11243# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11244
11245# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11246 call flush (output_unit)
11247# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11248 end block
11249# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11250#endif
11251# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11252
11253# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11254#if defined(MFC_OpenACC)
11255# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11256!$acc exit data delete(flux_src_n(i)%vf(l)%sf)
11257# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11258#elif defined(MFC_OpenMP)
11259# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11260!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf)
11261# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11262#endif
11263# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11264 deallocate (flux_src_n(i)%vf(l)%sf)
11265 end do
11266 else
11267 do l = adv_idx%beg + 1, adv_idx%end
11268 nullify (flux_src_n(i)%vf(l)%sf)
11269 end do
11270 end if
11271
11272#ifdef MFC_DEBUG
11273# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11274 block
11275# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11276 use iso_fortran_env, only: output_unit
11277# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11278
11279# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11280 print *, 'm_rhs.fpp:2166: ', '@:DEALLOCATE(flux_src_n(i)%vf(adv_idx%beg)%sf)'
11281# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11282
11283# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11284 call flush (output_unit)
11285# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11286 end block
11287# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11288#endif
11289# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11290
11291# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11292#if defined(MFC_OpenACC)
11293# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11294!$acc exit data delete(flux_src_n(i)%vf(adv_idx%beg)%sf)
11295# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11296#elif defined(MFC_OpenMP)
11297# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11298!$omp target exit data map(release:flux_src_n(i)%vf(adv_idx%beg)%sf)
11299# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11300#endif
11301# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11302 deallocate (flux_src_n(i)%vf(adv_idx%beg)%sf)
11303 end if
11304
11305#ifdef MFC_DEBUG
11306# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11307 block
11308# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11309 use iso_fortran_env, only: output_unit
11310# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11311
11312# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11313 print *, 'm_rhs.fpp:2169: ', '@:DEALLOCATE(flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)'
11314# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11315
11316# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11317 call flush (output_unit)
11318# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11319 end block
11320# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11321#endif
11322# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11323
11324# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11325#if defined(MFC_OpenACC)
11326# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11327!$acc exit data delete(flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)
11328# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11329#elif defined(MFC_OpenMP)
11330# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11331!$omp target exit data map(release:flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)
11332# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11333#endif
11334# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11335 deallocate (flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)
11336 end do
11337
11338#ifdef MFC_DEBUG
11339# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11340 block
11341# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11342 use iso_fortran_env, only: output_unit
11343# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11344
11345# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11346 print *, 'm_rhs.fpp:2172: ', '@:DEALLOCATE(flux_n, flux_src_n, flux_gsrc_n)'
11347# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11348
11349# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11350 call flush (output_unit)
11351# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11352 end block
11353# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11354#endif
11355# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11356
11357# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11358#if defined(MFC_OpenACC)
11359# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11360!$acc exit data delete(flux_n, flux_src_n, flux_gsrc_n)
11361# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11362#elif defined(MFC_OpenMP)
11363# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11364!$omp target exit data map(release:flux_n, flux_src_n, flux_gsrc_n)
11365# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11366#endif
11367# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
11368 deallocate (flux_n, flux_src_n, flux_gsrc_n)
11369 end if
11370
11371 end subroutine s_finalize_rhs_module
11372
11373end module m_rhs
11374
q_cons_vf
type(scalar_field), dimension(sys_size), intent(inout) q_cons_vf
Definition m_phase_change.fpp.f90:1119
k
integer, intent(in) k
Definition m_phase_change.fpp.f90:1121
j
integer, intent(in) j
Definition m_phase_change.fpp.f90:1121
l
integer, intent(in) l
Definition m_phase_change.fpp.f90:1121
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)
Adds the advection source flux-difference terms for a single coordinate direction to the RHS.
Definition m_rhs.fpp.f90:8015
m_acoustic_src
Applies acoustic pressure source terms including focused, planar, and broadband transducers.
Definition m_acoustic_src.fpp.f90:292
m_body_forces
Computes gravitational and user-defined body force source terms for the momentum equations.
Definition m_body_forces.fpp.f90:292
m_boundary_common
Noncharacteristic and processor boundary condition application for ghost cells and buffer regions.
Definition m_boundary_common.fpp.f90:303
m_bubbles_ee
Computes ensemble-averaged (Euler–Euler) bubble source terms for radius, velocity,...
Definition m_bubbles_EE.fpp.f90:292
m_bubbles_el
Tracks Lagrangian bubbles and couples their dynamics to the Eulerian flow via volume averaging.
Definition m_bubbles_EL.fpp.f90:292
m_cbc
Characteristic boundary conditions (CBC) for slip walls, non-reflecting subsonic inflow/outflow,...
Definition m_cbc.fpp.f90:303
m_cbc::is3
type(int_bounds_info) is3
Indical bounds in the s1-, s2- and s3-directions.
Definition m_cbc.fpp.f90:417
m_cbc::is1
type(int_bounds_info) is1
Definition m_cbc.fpp.f90:417
m_cbc::is2
type(int_bounds_info) is2
Definition m_cbc.fpp.f90:417
m_chemistry
Multi-species chemistry interface for thermodynamic properties, reaction rates, and transport coeffic...
Definition m_chemistry.fpp.f90:304
m_derived_types
Shared derived types for field data, patch geometry, bubble dynamics, and MPI I/O structures.
Definition m_derived_types.fpp.f90:292
m_global_parameters
Global parameters for the computational domain, fluid properties, and simulation algorithm configurat...
Definition m_global_parameters.fpp.f90:303
m_global_parameters::sys_size
integer sys_size
Number of unknowns in system of eqns.
Definition m_global_parameters.fpp.f90:756
m_helper
Utility routines for bubble model setup, coordinate transforms, array sampling, and special functions...
Definition m_helper.fpp.f90:303
m_hyperelastic
Computes the left Cauchy–Green deformation tensor and hyperelastic stress source terms.
Definition m_hyperelastic.fpp.f90:293
m_hypoelastic
Computes hypoelastic stress-rate source terms and damage-state evolution.
Definition m_hypoelastic.fpp.f90:292
m_ibm
Ghost-node immersed boundary method: locates ghost/image points, computes interpolation coefficients,...
Definition m_ibm.fpp.f90:292
m_igr
Iterative ghost rasterization (IGR) for sharp immersed boundary treatment.
Definition m_igr.fpp.f90:303
m_igr::j
integer(kind=8) j
Definition m_igr.fpp.f90:418
m_igr::i
integer(kind=8) i
Definition m_igr.fpp.f90:418
m_igr::l
integer(kind=8) l
Definition m_igr.fpp.f90:418
m_igr::k
integer(kind=8) k
Definition m_igr.fpp.f90:418
m_mpi_proxy
MPI halo exchange, domain decomposition, and buffer packing/unpacking for the simulation solver.
Definition m_mpi_proxy.fpp.f90:303
m_muscl
MUSCL reconstruction with interface sharpening for contact-preserving advection.
Definition m_muscl.fpp.f90:292
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:303
m_qbmm
Quadrature-based moment methods (QBMM) for polydisperse bubble moment inversion and transport.
Definition m_qbmm.fpp.f90:303
m_rhs
Assembles the right-hand side of the governing equations using finite-volume flux differencing,...
Definition m_rhs.fpp.f90:303
m_rhs::dqr_prim_dz_n
type(vector_field), dimension(:), allocatable dqr_prim_dz_n
Definition m_rhs.fpp.f90:419
m_rhs::dqr_rsz_vf
real(wp), dimension(:, :, :, :), allocatable dqr_rsz_vf
Definition m_rhs.fpp.f90:595
m_rhs::dql_prim_dz_n
type(vector_field), dimension(:), allocatable dql_prim_dz_n
Definition m_rhs.fpp.f90:418
m_rhs::flux_src_n
type(vector_field), dimension(:), allocatable flux_src_n
Definition m_rhs.fpp.f90:501
m_rhs::qr_rsy_vf
real(wp), dimension(:, :, :, :), allocatable qr_rsy_vf
Definition m_rhs.fpp.f90:594
m_rhs::dq_prim_dx_qp
type(vector_field), dimension(:), allocatable dq_prim_dx_qp
Definition m_rhs.fpp.f90:399
m_rhs::ql_rsz_vf
real(wp), dimension(:, :, :, :), allocatable ql_rsz_vf
Definition m_rhs.fpp.f90:594
m_rhs::flux_gsrc_n
type(vector_field), dimension(:), allocatable flux_gsrc_n
Definition m_rhs.fpp.f90:502
m_rhs::s_reconstruct_cell_boundary_values_first_order
subroutine s_reconstruct_cell_boundary_values_first_order(v_vf, vl_x, vl_y, vl_z, vr_x, vr_y, vr_z, norm_dir)
Performs first-order (piecewise constant) reconstruction of left and right cell-boundary values.
Definition m_rhs.fpp.f90:9674
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)
Computes the right-hand side of the semi-discrete governing equations for a single time stage.
Definition m_rhs.fpp.f90:6688
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)
Adds viscous, surface-tension, and species-diffusion source flux contributions to the RHS for a given...
Definition m_rhs.fpp.f90:8697
m_rhs::gm_alpha_qp
type(vector_field) gm_alpha_qp
The gradient magnitude of the volume fractions at cell-interior Gaussian quadrature points....
Definition m_rhs.fpp.f90:459
m_rhs::blkmod1
real(wp), dimension(:, :, :), allocatable blkmod1
Definition m_rhs.fpp.f90:593
m_rhs::s_reconstruct_cell_boundary_values
subroutine s_reconstruct_cell_boundary_values(v_vf, vl_x, vl_y, vl_z, vr_x, vr_y, vr_z, norm_dir)
The purpose of this subroutine is to WENO-reconstruct the left and the right cell-boundary values,...
Definition m_rhs.fpp.f90:9580
m_rhs::dql_prim_dy_n
type(vector_field), dimension(:), allocatable dql_prim_dy_n
Definition m_rhs.fpp.f90:418
m_rhs::qr_prim
type(vector_field), dimension(:), allocatable qr_prim
Definition m_rhs.fpp.f90:520
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)
Accumulates advection source contributions from a given coordinate direction into the RHS.
Definition m_rhs.fpp.f90:7393
m_rhs::is1
type(int_bounds_info) is1
Definition m_rhs.fpp.f90:563
m_rhs::q_cons_qp
type(vector_field) q_cons_qp
Definition m_rhs.fpp.f90:364
m_rhs::dq_prim_dy_qp
type(vector_field), dimension(:), allocatable dq_prim_dy_qp
Definition m_rhs.fpp.f90:399
m_rhs::dqr_rsy_vf
real(wp), dimension(:, :, :, :), allocatable dqr_rsy_vf
Definition m_rhs.fpp.f90:595
m_rhs::qr_rsx_vf
real(wp), dimension(:, :, :, :), allocatable qr_rsx_vf
Definition m_rhs.fpp.f90:594
m_rhs::is3
type(int_bounds_info) is3
Definition m_rhs.fpp.f90:563
m_rhs::irz
type(int_bounds_info) irz
Definition m_rhs.fpp.f90:550
m_rhs::is2
type(int_bounds_info) is2
Definition m_rhs.fpp.f90:563
m_rhs::qr_rsz_vf
real(wp), dimension(:, :, :, :), allocatable qr_rsz_vf
Definition m_rhs.fpp.f90:594
m_rhs::tau_re_vf
type(scalar_field), dimension(:), allocatable tau_re_vf
Definition m_rhs.fpp.f90:446
m_rhs::irx
type(int_bounds_info) irx
Definition m_rhs.fpp.f90:550
m_rhs::ql_rsy_vf
real(wp), dimension(:, :, :, :), allocatable ql_rsy_vf
Definition m_rhs.fpp.f90:594
m_rhs::gm_alphar_n
type(vector_field), dimension(:), allocatable gm_alphar_n
Definition m_rhs.fpp.f90:480
m_rhs::iv
type(int_bounds_info) iv
Vector field indical bounds.
Definition m_rhs.fpp.f90:535
m_rhs::alpha2
real(wp), dimension(:, :, :), allocatable alpha2
Definition m_rhs.fpp.f90:593
m_rhs::kterm
real(wp), dimension(:, :, :), allocatable kterm
Definition m_rhs.fpp.f90:593
m_rhs::gm_alphal_n
type(vector_field), dimension(:), allocatable gm_alphal_n
Definition m_rhs.fpp.f90:479
m_rhs::ql_rsx_vf
real(wp), dimension(:, :, :, :), allocatable ql_rsx_vf
Definition m_rhs.fpp.f90:594
m_rhs::alf_sum
type(scalar_field) alf_sum
Definition m_rhs.fpp.f90:579
m_rhs::dqr_prim_dy_n
type(vector_field), dimension(:), allocatable dqr_prim_dy_n
Definition m_rhs.fpp.f90:419
m_rhs::iry
type(int_bounds_info) iry
Definition m_rhs.fpp.f90:550
m_rhs::s_initialize_rhs_module
impure subroutine, public s_initialize_rhs_module
The computation of parameters, the allocation of memory, the association of pointers and/or the execu...
Definition m_rhs.fpp.f90:649
m_rhs::nbub
real(wp), dimension(:, :, :), allocatable nbub
Bubble number density.
Definition m_rhs.fpp.f90:630
m_rhs::ql_prim
type(vector_field), dimension(:), allocatable ql_prim
Definition m_rhs.fpp.f90:520
m_rhs::dql_prim_dx_n
type(vector_field), dimension(:), allocatable dql_prim_dx_n
Definition m_rhs.fpp.f90:418
m_rhs::q_prim_qp
type(vector_field) q_prim_qp
Definition m_rhs.fpp.f90:380
m_rhs::flux_n
type(vector_field), dimension(:), allocatable flux_n
Definition m_rhs.fpp.f90:500
m_rhs::dqr_rsx_vf
real(wp), dimension(:, :, :, :), allocatable dqr_rsx_vf
Definition m_rhs.fpp.f90:595
m_rhs::dq_prim_dz_qp
type(vector_field), dimension(:), allocatable dq_prim_dz_qp
Definition m_rhs.fpp.f90:399
m_rhs::dql_rsy_vf
real(wp), dimension(:, :, :, :), allocatable dql_rsy_vf
Definition m_rhs.fpp.f90:595
m_rhs::s_finalize_rhs_module
impure subroutine, public s_finalize_rhs_module
Module deallocation and/or disassociation procedures.
Definition m_rhs.fpp.f90:9908
m_rhs::blkmod2
real(wp), dimension(:, :, :), allocatable blkmod2
Definition m_rhs.fpp.f90:593
m_rhs::dqr_prim_dx_n
type(vector_field), dimension(:), allocatable dqr_prim_dx_n
Definition m_rhs.fpp.f90:419
m_rhs::dql_rsx_vf
real(wp), dimension(:, :, :, :), allocatable dql_rsx_vf
Definition m_rhs.fpp.f90:595
m_rhs::alpha1
real(wp), dimension(:, :, :), allocatable alpha1
Definition m_rhs.fpp.f90:593
m_rhs::dql_rsz_vf
real(wp), dimension(:, :, :, :), allocatable dql_rsz_vf
Definition m_rhs.fpp.f90:595
m_riemann_solvers
Approximate and exact Riemann solvers (HLL, HLLC, HLLD, exact) for the multicomponent Navier–Stokes e...
Definition m_riemann_solvers.fpp.f90:313
m_surface_tension
Computes capillary source fluxes and color-function gradients for the diffuse-interface surface tensi...
Definition m_surface_tension.fpp.f90:306
m_variables_conversion
Conservative-to-primitive variable conversion, mixture property evaluation, and pressure computation.
Definition m_variables_conversion.fpp.f90:303
m_viscous
Computes viscous stress tensors and diffusive flux contributions for the Navier–Stokes equations.
Definition m_viscous.fpp.f90:302
m_weno
WENO/WENO-Z/TENO reconstruction with optional monotonicity-preserving bounds and mapped weights.
Definition m_weno.fpp.f90:302
m_derived_types::int_bounds_info
Integer bounds for variables.
Definition m_derived_types.fpp.f90:381
m_derived_types::scalar_field
Derived type annexing a scalar field (SF).
Definition m_derived_types.fpp.f90:307
m_derived_types::vector_field
Derived type annexing a vector field (VF).
Definition m_derived_types.fpp.f90:356