MFC
Exascale flow solver
Loading...
Searching...
No Matches
m_mpi_proxy.fpp.f90
Go to the documentation of this file.
1# 1 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
2!>
3!! @file
4!! @brief Contains module m_mpi_proxy
5
6!> @brief Broadcasts user inputs and decomposes the domain across MPI ranks for pre-processing
7module m_mpi_proxy
8
9#ifdef MFC_MPI
10 use mpi
11#endif
12
13 use m_helper
14 use m_derived_types
15 use m_global_parameters
16 use m_mpi_common
17
18 implicit none
19
20contains
21 !> Since only processor with rank 0 is in charge of reading and checking the consistency of the user provided inputs, these are
22 !! not available to the remaining processors. This subroutine is then in charge of broadcasting the required information.
23 impure subroutine s_mpi_bcast_user_inputs
24
25#ifdef MFC_MPI
26 integer :: i, j
27 integer :: ierr
28
29 call mpi_bcast(case_dir, len(case_dir), mpi_character, 0, mpi_comm_world, ierr)
30
31# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
32 call mpi_bcast(t_step_old, 1, mpi_integer, 0, mpi_comm_world, ierr)
33# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
34 call mpi_bcast(t_step_start, 1, mpi_integer, 0, mpi_comm_world, ierr)
35# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
36 call mpi_bcast(m, 1, mpi_integer, 0, mpi_comm_world, ierr)
37# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
38 call mpi_bcast(n, 1, mpi_integer, 0, mpi_comm_world, ierr)
39# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
40 call mpi_bcast(p, 1, mpi_integer, 0, mpi_comm_world, ierr)
41# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
42 call mpi_bcast(m_glb, 1, mpi_integer, 0, mpi_comm_world, ierr)
43# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
44 call mpi_bcast(n_glb, 1, mpi_integer, 0, mpi_comm_world, ierr)
45# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
46 call mpi_bcast(p_glb, 1, mpi_integer, 0, mpi_comm_world, ierr)
47# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
48 call mpi_bcast(loops_x, 1, mpi_integer, 0, mpi_comm_world, ierr)
49# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
50 call mpi_bcast(loops_y, 1, mpi_integer, 0, mpi_comm_world, ierr)
51# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
52 call mpi_bcast(loops_z, 1, mpi_integer, 0, mpi_comm_world, ierr)
53# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
54 call mpi_bcast(model_eqns, 1, mpi_integer, 0, mpi_comm_world, ierr)
55# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
56 call mpi_bcast(num_fluids, 1, mpi_integer, 0, mpi_comm_world, ierr)
57# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
58 call mpi_bcast(weno_order, 1, mpi_integer, 0, mpi_comm_world, ierr)
59# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
60 call mpi_bcast(precision, 1, mpi_integer, 0, mpi_comm_world, ierr)
61# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
62 call mpi_bcast(perturb_flow_fluid, 1, mpi_integer, 0, mpi_comm_world, ierr)
63# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
64 call mpi_bcast(perturb_sph_fluid, 1, mpi_integer, 0, mpi_comm_world, ierr)
65# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
66 call mpi_bcast(num_patches, 1, mpi_integer, 0, mpi_comm_world, ierr)
67# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
68 call mpi_bcast(thermal, 1, mpi_integer, 0, mpi_comm_world, ierr)
69# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
70 call mpi_bcast(nb, 1, mpi_integer, 0, mpi_comm_world, ierr)
71# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
72 call mpi_bcast(dist_type, 1, mpi_integer, 0, mpi_comm_world, ierr)
73# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
74 call mpi_bcast(relax_model, 1, mpi_integer, 0, mpi_comm_world, ierr)
75# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
76 call mpi_bcast(num_ibs, 1, mpi_integer, 0, mpi_comm_world, ierr)
77# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
78 call mpi_bcast(n_start, 1, mpi_integer, 0, mpi_comm_world, ierr)
79# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
80 call mpi_bcast(elliptic_smoothing_iters, 1, mpi_integer, 0, mpi_comm_world, ierr)
81# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
82 call mpi_bcast(num_bc_patches, 1, mpi_integer, 0, mpi_comm_world, ierr)
83# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
84 call mpi_bcast(mixlayer_perturb_nk, 1, mpi_integer, 0, mpi_comm_world, ierr)
85# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
86 call mpi_bcast(recon_type, 1, mpi_integer, 0, mpi_comm_world, ierr)
87# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
88 call mpi_bcast(muscl_order, 1, mpi_integer, 0, mpi_comm_world, ierr)
89# 37 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
90 call mpi_bcast(igr_order, 1, mpi_integer, 0, mpi_comm_world, ierr)
91# 39 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
92
93# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
94 call mpi_bcast(old_grid, 1, mpi_logical, 0, mpi_comm_world, ierr)
95# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
96 call mpi_bcast(old_ic, 1, mpi_logical, 0, mpi_comm_world, ierr)
97# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
98 call mpi_bcast(stretch_x, 1, mpi_logical, 0, mpi_comm_world, ierr)
99# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
100 call mpi_bcast(stretch_y, 1, mpi_logical, 0, mpi_comm_world, ierr)
101# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
102 call mpi_bcast(stretch_z, 1, mpi_logical, 0, mpi_comm_world, ierr)
103# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
104 call mpi_bcast(cyl_coord, 1, mpi_logical, 0, mpi_comm_world, ierr)
105# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
106 call mpi_bcast(mpp_lim, 1, mpi_logical, 0, mpi_comm_world, ierr)
107# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
108 call mpi_bcast(hypoelasticity, 1, mpi_logical, 0, mpi_comm_world, ierr)
109# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
110 call mpi_bcast(relax, 1, mpi_logical, 0, mpi_comm_world, ierr)
111# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
112 call mpi_bcast(parallel_io, 1, mpi_logical, 0, mpi_comm_world, ierr)
113# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
114 call mpi_bcast(perturb_flow, 1, mpi_logical, 0, mpi_comm_world, ierr)
115# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
116 call mpi_bcast(perturb_sph, 1, mpi_logical, 0, mpi_comm_world, ierr)
117# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
118 call mpi_bcast(mixlayer_vel_profile, 1, mpi_logical, 0, mpi_comm_world, ierr)
119# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
120 call mpi_bcast(mixlayer_perturb, 1, mpi_logical, 0, mpi_comm_world, ierr)
121# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
122 call mpi_bcast(bubbles_euler, 1, mpi_logical, 0, mpi_comm_world, ierr)
123# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
124 call mpi_bcast(polytropic, 1, mpi_logical, 0, mpi_comm_world, ierr)
125# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
126 call mpi_bcast(polydisperse, 1, mpi_logical, 0, mpi_comm_world, ierr)
127# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
128 call mpi_bcast(qbmm, 1, mpi_logical, 0, mpi_comm_world, ierr)
129# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
130 call mpi_bcast(file_per_process, 1, mpi_logical, 0, mpi_comm_world, ierr)
131# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
132 call mpi_bcast(adv_n, 1, mpi_logical, 0, mpi_comm_world, ierr)
133# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
134 call mpi_bcast(ib, 1, mpi_logical, 0, mpi_comm_world, ierr)
135# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
136 call mpi_bcast(cfl_adap_dt, 1, mpi_logical, 0, mpi_comm_world, ierr)
137# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
138 call mpi_bcast(cfl_const_dt, 1, mpi_logical, 0, mpi_comm_world, ierr)
139# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
140 call mpi_bcast(cfl_dt, 1, mpi_logical, 0, mpi_comm_world, ierr)
141# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
142 call mpi_bcast(surface_tension, 1, mpi_logical, 0, mpi_comm_world, ierr)
143# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
144 call mpi_bcast(bc_x%isothermal_in, 1, mpi_logical, 0, mpi_comm_world, ierr)
145# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
146 call mpi_bcast(bc_y%isothermal_in, 1, mpi_logical, 0, mpi_comm_world, ierr)
147# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
148 call mpi_bcast(bc_z%isothermal_in, 1, mpi_logical, 0, mpi_comm_world, ierr)
149# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
150 call mpi_bcast(bc_x%isothermal_out, 1, mpi_logical, 0, mpi_comm_world, ierr)
151# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
152 call mpi_bcast(bc_y%isothermal_out, 1, mpi_logical, 0, mpi_comm_world, ierr)
153# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
154 call mpi_bcast(bc_z%isothermal_out, 1, mpi_logical, 0, mpi_comm_world, ierr)
155# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
156 call mpi_bcast(hyperelasticity, 1, mpi_logical, 0, mpi_comm_world, ierr)
157# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
158 call mpi_bcast(pre_stress, 1, mpi_logical, 0, mpi_comm_world, ierr)
159# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
160 call mpi_bcast(elliptic_smoothing, 1, mpi_logical, 0, mpi_comm_world, ierr)
161# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
162 call mpi_bcast(viscous, 1, mpi_logical, 0, mpi_comm_world, ierr)
163# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
164 call mpi_bcast(bubbles_lagrange, 1, mpi_logical, 0, mpi_comm_world, ierr)
165# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
166 call mpi_bcast(bc_io, 1, mpi_logical, 0, mpi_comm_world, ierr)
167# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
168 call mpi_bcast(mhd, 1, mpi_logical, 0, mpi_comm_world, ierr)
169# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
170 call mpi_bcast(relativity, 1, mpi_logical, 0, mpi_comm_world, ierr)
171# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
172 call mpi_bcast(cont_damage, 1, mpi_logical, 0, mpi_comm_world, ierr)
173# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
174 call mpi_bcast(igr, 1, mpi_logical, 0, mpi_comm_world, ierr)
175# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
176 call mpi_bcast(down_sample, 1, mpi_logical, 0, mpi_comm_world, ierr)
177# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
178 call mpi_bcast(simplex_perturb, 1, mpi_logical, 0, mpi_comm_world, ierr)
179# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
180 call mpi_bcast(fft_wrt, 1, mpi_logical, 0, mpi_comm_world, ierr)
181# 51 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
182 call mpi_bcast(hyper_cleaning, 1, mpi_logical, 0, mpi_comm_world, ierr)
183# 53 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
184 call mpi_bcast(fluid_rho(1), num_fluids_max, mpi_p, 0, mpi_comm_world, ierr)
185
186# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
187 call mpi_bcast(x_domain%beg, 1, mpi_p, 0, mpi_comm_world, ierr)
188# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
189 call mpi_bcast(x_domain%end, 1, mpi_p, 0, mpi_comm_world, ierr)
190# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
191 call mpi_bcast(y_domain%beg, 1, mpi_p, 0, mpi_comm_world, ierr)
192# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
193 call mpi_bcast(y_domain%end, 1, mpi_p, 0, mpi_comm_world, ierr)
194# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
195 call mpi_bcast(z_domain%beg, 1, mpi_p, 0, mpi_comm_world, ierr)
196# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
197 call mpi_bcast(z_domain%end, 1, mpi_p, 0, mpi_comm_world, ierr)
198# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
199 call mpi_bcast(a_x, 1, mpi_p, 0, mpi_comm_world, ierr)
200# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
201 call mpi_bcast(a_y, 1, mpi_p, 0, mpi_comm_world, ierr)
202# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
203 call mpi_bcast(a_z, 1, mpi_p, 0, mpi_comm_world, ierr)
204# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
205 call mpi_bcast(x_a, 1, mpi_p, 0, mpi_comm_world, ierr)
206# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
207 call mpi_bcast(x_b, 1, mpi_p, 0, mpi_comm_world, ierr)
208# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
209 call mpi_bcast(y_a, 1, mpi_p, 0, mpi_comm_world, ierr)
210# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
211 call mpi_bcast(y_b, 1, mpi_p, 0, mpi_comm_world, ierr)
212# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
213 call mpi_bcast(z_a, 1, mpi_p, 0, mpi_comm_world, ierr)
214# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
215 call mpi_bcast(z_b, 1, mpi_p, 0, mpi_comm_world, ierr)
216# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
217 call mpi_bcast(bc_x%beg, 1, mpi_p, 0, mpi_comm_world, ierr)
218# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
219 call mpi_bcast(bc_x%end, 1, mpi_p, 0, mpi_comm_world, ierr)
220# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
221 call mpi_bcast(bc_y%beg, 1, mpi_p, 0, mpi_comm_world, ierr)
222# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
223 call mpi_bcast(bc_y%end, 1, mpi_p, 0, mpi_comm_world, ierr)
224# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
225 call mpi_bcast(bc_z%beg, 1, mpi_p, 0, mpi_comm_world, ierr)
226# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
227 call mpi_bcast(bc_z%end, 1, mpi_p, 0, mpi_comm_world, ierr)
228# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
229 call mpi_bcast(perturb_flow_mag, 1, mpi_p, 0, mpi_comm_world, ierr)
230# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
231 call mpi_bcast(pref, 1, mpi_p, 0, mpi_comm_world, ierr)
232# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
233 call mpi_bcast(rhoref, 1, mpi_p, 0, mpi_comm_world, ierr)
234# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
235 call mpi_bcast(poly_sigma, 1, mpi_p, 0, mpi_comm_world, ierr)
236# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
237 call mpi_bcast(r0ref, 1, mpi_p, 0, mpi_comm_world, ierr)
238# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
239 call mpi_bcast(web, 1, mpi_p, 0, mpi_comm_world, ierr)
240# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
241 call mpi_bcast(ca, 1, mpi_p, 0, mpi_comm_world, ierr)
242# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
243 call mpi_bcast(re_inv, 1, mpi_p, 0, mpi_comm_world, ierr)
244# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
245 call mpi_bcast(sigr, 1, mpi_p, 0, mpi_comm_world, ierr)
246# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
247 call mpi_bcast(sigv, 1, mpi_p, 0, mpi_comm_world, ierr)
248# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
249 call mpi_bcast(rhorv, 1, mpi_p, 0, mpi_comm_world, ierr)
250# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
251 call mpi_bcast(palpha_eps, 1, mpi_p, 0, mpi_comm_world, ierr)
252# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
253 call mpi_bcast(ptgalpha_eps, 1, mpi_p, 0, mpi_comm_world, ierr)
254# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
255 call mpi_bcast(sigma, 1, mpi_p, 0, mpi_comm_world, ierr)
256# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
257 call mpi_bcast(pi_fac, 1, mpi_p, 0, mpi_comm_world, ierr)
258# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
259 call mpi_bcast(mixlayer_vel_coef, 1, mpi_p, 0, mpi_comm_world, ierr)
260# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
261 call mpi_bcast(bx0, 1, mpi_p, 0, mpi_comm_world, ierr)
262# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
263 call mpi_bcast(mixlayer_perturb_k0, 1, mpi_p, 0, mpi_comm_world, ierr)
264# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
265 call mpi_bcast(bc_x%Twall_in, 1, mpi_p, 0, mpi_comm_world, ierr)
266# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
267 call mpi_bcast(bc_x%Twall_out, 1, mpi_p, 0, mpi_comm_world, ierr)
268# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
269 call mpi_bcast(bc_y%Twall_in, 1, mpi_p, 0, mpi_comm_world, ierr)
270# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
271 call mpi_bcast(bc_y%Twall_out, 1, mpi_p, 0, mpi_comm_world, ierr)
272# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
273 call mpi_bcast(bc_z%Twall_in, 1, mpi_p, 0, mpi_comm_world, ierr)
274# 65 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
275 call mpi_bcast(bc_z%Twall_out, 1, mpi_p, 0, mpi_comm_world, ierr)
276# 67 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
277
278 do i = 1, num_bc_patches_max
279# 70 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
280 call mpi_bcast(patch_bc(i)%geometry, 1, mpi_integer, 0, mpi_comm_world, ierr)
281# 70 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
282 call mpi_bcast(patch_bc(i)%type, 1, mpi_integer, 0, mpi_comm_world, ierr)
283# 70 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
284 call mpi_bcast(patch_bc(i)%dir, 1, mpi_integer, 0, mpi_comm_world, ierr)
285# 70 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
286 call mpi_bcast(patch_bc(i)%loc, 1, mpi_integer, 0, mpi_comm_world, ierr)
287# 72 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
288
289 call mpi_bcast(patch_bc(i)%radius, 1, mpi_p, 0, mpi_comm_world, ierr)
290
291# 76 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
292 call mpi_bcast(patch_bc(i)%centroid, size(patch_bc(i)%centroid), mpi_p, 0, mpi_comm_world, ierr)
293# 76 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
294 call mpi_bcast(patch_bc(i)%length, size(patch_bc(i)%length), mpi_p, 0, mpi_comm_world, ierr)
295# 78 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
296 end do
297
298 do i = 1, num_patches_max
299# 82 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
300 call mpi_bcast(patch_icpp(i)%geometry, 1, mpi_integer, 0, mpi_comm_world, ierr)
301# 82 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
302 call mpi_bcast(patch_icpp(i)%smooth_patch_id, 1, mpi_integer, 0, mpi_comm_world, ierr)
303# 84 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
304
305 call mpi_bcast(patch_icpp(i)%smoothen, 1, mpi_logical, 0, mpi_comm_world, ierr)
306 call mpi_bcast(patch_icpp(i)%non_axis_sym, 1, mpi_logical, 0, mpi_comm_world, ierr)
307 call mpi_bcast(patch_icpp(i)%alter_patch(0), num_patches_max, mpi_logical, 0, mpi_comm_world, ierr)
308
309# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
310 call mpi_bcast(patch_icpp(i)%x_centroid, 1, mpi_p, 0, mpi_comm_world, ierr)
311# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
312 call mpi_bcast(patch_icpp(i)%y_centroid, 1, mpi_p, 0, mpi_comm_world, ierr)
313# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
314 call mpi_bcast(patch_icpp(i)%z_centroid, 1, mpi_p, 0, mpi_comm_world, ierr)
315# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
316 call mpi_bcast(patch_icpp(i)%length_x, 1, mpi_p, 0, mpi_comm_world, ierr)
317# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
318 call mpi_bcast(patch_icpp(i)%length_y, 1, mpi_p, 0, mpi_comm_world, ierr)
319# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
320 call mpi_bcast(patch_icpp(i)%length_z, 1, mpi_p, 0, mpi_comm_world, ierr)
321# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
322 call mpi_bcast(patch_icpp(i)%radius, 1, mpi_p, 0, mpi_comm_world, ierr)
323# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
324 call mpi_bcast(patch_icpp(i)%epsilon, 1, mpi_p, 0, mpi_comm_world, ierr)
325# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
326 call mpi_bcast(patch_icpp(i)%beta, 1, mpi_p, 0, mpi_comm_world, ierr)
327# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
328 call mpi_bcast(patch_icpp(i)%smooth_coeff, 1, mpi_p, 0, mpi_comm_world, ierr)
329# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
330 call mpi_bcast(patch_icpp(i)%rho, 1, mpi_p, 0, mpi_comm_world, ierr)
331# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
332 call mpi_bcast(patch_icpp(i)%p0, 1, mpi_p, 0, mpi_comm_world, ierr)
333# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
334 call mpi_bcast(patch_icpp(i)%m0, 1, mpi_p, 0, mpi_comm_world, ierr)
335# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
336 call mpi_bcast(patch_icpp(i)%r0, 1, mpi_p, 0, mpi_comm_world, ierr)
337# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
338 call mpi_bcast(patch_icpp(i)%v0, 1, mpi_p, 0, mpi_comm_world, ierr)
339# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
340 call mpi_bcast(patch_icpp(i)%pres, 1, mpi_p, 0, mpi_comm_world, ierr)
341# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
342 call mpi_bcast(patch_icpp(i)%gamma, 1, mpi_p, 0, mpi_comm_world, ierr)
343# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
344 call mpi_bcast(patch_icpp(i)%pi_inf, 1, mpi_p, 0, mpi_comm_world, ierr)
345# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
346 call mpi_bcast(patch_icpp(i)%hcid, 1, mpi_p, 0, mpi_comm_world, ierr)
347# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
348 call mpi_bcast(patch_icpp(i)%cv, 1, mpi_p, 0, mpi_comm_world, ierr)
349# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
350 call mpi_bcast(patch_icpp(i)%qv, 1, mpi_p, 0, mpi_comm_world, ierr)
351# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
352 call mpi_bcast(patch_icpp(i)%qvp, 1, mpi_p, 0, mpi_comm_world, ierr)
353# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
354 call mpi_bcast(patch_icpp(i)%model_threshold, 1, mpi_p, 0, mpi_comm_world, ierr)
355# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
356 call mpi_bcast(patch_icpp(i)%cf_val, 1, mpi_p, 0, mpi_comm_world, ierr)
357# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
358 call mpi_bcast(patch_icpp(i)%Bx, 1, mpi_p, 0, mpi_comm_world, ierr)
359# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
360 call mpi_bcast(patch_icpp(i)%By, 1, mpi_p, 0, mpi_comm_world, ierr)
361# 94 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
362 call mpi_bcast(patch_icpp(i)%Bz, 1, mpi_p, 0, mpi_comm_world, ierr)
363# 96 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
364
365# 98 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
366 call mpi_bcast(patch_icpp(i)%a(2), 1, mpi_p, 0, mpi_comm_world, ierr)
367# 98 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
368 call mpi_bcast(patch_icpp(i)%a(3), 1, mpi_p, 0, mpi_comm_world, ierr)
369# 98 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
370 call mpi_bcast(patch_icpp(i)%a(4), 1, mpi_p, 0, mpi_comm_world, ierr)
371# 98 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
372 call mpi_bcast(patch_icpp(i)%a(5), 1, mpi_p, 0, mpi_comm_world, ierr)
373# 98 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
374 call mpi_bcast(patch_icpp(i)%a(6), 1, mpi_p, 0, mpi_comm_world, ierr)
375# 98 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
376 call mpi_bcast(patch_icpp(i)%a(7), 1, mpi_p, 0, mpi_comm_world, ierr)
377# 98 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
378 call mpi_bcast(patch_icpp(i)%a(8), 1, mpi_p, 0, mpi_comm_world, ierr)
379# 98 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
380 call mpi_bcast(patch_icpp(i)%a(9), 1, mpi_p, 0, mpi_comm_world, ierr)
381# 100 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
382
383 call mpi_bcast(patch_icpp(i)%model_filepath, len(patch_icpp(i)%model_filepath), mpi_character, 0, mpi_comm_world, ierr)
384
385# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
386 call mpi_bcast(patch_icpp(i)%model_translate, size(patch_icpp(i)%model_translate), mpi_p, 0, mpi_comm_world, ierr)
387# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
388 call mpi_bcast(patch_icpp(i)%model_scale, size(patch_icpp(i)%model_scale), mpi_p, 0, mpi_comm_world, ierr)
389# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
390 call mpi_bcast(patch_icpp(i)%model_rotate, size(patch_icpp(i)%model_rotate), mpi_p, 0, mpi_comm_world, ierr)
391# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
392 call mpi_bcast(patch_icpp(i)%normal, size(patch_icpp(i)%normal), mpi_p, 0, mpi_comm_world, ierr)
393# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
394 call mpi_bcast(patch_icpp(i)%radii, size(patch_icpp(i)%radii), mpi_p, 0, mpi_comm_world, ierr)
395# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
396 call mpi_bcast(patch_icpp(i)%vel, size(patch_icpp(i)%vel), mpi_p, 0, mpi_comm_world, ierr)
397# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
398 call mpi_bcast(patch_icpp(i)%tau_e, size(patch_icpp(i)%tau_e), mpi_p, 0, mpi_comm_world, ierr)
399# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
400 call mpi_bcast(patch_icpp(i)%alpha_rho, size(patch_icpp(i)%alpha_rho), mpi_p, 0, mpi_comm_world, ierr)
401# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
402 call mpi_bcast(patch_icpp(i)%alpha, size(patch_icpp(i)%alpha), mpi_p, 0, mpi_comm_world, ierr)
403# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
404 call mpi_bcast(patch_icpp(i)%fourier_cos, size(patch_icpp(i)%fourier_cos), mpi_p, 0, mpi_comm_world, ierr)
405# 106 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
406 call mpi_bcast(patch_icpp(i)%fourier_sin, size(patch_icpp(i)%fourier_sin), mpi_p, 0, mpi_comm_world, ierr)
407# 108 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
408
409 call mpi_bcast(patch_icpp(i)%sph_har_coeff, size(patch_icpp(i)%sph_har_coeff), mpi_p, 0, mpi_comm_world, ierr)
410 call mpi_bcast(patch_icpp(i)%modal_clip_r_to_min, 1, mpi_logical, 0, mpi_comm_world, ierr)
411 call mpi_bcast(patch_icpp(i)%modal_r_min, 1, mpi_p, 0, mpi_comm_world, ierr)
412 call mpi_bcast(patch_icpp(i)%modal_use_exp_form, 1, mpi_logical, 0, mpi_comm_world, ierr)
413
414 call mpi_bcast(patch_icpp(i)%model_spc, 1, mpi_integer, 0, mpi_comm_world, ierr)
415
416 if (chemistry) then
417 call mpi_bcast(patch_icpp(i)%Y, size(patch_icpp(i)%Y), mpi_p, 0, mpi_comm_world, ierr)
418 end if
419 end do
420
421 do i = 1, num_ibs
422# 123 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
423 call mpi_bcast(patch_ib(i)%vel, size(patch_ib(i)%vel), mpi_p, 0, mpi_comm_world, ierr)
424# 123 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
425 call mpi_bcast(patch_ib(i)%angular_vel, size(patch_ib(i)%angular_vel), mpi_p, 0, mpi_comm_world, ierr)
426# 123 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
427 call mpi_bcast(patch_ib(i)%angles, size(patch_ib(i)%angles), mpi_p, 0, mpi_comm_world, ierr)
428# 125 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
429 call mpi_bcast(patch_ib(i)%geometry, 1, mpi_integer, 0, mpi_comm_world, ierr)
430 call mpi_bcast(patch_ib(i)%model_filepath, len(patch_ib(i)%model_filepath), mpi_character, 0, mpi_comm_world, ierr)
431 call mpi_bcast(patch_ib(i)%model_threshold, 1, mpi_p, 0, mpi_comm_world, ierr)
432 call mpi_bcast(patch_ib(i)%model_spc, 1, mpi_integer, 0, mpi_comm_world, ierr)
433
434# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
435 call mpi_bcast(patch_ib(i)%x_centroid, 1, mpi_p, 0, mpi_comm_world, ierr)
436# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
437 call mpi_bcast(patch_ib(i)%y_centroid, 1, mpi_p, 0, mpi_comm_world, ierr)
438# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
439 call mpi_bcast(patch_ib(i)%z_centroid, 1, mpi_p, 0, mpi_comm_world, ierr)
440# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
441 call mpi_bcast(patch_ib(i)%length_x, 1, mpi_p, 0, mpi_comm_world, ierr)
442# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
443 call mpi_bcast(patch_ib(i)%length_y, 1, mpi_p, 0, mpi_comm_world, ierr)
444# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
445 call mpi_bcast(patch_ib(i)%length_z, 1, mpi_p, 0, mpi_comm_world, ierr)
446# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
447 call mpi_bcast(patch_ib(i)%radius, 1, mpi_p, 0, mpi_comm_world, ierr)
448# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
449 call mpi_bcast(patch_ib(i)%c, 1, mpi_p, 0, mpi_comm_world, ierr)
450# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
451 call mpi_bcast(patch_ib(i)%p, 1, mpi_p, 0, mpi_comm_world, ierr)
452# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
453 call mpi_bcast(patch_ib(i)%t, 1, mpi_p, 0, mpi_comm_world, ierr)
454# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
455 call mpi_bcast(patch_ib(i)%m, 1, mpi_p, 0, mpi_comm_world, ierr)
456# 132 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
457 call mpi_bcast(patch_ib(i)%theta, 1, mpi_p, 0, mpi_comm_world, ierr)
458# 134 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
459 call mpi_bcast(patch_ib(i)%slip, 1, mpi_logical, 0, mpi_comm_world, ierr)
460
461# 137 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
462 call mpi_bcast(patch_ib(i)%model_translate, size(patch_ib(i)%model_translate), mpi_p, 0, mpi_comm_world, ierr)
463# 137 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
464 call mpi_bcast(patch_ib(i)%model_scale, size(patch_ib(i)%model_scale), mpi_p, 0, mpi_comm_world, ierr)
465# 137 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
466 call mpi_bcast(patch_ib(i)%model_rotate, size(patch_ib(i)%model_rotate), mpi_p, 0, mpi_comm_world, ierr)
467# 139 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
468 end do
469
470 ! Simplex noise and fluid physical parameters
471 do i = 1, num_fluids_max
472# 144 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
473 call mpi_bcast(fluid_pp(i)%gamma, 1, mpi_p, 0, mpi_comm_world, ierr)
474# 144 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
475 call mpi_bcast(fluid_pp(i)%pi_inf, 1, mpi_p, 0, mpi_comm_world, ierr)
476# 144 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
477 call mpi_bcast(fluid_pp(i)%G, 1, mpi_p, 0, mpi_comm_world, ierr)
478# 144 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
479 call mpi_bcast(fluid_pp(i)%cv, 1, mpi_p, 0, mpi_comm_world, ierr)
480# 144 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
481 call mpi_bcast(fluid_pp(i)%qv, 1, mpi_p, 0, mpi_comm_world, ierr)
482# 144 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
483 call mpi_bcast(fluid_pp(i)%qvp, 1, mpi_p, 0, mpi_comm_world, ierr)
484# 146 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
485
486 call mpi_bcast(simplex_params%perturb_dens(i), 1, mpi_logical, 0, mpi_comm_world, ierr)
487 call mpi_bcast(simplex_params%perturb_dens_freq(i), 1, mpi_p, 0, mpi_comm_world, ierr)
488 call mpi_bcast(simplex_params%perturb_dens_scale(i), 1, mpi_p, 0, mpi_comm_world, ierr)
489
490 do j = 1, 3
491 call mpi_bcast(simplex_params%perturb_dens_offset(i, j), 1, mpi_p, 0, mpi_comm_world, ierr)
492 end do
493 end do
494
495 ! Subgrid bubble parameters
496 if (bubbles_euler .or. bubbles_lagrange) then
497# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
498 call mpi_bcast(bub_pp%R0ref, 1, mpi_p, 0, mpi_comm_world, ierr)
499# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
500 call mpi_bcast(bub_pp%p0ref, 1, mpi_p, 0, mpi_comm_world, ierr)
501# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
502 call mpi_bcast(bub_pp%rho0ref, 1, mpi_p, 0, mpi_comm_world, ierr)
503# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
504 call mpi_bcast(bub_pp%T0ref, 1, mpi_p, 0, mpi_comm_world, ierr)
505# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
506 call mpi_bcast(bub_pp%ss, 1, mpi_p, 0, mpi_comm_world, ierr)
507# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
508 call mpi_bcast(bub_pp%pv, 1, mpi_p, 0, mpi_comm_world, ierr)
509# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
510 call mpi_bcast(bub_pp%vd, 1, mpi_p, 0, mpi_comm_world, ierr)
511# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
512 call mpi_bcast(bub_pp%mu_l, 1, mpi_p, 0, mpi_comm_world, ierr)
513# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
514 call mpi_bcast(bub_pp%mu_v, 1, mpi_p, 0, mpi_comm_world, ierr)
515# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
516 call mpi_bcast(bub_pp%mu_g, 1, mpi_p, 0, mpi_comm_world, ierr)
517# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
518 call mpi_bcast(bub_pp%gam_v, 1, mpi_p, 0, mpi_comm_world, ierr)
519# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
520 call mpi_bcast(bub_pp%gam_g, 1, mpi_p, 0, mpi_comm_world, ierr)
521# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
522 call mpi_bcast(bub_pp%M_v, 1, mpi_p, 0, mpi_comm_world, ierr)
523# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
524 call mpi_bcast(bub_pp%M_g, 1, mpi_p, 0, mpi_comm_world, ierr)
525# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
526 call mpi_bcast(bub_pp%k_v, 1, mpi_p, 0, mpi_comm_world, ierr)
527# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
528 call mpi_bcast(bub_pp%k_g, 1, mpi_p, 0, mpi_comm_world, ierr)
529# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
530 call mpi_bcast(bub_pp%cp_v, 1, mpi_p, 0, mpi_comm_world, ierr)
531# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
532 call mpi_bcast(bub_pp%cp_g, 1, mpi_p, 0, mpi_comm_world, ierr)
533# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
534 call mpi_bcast(bub_pp%R_v, 1, mpi_p, 0, mpi_comm_world, ierr)
535# 161 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
536 call mpi_bcast(bub_pp%R_g, 1, mpi_p, 0, mpi_comm_world, ierr)
537# 163 "/home/runner/work/MFC/MFC/src/pre_process/m_mpi_proxy.fpp"
538 end if
539
540 do i = 1, 3
541 call mpi_bcast(simplex_params%perturb_vel(i), 1, mpi_logical, 0, mpi_comm_world, ierr)
542 call mpi_bcast(simplex_params%perturb_vel_freq(i), 1, mpi_p, 0, mpi_comm_world, ierr)
543 call mpi_bcast(simplex_params%perturb_vel_scale(i), 1, mpi_p, 0, mpi_comm_world, ierr)
544
545 do j = 1, 3
546 call mpi_bcast(simplex_params%perturb_vel_offset(i, j), 1, mpi_p, 0, mpi_comm_world, ierr)
547 end do
548 end do
549#endif
550
551 end subroutine s_mpi_bcast_user_inputs
552
553end module m_mpi_proxy
j
integer, intent(in) j
Definition m_phase_change.fpp.f90:1067
m_derived_types
Shared derived types for field data, patch geometry, bubble dynamics, and MPI I/O structures.
Definition m_derived_types.fpp.f90:317
m_global_parameters
Defines global parameters for the computational domain, simulation algorithm, and initial conditions.
Definition m_global_parameters.fpp.f90:19
m_global_parameters::web
real(wp) web
Definition m_global_parameters.fpp.f90:156
m_global_parameters::bubbles_euler
logical bubbles_euler
Definition m_global_parameters.fpp.f90:158
m_global_parameters::perturb_flow_mag
real(wp) perturb_flow_mag
Magnitude of perturbation with perturb_flow flag.
Definition m_global_parameters.fpp.f90:126
m_global_parameters::mixlayer_perturb_k0
real(wp) mixlayer_perturb_k0
Peak wavenumber for mixlayer perturbation (default: most unstable mode).
Definition m_global_parameters.fpp.f90:116
m_global_parameters::cont_damage
logical cont_damage
continuum damage modeling
Definition m_global_parameters.fpp.f90:90
m_global_parameters::p_glb
integer p_glb
Global number of cells in each direction.
Definition m_global_parameters.fpp.f90:50
m_global_parameters::igr
logical igr
Use information geometric regularization.
Definition m_global_parameters.fpp.f90:92
m_global_parameters::sigr
real(wp) sigr
Definition m_global_parameters.fpp.f90:161
m_global_parameters::hypoelasticity
logical hypoelasticity
activate hypoelasticity
Definition m_global_parameters.fpp.f90:82
m_global_parameters::thermal
integer thermal
1 = adiabatic, 2 = isotherm, 3 = transfer
Definition m_global_parameters.fpp.f90:180
m_global_parameters::perturb_flow_fluid
integer perturb_flow_fluid
Fluid to be perturbed with perturb_flow flag.
Definition m_global_parameters.fpp.f90:125
m_global_parameters::recon_type
integer recon_type
Reconstruction Type.
Definition m_global_parameters.fpp.f90:77
m_global_parameters::chemistry
logical, parameter chemistry
Chemistry modeling.
Definition m_global_parameters.fpp.f90:94
m_global_parameters::cfl_adap_dt
logical cfl_adap_dt
Definition m_global_parameters.fpp.f90:37
m_global_parameters::elliptic_smoothing
logical elliptic_smoothing
Definition m_global_parameters.fpp.f90:130
m_global_parameters::rhoref
real(wp) rhoref
Definition m_global_parameters.fpp.f90:151
m_global_parameters::bc_z
type(int_bounds_info) bc_z
Boundary conditions in the x-, y- and z-coordinate directions.
Definition m_global_parameters.fpp.f90:103
m_global_parameters::num_fluids
integer num_fluids
Number of different fluids present in the flow.
Definition m_global_parameters.fpp.f90:74
m_global_parameters::elliptic_smoothing_iters
integer elliptic_smoothing_iters
Definition m_global_parameters.fpp.f90:131
m_global_parameters::pre_stress
logical pre_stress
activate pre_stressed domain
Definition m_global_parameters.fpp.f90:89
m_global_parameters::polydisperse
logical polydisperse
Definition m_global_parameters.fpp.f90:177
m_global_parameters::dist_type
integer dist_type
1 = binormal, 2 = lognormal-normal
Definition m_global_parameters.fpp.f90:179
m_global_parameters::loops_x
integer loops_x
Definition m_global_parameters.fpp.f90:64
m_global_parameters::n_start
integer n_start
Definition m_global_parameters.fpp.f90:38
m_global_parameters::poly_sigma
real(wp) poly_sigma
Definition m_global_parameters.fpp.f90:178
m_global_parameters::bc_io
logical bc_io
whether or not to save BC data
Definition m_global_parameters.fpp.f90:144
m_global_parameters::z_domain
type(bounds_info) z_domain
Locations of the domain bounds in the x-, y- and z-coordinate directions.
Definition m_global_parameters.fpp.f90:60
m_global_parameters::x_b
real(wp) x_b
Definition m_global_parameters.fpp.f90:66
m_global_parameters::simplex_perturb
logical simplex_perturb
Definition m_global_parameters.fpp.f90:117
m_global_parameters::simplex_params
type(simplex_noise_params) simplex_params
Definition m_global_parameters.fpp.f90:118
m_global_parameters::cyl_coord
logical cyl_coord
Definition m_global_parameters.fpp.f90:53
m_global_parameters::muscl_order
integer muscl_order
Order of accuracy for the MUSCL reconstruction.
Definition m_global_parameters.fpp.f90:81
m_global_parameters::z_b
real(wp) z_b
Definition m_global_parameters.fpp.f90:66
m_global_parameters::x_domain
type(bounds_info) x_domain
Definition m_global_parameters.fpp.f90:60
m_global_parameters::ptgalpha_eps
real(wp) ptgalpha_eps
trigger parameter for the pTg relaxation procedure, phase change model
Definition m_global_parameters.fpp.f90:73
m_global_parameters::fft_wrt
logical fft_wrt
Definition m_global_parameters.fpp.f90:199
m_global_parameters::relax_model
integer relax_model
Relax Model.
Definition m_global_parameters.fpp.f90:71
m_global_parameters::loops_z
integer loops_z
Definition m_global_parameters.fpp.f90:64
m_global_parameters::t_step_old
integer t_step_old
Definition m_global_parameters.fpp.f90:36
m_global_parameters::num_patches
integer num_patches
Number of patches composing initial condition.
Definition m_global_parameters.fpp.f90:141
m_global_parameters::cfl_const_dt
logical cfl_const_dt
Definition m_global_parameters.fpp.f90:37
m_global_parameters::viscous
logical viscous
Definition m_global_parameters.fpp.f90:120
m_global_parameters::ib
logical ib
Turn immersed boundaries on.
Definition m_global_parameters.fpp.f90:167
m_global_parameters::sigma
real(wp) sigma
Definition m_global_parameters.fpp.f90:190
m_global_parameters::num_bc_patches
integer num_bc_patches
Number of boundary condition patches.
Definition m_global_parameters.fpp.f90:143
m_global_parameters::a_y
real(wp) a_y
Definition m_global_parameters.fpp.f90:63
m_global_parameters::r0ref
real(wp) r0ref
Definition m_global_parameters.fpp.f90:185
m_global_parameters::patch_bc
type(bc_patch_parameters), dimension(num_bc_patches_max) patch_bc
Boundary condition patch parameters.
Definition m_global_parameters.fpp.f90:145
m_global_parameters::re_inv
real(wp) re_inv
Definition m_global_parameters.fpp.f90:156
m_global_parameters::model_eqns
integer model_eqns
Multicomponent flow model.
Definition m_global_parameters.fpp.f90:69
m_global_parameters::precision
integer precision
Precision of output files.
Definition m_global_parameters.fpp.f90:110
m_global_parameters::hyperelasticity
logical hyperelasticity
activate hyperelasticity
Definition m_global_parameters.fpp.f90:83
m_global_parameters::a_z
real(wp) a_z
Definition m_global_parameters.fpp.f90:63
m_global_parameters::fluid_pp
type(physical_parameters), dimension(num_fluids_max) fluid_pp
Stiffened gas EOS parameters and Reynolds numbers per fluid.
Definition m_global_parameters.fpp.f90:148
m_global_parameters::a_x
real(wp) a_x
Definition m_global_parameters.fpp.f90:63
m_global_parameters::bc_y
type(int_bounds_info) bc_y
Definition m_global_parameters.fpp.f90:103
m_global_parameters::sigv
real(wp) sigv
Definition m_global_parameters.fpp.f90:161
m_global_parameters::mixlayer_perturb_nk
integer mixlayer_perturb_nk
Number of Fourier modes for perturbation with mixlayer_perturb flag.
Definition m_global_parameters.fpp.f90:115
m_global_parameters::bubbles_lagrange
logical bubbles_lagrange
Definition m_global_parameters.fpp.f90:121
m_global_parameters::ca
real(wp) ca
Definition m_global_parameters.fpp.f90:156
m_global_parameters::polytropic
logical polytropic
Definition m_global_parameters.fpp.f90:176
m_global_parameters::perturb_sph_fluid
integer perturb_sph_fluid
Fluid to be perturbed with perturb_sph flag.
Definition m_global_parameters.fpp.f90:128
m_global_parameters::bc_x
type(int_bounds_info) bc_x
Definition m_global_parameters.fpp.f90:103
m_global_parameters::y_domain
type(bounds_info) y_domain
Definition m_global_parameters.fpp.f90:60
m_global_parameters::relax
logical relax
activate phase change
Definition m_global_parameters.fpp.f90:70
m_global_parameters::stretch_x
logical stretch_x
Definition m_global_parameters.fpp.f90:61
m_global_parameters::qbmm
logical qbmm
Quadrature moment method.
Definition m_global_parameters.fpp.f90:159
m_global_parameters::old_grid
logical old_grid
Use existing grid data.
Definition m_global_parameters.fpp.f90:34
m_global_parameters::perturb_sph
logical perturb_sph
Definition m_global_parameters.fpp.f90:127
m_global_parameters::pi_fac
real(wp) pi_fac
Factor for artificial pi_inf.
Definition m_global_parameters.fpp.f90:119
m_global_parameters::hyper_cleaning
logical hyper_cleaning
Hyperbolic cleaning for MHD.
Definition m_global_parameters.fpp.f90:91
m_global_parameters::fluid_rho
real(wp), dimension(num_fluids_max) fluid_rho
Definition m_global_parameters.fpp.f90:129
m_global_parameters::pref
real(wp) pref
Reference parameters for Tait EOS.
Definition m_global_parameters.fpp.f90:151
m_global_parameters::bx0
real(wp) bx0
Constant magnetic field in the x-direction (1D).
Definition m_global_parameters.fpp.f90:197
m_global_parameters::stretch_z
logical stretch_z
Grid stretching flags for the x-, y- and z-coordinate directions.
Definition m_global_parameters.fpp.f90:61
m_global_parameters::adv_n
logical adv_n
Solve the number density equation and compute alpha from number density.
Definition m_global_parameters.fpp.f90:162
m_global_parameters::case_dir
character(len=path_len) case_dir
Case folder location.
Definition m_global_parameters.fpp.f90:33
m_global_parameters::patch_icpp
type(ic_patch_parameters), dimension(num_patches_max) patch_icpp
IC patch parameters (max: num_patches_max).
Definition m_global_parameters.fpp.f90:142
m_global_parameters::weno_order
integer weno_order
Order of accuracy for the WENO reconstruction.
Definition m_global_parameters.fpp.f90:80
m_global_parameters::y_b
real(wp) y_b
Definition m_global_parameters.fpp.f90:66
m_global_parameters::mhd
logical mhd
Magnetohydrodynamics.
Definition m_global_parameters.fpp.f90:85
m_global_parameters::p
integer p
Definition m_global_parameters.fpp.f90:45
m_global_parameters::parallel_io
logical parallel_io
Format of the data files.
Definition m_global_parameters.fpp.f90:108
m_global_parameters::n
integer n
Definition m_global_parameters.fpp.f90:44
m_global_parameters::down_sample
logical down_sample
Down-sample the output data.
Definition m_global_parameters.fpp.f90:111
m_global_parameters::z_a
real(wp) z_a
Definition m_global_parameters.fpp.f90:65
m_global_parameters::file_per_process
logical file_per_process
type of data output
Definition m_global_parameters.fpp.f90:109
m_global_parameters::palpha_eps
real(wp) palpha_eps
trigger parameter for the p relaxation procedure, phase change model
Definition m_global_parameters.fpp.f90:72
m_global_parameters::stretch_y
logical stretch_y
Definition m_global_parameters.fpp.f90:61
m_global_parameters::surface_tension
logical surface_tension
Definition m_global_parameters.fpp.f90:191
m_global_parameters::t_step_start
integer t_step_start
Existing IC/grid folder.
Definition m_global_parameters.fpp.f90:36
m_global_parameters::m_glb
integer m_glb
Definition m_global_parameters.fpp.f90:50
m_global_parameters::nb
integer nb
Definition m_global_parameters.fpp.f90:155
m_global_parameters::mixlayer_vel_coef
real(wp) mixlayer_vel_coef
Coefficient for the hyperbolic tangent streamwise velocity profile.
Definition m_global_parameters.fpp.f90:113
m_global_parameters::n_glb
integer n_glb
Definition m_global_parameters.fpp.f90:50
m_global_parameters::x_a
real(wp) x_a
Definition m_global_parameters.fpp.f90:65
m_global_parameters::mpp_lim
logical mpp_lim
Alpha limiter.
Definition m_global_parameters.fpp.f90:75
m_global_parameters::perturb_flow
logical perturb_flow
Definition m_global_parameters.fpp.f90:124
m_global_parameters::igr_order
integer igr_order
IGR reconstruction order.
Definition m_global_parameters.fpp.f90:93
m_global_parameters::old_ic
logical old_ic
Definition m_global_parameters.fpp.f90:35
m_global_parameters::bub_pp
type(subgrid_bubble_physical_parameters) bub_pp
Definition m_global_parameters.fpp.f90:150
m_global_parameters::rhorv
real(wp) rhorv
standard deviations in R/V
Definition m_global_parameters.fpp.f90:161
m_global_parameters::m
integer m
Definition m_global_parameters.fpp.f90:43
m_global_parameters::relativity
logical relativity
Relativity for RMHD.
Definition m_global_parameters.fpp.f90:86
m_global_parameters::num_ibs
integer num_ibs
Number of immersed boundaries.
Definition m_global_parameters.fpp.f90:168
m_global_parameters::mixlayer_vel_profile
logical mixlayer_vel_profile
Set hyperbolic tangent streamwise velocity profile.
Definition m_global_parameters.fpp.f90:112
m_global_parameters::patch_ib
type(ib_patch_parameters), dimension(num_ib_patches_max) patch_ib
Immersed boundary patch parameters.
Definition m_global_parameters.fpp.f90:170
m_global_parameters::loops_y
integer loops_y
Definition m_global_parameters.fpp.f90:64
m_global_parameters::y_a
real(wp) y_a
Definition m_global_parameters.fpp.f90:65
m_global_parameters::cfl_dt
logical cfl_dt
Definition m_global_parameters.fpp.f90:37
m_global_parameters::mixlayer_perturb
logical mixlayer_perturb
Superimpose instability waves to surrounding fluid flow.
Definition m_global_parameters.fpp.f90:114
m_helper
Utility routines for bubble model setup, coordinate transforms, array sampling, and special functions...
Definition m_helper.fpp.f90:328
m_mpi_common
MPI communication layer: domain decomposition, halo exchange, reductions, and parallel I/O setup.
Definition m_mpi_common.fpp.f90:328
m_mpi_proxy
Broadcasts user inputs and decomposes the domain across MPI ranks for pre-processing.
Definition m_mpi_proxy.fpp.f90:7
m_mpi_proxy::s_mpi_bcast_user_inputs
impure subroutine s_mpi_bcast_user_inputs
Since only processor with rank 0 is in charge of reading and checking the consistency of the user pro...
Definition m_mpi_proxy.fpp.f90:24