SFEMaNS  version 4.1 (work in progress)
Reference documentation for SFEMaNS
 All Classes Files Functions Variables Groups Pages
interface_for_condlim.f90
Go to the documentation of this file.
4  procedure(sub_init_temperature), POINTER :: init_temperature
5  procedure(sub_init_level_set), POINTER :: init_level_set
9  procedure(sub_vv_exact), POINTER :: vv_exact
11  procedure(sub_pp_exact), POINTER :: pp_exact
13  procedure(sub_level_set_exact), POINTER :: level_set_exact
16  procedure(sub_vexact), POINTER :: vexact
17  procedure(sub_h_b_quasi_static), POINTER :: h_b_quasi_static
18  procedure(sub_hexact), POINTER :: hexact
19  procedure(sub_phiexact), POINTER :: phiexact
20  procedure(sub_jexact_gauss), POINTER :: jexact_gauss
21  procedure(sub_eexact_gauss), POINTER :: eexact_gauss
22  procedure(sub_init_maxwell), POINTER :: init_maxwell
25  procedure(sub_mu_in_real_space), POINTER :: mu_in_real_space
28 END module interface_boundary
29 
31  USE boundary_generic, ONLY : init_velocity_pressure_generic => init_velocity_pressure, &
32  init_temperature_generic => init_temperature, &
33  init_level_set_generic => init_level_set, &
34  source_in_ns_momentum_generic => source_in_ns_momentum, &
35  source_in_temperature_generic => source_in_temperature, &
36  source_in_level_set_generic => source_in_level_set, &
37  vv_exact_generic => vv_exact, &
38  imposed_velocity_by_penalty_generic => imposed_velocity_by_penalty, &
39  pp_exact_generic => pp_exact, &
40  temperature_exact_generic => temperature_exact, &
41  level_set_exact_generic => level_set_exact, &
42  penal_in_real_space_generic => penal_in_real_space, &
43  extension_velocity_generic => extension_velocity, &
44  vexact_generic => vexact, &
45  h_b_quasi_static_generic => h_b_quasi_static, &
46  hexact_generic => hexact, &
47  phiexact_generic => phiexact, &
48  jexact_gauss_generic => jexact_gauss, &
49  eexact_gauss_generic => eexact_gauss, &
50  init_maxwell_generic => init_maxwell, &
51  mu_bar_in_fourier_space_generic => mu_bar_in_fourier_space, &
52  grad_mu_bar_in_fourier_space_generic => grad_mu_bar_in_fourier_space, &
53  mu_in_real_space_generic => mu_in_real_space, &
54  sigma_bar_in_fourier_space_generic => sigma_bar_in_fourier_space, &
55  kelvin_force_coeff_generic => kelvin_force_coeff
57 
59  USE boundary_test_1, ONLY : init_velocity_pressure_test_1 => init_velocity_pressure, &
60 !!$ init_temperature_test_1 => init_temperature, &
61 !!$ init_level_set_test_1 => init_level_set, &
62  source_in_ns_momentum_test_1 => source_in_ns_momentum, &
63 !!$ source_in_temperature_test_1 => source_in_temperature, &
64 !!$ source_in_level_set_test_1 => source_in_level_set, &
65  vv_exact_test_1 => vv_exact, &
66 !!$ imposed_velocity_by_penalty_test_1 => imposed_velocity_by_penalty, &
67  pp_exact_test_1 => pp_exact
68 !!$ temperature_exact_test_1 => temperature_exact, &
69 !!$ level_set_exact_test_1 => level_set_exact, &
70 !!$ penal_in_real_space_test_1 => penal_in_real_space, &
71 !!$ extension_velocity_test_1 => extension_velocity, &
72 !!$ Vexact_test_1 => Vexact, &
73 !!$ H_B_quasi_static_test_1 => H_B_quasi_static, &
74 !!$ Hexact_test_1 => Hexact, &
75 !!$ Phiexact_test_1 => Phiexact, &
76 !!$ Jexact_gauss_test_1 => Jexact_gauss, &
77 !!$ Eexact_gauss_test_1 => Eexact_gauss, &
78 !!$ init_maxwell_test_1 => init_maxwell, &
79 !!$ mu_bar_in_fourier_space_test_1 => mu_bar_in_fourier_space, &
80 !!$ grad_mu_bar_in_fourier_space_test_1 => grad_mu_bar_in_fourier_space, &
81 !!$ mu_in_real_space_test_1 => mu_in_real_space
82 END module point_to_boundary_test_1
84  USE boundary_test_2, ONLY : init_velocity_pressure_test_2 => init_velocity_pressure, &
85 !!$ init_temperature_test_2 => init_temperature, &
86 !!$ init_level_set_test_2 => init_level_set, &
87  source_in_ns_momentum_test_2 => source_in_ns_momentum, &
88 !!$ source_in_temperature_test_2 => source_in_temperature, &
89 !!$ source_in_level_set_test_2 => source_in_level_set, &
90  vv_exact_test_2 => vv_exact, &
91 !!$ imposed_velocity_by_penalty_test_2 => imposed_velocity_by_penalty, &
92  pp_exact_test_2 => pp_exact
93 !!$ temperature_exact_test_2 => temperature_exact, &
94 !!$ level_set_exact_test_2 => level_set_exact, &
95 !!$ penal_in_real_space_test_2 => penal_in_real_space, &
96 !!$ extension_velocity_test_2 => extension_velocity, &
97 !!$ Vexact_test_2 => Vexact, &
98 !!$ H_B_quasi_static_test_2 => H_B_quasi_static, &
99 !!$ Hexact_test_2 => Hexact, &
100 !!$ Phiexact_test_2 => Phiexact, &
101 !!$ Jexact_gauss_test_2 => Jexact_gauss, &
102 !!$ Eexact_gauss_test_2 => Eexact_gauss, &
103 !!$ init_maxwell_test_2 => init_maxwell, &
104 !!$ mu_bar_in_fourier_space_test_2 => mu_bar_in_fourier_space, &
105 !!$ grad_mu_bar_in_fourier_space_test_2 => grad_mu_bar_in_fourier_space, &
106 !!$ mu_in_real_space_test_2 => mu_in_real_space
107 END module point_to_boundary_test_2
109 !!$ USE boundary_test_3, ONLY : init_velocity_pressure_test_3 => init_velocity_pressure, &
110 !!$ init_temperature_test_3 => init_temperature, &
111 !!$ init_level_set_test_3 => init_level_set, &
112 !!$ source_in_NS_momentum_test_3 => source_in_NS_momentum, &
113 !!$ source_in_temperature_test_3 => source_in_temperature, &
114 !!$ source_in_level_set_test_3 => source_in_level_set, &
115 !!$ vv_exact_test_3 => vv_exact, &
116 !!$ imposed_velocity_by_penalty_test_3 => imposed_velocity_by_penalty, &
117 !!$ pp_exact_test_3 => pp_exact, &
118 !!$ temperature_exact_test_3 => temperature_exact, &
119 !!$ level_set_exact_test_3 => level_set_exact, &
120 !!$ penal_in_real_space_test_3 => penal_in_real_space, &
121 !!$ extension_velocity_test_3 => extension_velocity, &
122  USE boundary_test_3, ONLY : vexact_test_3 => vexact, &
123 !!$ H_B_quasi_static_test_3 => H_B_quasi_static, &
124  hexact_test_3 => hexact, &
125  phiexact_test_3 => phiexact, &
126  jexact_gauss_test_3 => jexact_gauss, &
127  eexact_gauss_test_3 => eexact_gauss, &
128  init_maxwell_test_3 => init_maxwell
129 !!$ mu_bar_in_fourier_space_test_3 => mu_bar_in_fourier_space, &
130 !!$ grad_mu_bar_in_fourier_space_test_3 => grad_mu_bar_in_fourier_space, &
131 !!$ mu_in_real_space_test_3 => mu_in_real_space
132 END module point_to_boundary_test_3
134 !!$ USE boundary_test_4, ONLY : init_velocity_pressure_test_4 => init_velocity_pressure, &
135 !!$ init_temperature_test_4 => init_temperature, &
136 !!$ init_level_set_test_4 => init_level_set, &
137 !!$ source_in_NS_momentum_test_4 => source_in_NS_momentum, &
138 !!$ source_in_temperature_test_4 => source_in_temperature, &
139 !!$ source_in_level_set_test_4 => source_in_level_set, &
140 !!$ vv_exact_test_4 => vv_exact, &
141 !!$ imposed_velocity_by_penalty_test_4 => imposed_velocity_by_penalty, &
142 !!$ pp_exact_test_4 => pp_exact, &
143 !!$ temperature_exact_test_4 => temperature_exact, &
144 !!$ level_set_exact_test_4 => level_set_exact, &
145 !!$ penal_in_real_space_test_4 => penal_in_real_space, &
146 !!$ extension_velocity_test_4 => extension_velocity, &
147  USE boundary_test_4, ONLY : vexact_test_4 => vexact, &
148 !!$ H_B_quasi_static_test_4 => H_B_quasi_static, &
149  hexact_test_4 => hexact, &
150  phiexact_test_4 => phiexact, &
151  jexact_gauss_test_4 => jexact_gauss, &
152  eexact_gauss_test_4 => eexact_gauss, &
153  init_maxwell_test_4 => init_maxwell
154 !!$ mu_bar_in_fourier_space_test_4 => mu_bar_in_fourier_space, &
155 !!$ grad_mu_bar_in_fourier_space_test_4 => grad_mu_bar_in_fourier_space, &
156 !!$ mu_in_real_space_test_4 => mu_in_real_space
157 END module point_to_boundary_test_4
159 !!$ USE boundary_test_5, ONLY : init_velocity_pressure_test_5 => init_velocity_pressure, &
160 !!$ init_temperature_test_5 => init_temperature, &
161 !!$ init_level_set_test_5 => init_level_set, &
162 !!$ source_in_NS_momentum_test_5 => source_in_NS_momentum, &
163 !!$ source_in_temperature_test_5 => source_in_temperature, &
164 !!$ source_in_level_set_test_5 => source_in_level_set, &
165 !!$ vv_exact_test_5 => vv_exact, &
166 !!$ imposed_velocity_by_penalty_test_5 => imposed_velocity_by_penalty, &
167 !!$ pp_exact_test_5 => pp_exact, &
168 !!$ temperature_exact_test_5 => temperature_exact, &
169 !!$ level_set_exact_test_5 => level_set_exact, &
170 !!$ penal_in_real_space_test_5 => penal_in_real_space, &
171 !!$ extension_velocity_test_5 => extension_velocity, &
172  USE boundary_test_5, ONLY : vexact_test_5 => vexact, &
173 !!$ H_B_quasi_static_test_5 => H_B_quasi_static, &
174  hexact_test_5 => hexact, &
175  phiexact_test_5 => phiexact, &
176  jexact_gauss_test_5 => jexact_gauss, &
177  eexact_gauss_test_5 => eexact_gauss, &
178  init_maxwell_test_5 => init_maxwell
179 !!$ mu_bar_in_fourier_space_test_5 => mu_bar_in_fourier_space, &
180 !!$ grad_mu_bar_in_fourier_space_test_5 => grad_mu_bar_in_fourier_space, &
181 !!$ mu_in_real_space_test_5 => mu_in_real_space
182 END module point_to_boundary_test_5
184 !!$ USE boundary_test_6, ONLY : init_velocity_pressure_test_6 => init_velocity_pressure, &
185 !!$ init_temperature_test_6 => init_temperature, &
186 !!$ init_level_set_test_6 => init_level_set, &
187 !!$ source_in_NS_momentum_test_6 => source_in_NS_momentum, &
188 !!$ source_in_temperature_test_6 => source_in_temperature, &
189 !!$ source_in_level_set_test_6 => source_in_level_set, &
190 !!$ vv_exact_test_6 => vv_exact, &
191 !!$ imposed_velocity_by_penalty_test_6 => imposed_velocity_by_penalty, &
192 !!$ pp_exact_test_6 => pp_exact, &
193 !!$ temperature_exact_test_6 => temperature_exact, &
194 !!$ level_set_exact_test_6 => level_set_exact, &
195 !!$ penal_in_real_space_test_6 => penal_in_real_space, &
196 !!$ extension_velocity_test_6 => extension_velocity, &
197  USE boundary_test_6, ONLY : vexact_test_6 => vexact, &
198 !!$ H_B_quasi_static_test_6 => H_B_quasi_static, &
199  hexact_test_6 => hexact, &
200  phiexact_test_6 => phiexact, &
201  jexact_gauss_test_6 => jexact_gauss, &
202  eexact_gauss_test_6 => eexact_gauss, &
203  init_maxwell_test_6 => init_maxwell
204 !!$ mu_bar_in_fourier_space_test_6 => mu_bar_in_fourier_space, &
205 !!$ grad_mu_bar_in_fourier_space_test_6 => grad_mu_bar_in_fourier_space, &
206 !!$ mu_in_real_space_test_6 => mu_in_real_space
207 END module point_to_boundary_test_6
209 !!$ USE boundary_test_7, ONLY : init_velocity_pressure_test_7 => init_velocity_pressure, &
210 !!$ init_temperature_test_7 => init_temperature, &
211 !!$ init_level_set_test_7 => init_level_set, &
212 !!$ source_in_NS_momentum_test_7 => source_in_NS_momentum, &
213 !!$ source_in_temperature_test_7 => source_in_temperature, &
214 !!$ source_in_level_set_test_7 => source_in_level_set, &
215 !!$ vv_exact_test_7 => vv_exact, &
216 !!$ imposed_velocity_by_penalty_test_7 => imposed_velocity_by_penalty, &
217 !!$ pp_exact_test_7 => pp_exact, &
218 !!$ temperature_exact_test_7 => temperature_exact, &
219 !!$ level_set_exact_test_7 => level_set_exact, &
220 !!$ penal_in_real_space_test_7 => penal_in_real_space, &
221 !!$ extension_velocity_test_7 => extension_velocity, &
222  USE boundary_test_7, ONLY : vexact_test_7 => vexact, &
223 !!$ H_B_quasi_static_test_7 => H_B_quasi_static, &
224  hexact_test_7 => hexact, &
225  phiexact_test_7 => phiexact, &
226  jexact_gauss_test_7 => jexact_gauss, &
227  eexact_gauss_test_7 => eexact_gauss, &
228  init_maxwell_test_7 => init_maxwell
229 !!$ mu_bar_in_fourier_space_test_7 => mu_bar_in_fourier_space, &
230 !!$ grad_mu_bar_in_fourier_space_test_7 => grad_mu_bar_in_fourier_space, &
231 !!$ mu_in_real_space_test_7 => mu_in_real_space
232 END module point_to_boundary_test_7
234  USE boundary_test_8, ONLY : init_velocity_pressure_test_8 => init_velocity_pressure, &
235  init_temperature_test_8 => init_temperature, &
236 !!$ init_level_set_test_8 => init_level_set, &
237  source_in_ns_momentum_test_8 => source_in_ns_momentum, &
238  source_in_temperature_test_8 => source_in_temperature, &
239 !!$ source_in_level_set_test_8 => source_in_level_set, &
240  vv_exact_test_8 => vv_exact, &
241 !!$ imposed_velocity_by_penalty_test_8 => imposed_velocity_by_penalty, &
242  pp_exact_test_8 => pp_exact, &
243  temperature_exact_test_8 => temperature_exact, &
244 !!$ level_set_exact_test_8 => level_set_exact, &
245 !!$ penal_in_real_space_test_8 => penal_in_real_space, &
246  extension_velocity_test_8 => extension_velocity
247 !!$ Vexact_test_8 => Vexact, &
248 !!$ H_B_quasi_static_test_8 => H_B_quasi_static, &
249 !!$ Hexact_test_8 => Hexact, &
250 !!$ Phiexact_test_8 => Phiexact, &
251 !!$ Jexact_gauss_test_8 => Jexact_gauss, &
252 !!$ Eexact_gauss_test_8 => Eexact_gauss, &
253 !!$ init_maxwell_test_8 => init_maxwell , &
254 !!$ mu_bar_in_fourier_space_test_8 => mu_bar_in_fourier_space, &
255 !!$ grad_mu_bar_in_fourier_space_test_8 => grad_mu_bar_in_fourier_space, &
256 !!$ mu_in_real_space_test_8 => mu_in_real_space
257 END module point_to_boundary_test_8
259  USE boundary_test_9, ONLY : init_velocity_pressure_test_9 => init_velocity_pressure, &
260  init_temperature_test_9 => init_temperature, &
261 !!$ init_level_set_test_9 => init_level_set, &
262  source_in_ns_momentum_test_9 => source_in_ns_momentum, &
263  source_in_temperature_test_9 => source_in_temperature, &
264 !!$ source_in_level_set_test_9 => source_in_level_set, &
265  vv_exact_test_9 => vv_exact, &
266 !!$ imposed_velocity_by_penalty_test_9 => imposed_velocity_by_penalty, &
267  pp_exact_test_9 => pp_exact, &
268  temperature_exact_test_9 => temperature_exact, &
269 !!$ level_set_exact_test_9 => level_set_exact, &
270 !!$ penal_in_real_space_test_9 => penal_in_real_space, &
271  extension_velocity_test_9 => extension_velocity
272 !!$ Vexact_test_9 => Vexact, &
273 !!$ H_B_quasi_static_test_9 => H_B_quasi_static, &
274 !!$ Hexact_test_9 => Hexact, &
275 !!$ Phiexact_test_9 => Phiexact, &
276 !!$ Jexact_gauss_test_9 => Jexact_gauss, &
277 !!$ Eexact_gauss_test_9 => Eexact_gauss, &
278 !!$ init_maxwell_test_9 => init_maxwell, &
279 !!$ mu_bar_in_fourier_space_test_9 => mu_bar_in_fourier_space, &
280 !!$ grad_mu_bar_in_fourier_space_test_9 => grad_mu_bar_in_fourier_space, &
281 !!$ mu_in_real_space_test_9 => mu_in_real_space
282  END module point_to_boundary_test_9
284 !!$ USE boundary_test_10, ONLY : init_velocity_pressure_test_10 => init_velocity_pressure, &
285 !!$ init_temperature_test_10 => init_temperature, &
286 !!$ init_level_set_test_10 => init_level_set, &
287 !!$ source_in_NS_momentum_test_10 => source_in_NS_momentum, &
288 !!$ source_in_temperature_test_10 => source_in_temperature, &
289 !!$ source_in_level_set_test_10 => source_in_level_set, &
290 !!$ vv_exact_test_10 => vv_exact, &
291 !!$ imposed_velocity_by_penalty_test_10 => imposed_velocity_by_penalty, &
292 !!$ pp_exact_test_10 => pp_exact, &
293 !!$ temperature_exact_test_10 => temperature_exact, &
294 !!$ level_set_exact_test_10 => level_set_exact, &
295 !!$ penal_in_real_space_test_10 => penal_in_real_space, &
296 !!$ extension_velocity_test_10 => extension_velocity, &
297  USE boundary_test_10, ONLY : vexact_test_10 => vexact, &
298 !!$ H_B_quasi_static_test_10 => H_B_quasi_static, &
299  hexact_test_10 => hexact, &
300  phiexact_test_10 => phiexact, &
301  jexact_gauss_test_10 => jexact_gauss, &
302  eexact_gauss_test_10 => eexact_gauss, &
303  init_maxwell_test_10 => init_maxwell
304 !!$ mu_bar_in_fourier_space_test_10 => mu_bar_in_fourier_space, &
305 !!$ grad_mu_bar_in_fourier_space_test_10 => grad_mu_bar_in_fourier_space, &
306 !!$ mu_in_real_space_test_10 => mu_in_real_space
307 END module point_to_boundary_test_10
309  USE boundary_test_11, ONLY : init_velocity_pressure_test_11 => init_velocity_pressure, &
310  init_temperature_test_11 => init_temperature, &
311 !!$ init_level_set_test_11 => init_level_set, &
312  source_in_ns_momentum_test_11 => source_in_ns_momentum, &
313  source_in_temperature_test_11 => source_in_temperature, &
314 !!$ source_in_level_set_test_11 => source_in_level_set, &
315  vv_exact_test_11 => vv_exact, &
316 !!$ imposed_velocity_by_penalty_test_11 => imposed_velocity_by_penalty, &
317  pp_exact_test_11 => pp_exact, &
318  temperature_exact_test_11 => temperature_exact, &
319 !!$ level_set_exact_test_11 => level_set_exact, &
320 !!$ penal_in_real_space_test_11 => penal_in_real_space, &
321  extension_velocity_test_11 => extension_velocity, &
322 !!$ Vexact_test_11 => Vexact, &
323 !!$ H_B_quasi_static_test_11 => H_B_quasi_static, &
324  hexact_test_11 => hexact, &
325  phiexact_test_11 => phiexact, &
326  jexact_gauss_test_11 => jexact_gauss, &
327  eexact_gauss_test_11 => eexact_gauss, &
328  init_maxwell_test_11 => init_maxwell
329 !!$ mu_bar_in_fourier_space_test_11 => mu_bar_in_fourier_space, &
330 !!$ grad_mu_bar_in_fourier_space_test_11 => grad_mu_bar_in_fourier_space, &
331 !!$ mu_in_real_space_test_11 => mu_in_real_space
332 END module point_to_boundary_test_11
334 !!$ USE boundary_test_12, ONLY : init_velocity_pressure_test_12 => init_velocity_pressure, &
335 !!$ init_temperature_test_12 => init_temperature, &
336 !!$ init_level_set_test_12 => init_level_set, &
337 !!$ source_in_NS_momentum_test_12 => source_in_NS_momentum, &
338 !!$ source_in_temperature_test_12 => source_in_temperature, &
339 !!$ source_in_level_set_test_12 => source_in_level_set, &
340 !!$ vv_exact_test_12 => vv_exact, &
341 !!$ imposed_velocity_by_penalty_test_12 => imposed_velocity_by_penalty, &
342 !!$ pp_exact_test_12 => pp_exact, &
343 !!$ temperature_exact_test_12 => temperature_exact, &
344 !!$ level_set_exact_test_12 => level_set_exact, &
345 !!$ penal_in_real_space_test_12 => penal_in_real_space, &
346 !!$ extension_velocity_test_12 => extension_velocity, &
347  USE boundary_test_12, ONLY : vexact_test_12 => vexact, &
348 !!$ H_B_quasi_static_test_12 => H_B_quasi_static, &
349  hexact_test_12 => hexact, &
350  phiexact_test_12 => phiexact, &
351  jexact_gauss_test_12 => jexact_gauss, &
352  eexact_gauss_test_12 => eexact_gauss, &
353  init_maxwell_test_12 => init_maxwell
354 !!$ mu_bar_in_fourier_space_test_12 => mu_bar_in_fourier_space, &
355 !!$ grad_mu_bar_in_fourier_space_test_12 => grad_mu_bar_in_fourier_space, &
356 !!$ mu_in_real_space_test_12 => mu_in_real_space
357 END module point_to_boundary_test_12
359  USE boundary_test_13, ONLY : init_velocity_pressure_test_13 => init_velocity_pressure, &
360 !!$ init_temperature_test_13 => init_temperature, &
361 !!$ init_level_set_test_13 => init_level_set, &
362  source_in_ns_momentum_test_13 => source_in_ns_momentum, &
363 !!$ source_in_temperature_test_13 => source_in_temperature, &
364 !!$ source_in_level_set_test_13 => source_in_level_set, &
365  vv_exact_test_13 => vv_exact, &
366 !!$ imposed_velocity_by_penalty_test_13 => imposed_velocity_by_penalty, &
367  pp_exact_test_13 => pp_exact, &
368 !!$ temperature_exact_test_13 => temperature_exact, &
369 !!$ level_set_exact_test_13 => level_set_exact, &
370 !!$ penal_in_real_space_test_13 => penal_in_real_space, &
371  extension_velocity_test_13 => extension_velocity, &
372 !!$ Vexact_test_13 => Vexact, &
373 !!$ H_B_quasi_static_test_13 => H_B_quasi_static, &
374  hexact_test_13 => hexact, &
375  phiexact_test_13 => phiexact, &
376  jexact_gauss_test_13 => jexact_gauss, &
377  eexact_gauss_test_13 => eexact_gauss, &
378  init_maxwell_test_13 => init_maxwell
379 !!$ mu_bar_in_fourier_space_test_13 => mu_bar_in_fourier_space, &
380 !!$ grad_mu_bar_in_fourier_space_test_13 => grad_mu_bar_in_fourier_space, &
381 !!$ mu_in_real_space_test_13 => mu_in_real_space
382 END module point_to_boundary_test_13
384 !!$ USE boundary_test_14, ONLY : init_velocity_pressure_test_14 => init_velocity_pressure, &
385 !!$ init_temperature_test_14 => init_temperature, &
386 !!$ init_level_set_test_14 => init_level_set, &
387 !!$ source_in_NS_momentum_test_14 => source_in_NS_momentum, &
388 !!$ source_in_temperature_test_14 => source_in_temperature, &
389 !!$ source_in_level_set_test_14 => source_in_level_set, &
390 !!$ vv_exact_test_14 => vv_exact, &
391 !!$ imposed_velocity_by_penalty_test_14 => imposed_velocity_by_penalty, &
392 !!$ pp_exact_test_14 => pp_exact, &
393 !!$ temperature_exact_test_14 => temperature_exact, &
394 !!$ level_set_exact_test_14 => level_set_exact, &
395 !!$ penal_in_real_space_test_14 => penal_in_real_space, &
396 !!$ extension_velocity_test_14 => extension_velocity, &
397  USE boundary_test_14, ONLY : vexact_test_14 => vexact, &
398 !!$ H_B_quasi_static_test_14 => H_B_quasi_static, &
399  hexact_test_14 => hexact, &
400  phiexact_test_14 => phiexact, &
401  jexact_gauss_test_14 => jexact_gauss, &
402  eexact_gauss_test_14 => eexact_gauss, &
403  init_maxwell_test_14 => init_maxwell
404 !!$ mu_bar_in_fourier_space_test_14 => mu_bar_in_fourier_space, &
405 !!$ grad_mu_bar_in_fourier_space_test_14 => grad_mu_bar_in_fourier_space, &
406 !!$ mu_in_real_space_test_14 => mu_in_real_space
407 END module point_to_boundary_test_14
409  USE boundary_test_15, ONLY : init_velocity_pressure_test_15 => init_velocity_pressure, &
410  init_temperature_test_15 => init_temperature, &
411 !!$ init_level_set_test_15 => init_level_set, &
412  source_in_ns_momentum_test_15 => source_in_ns_momentum, &
413  source_in_temperature_test_15 => source_in_temperature, &
414 !!$ source_in_level_set_test_15 => source_in_level_set, &
415  vv_exact_test_15 => vv_exact, &
416 !!$ imposed_velocity_by_penalty_test_15 => imposed_velocity_by_penalty, &
417  pp_exact_test_15 => pp_exact, &
418  temperature_exact_test_15 => temperature_exact, &
419 !!$ level_set_exact_test_15 => level_set_exact, &
420 !!$ penal_in_real_space_test_15 => penal_in_real_space, &
421  extension_velocity_test_15 => extension_velocity
422 !!$ Vexact_test_15 => Vexact, &
423 !!$ H_B_quasi_static_test_15 => H_B_quasi_static, &
424 !!$ Hexact_test_15 => Hexact, &
425 !!$ Phiexact_test_15 => Phiexact, &
426 !!$ Jexact_gauss_test_15 => Jexact_gauss, &
427 !!$ Eexact_gauss_test_15 => Eexact_gauss, &
428 !!$ init_maxwell_test_15 => init_maxwell , &
429 !!$ mu_bar_in_fourier_space_test_15 => mu_bar_in_fourier_space, &
430 !!$ grad_mu_bar_in_fourier_space_test_15 => grad_mu_bar_in_fourier_space, &
431 !!$ mu_in_real_space_test_15 => mu_in_real_space
432 END module point_to_boundary_test_15
434  USE boundary_test_16, ONLY : init_velocity_pressure_test_16 => init_velocity_pressure, &
435 !!$ init_temperature_test_16 => init_temperature, &
436 !!$ init_level_set_test_16 => init_level_set, &
437  source_in_ns_momentum_test_16 => source_in_ns_momentum, &
438 !!$ source_in_temperature_test_16 => source_in_temperature, &
439 !!$ source_in_level_set_test_16 => source_in_level_set, &
440  vv_exact_test_16 => vv_exact, &
441 !!$ imposed_velocity_by_penalty_test_16 => imposed_velocity_by_penalty, &
442  pp_exact_test_16 => pp_exact
443 !!$ temperature_exact_test_16 => temperature_exact, &
444 !!$ level_set_exact_test_16 => level_set_exact, &
445 !!$ penal_in_real_space_test_16 => penal_in_real_space, &
446 !!$ extension_velocity_test_16 => extension_velocity, &
447 !!$ Vexact_test_16 => Vexact, &
448 !!$ H_B_quasi_static_test_16 => H_B_quasi_static, &
449 !!$ Hexact_test_16 => Hexact, &
450 !!$ Phiexact_test_16 => Phiexact, &
451 !!$ Jexact_gauss_test_16 => Jexact_gauss, &
452 !!$ Eexact_gauss_test_16 => Eexact_gauss, &
453 !!$ init_maxwell_test_16 => init_maxwell , &
454 !!$ mu_bar_in_fourier_space_test_16 => mu_bar_in_fourier_space, &
455 !!$ grad_mu_bar_in_fourier_space_test_16 => grad_mu_bar_in_fourier_space, &
456 !!$ mu_in_real_space_test_16 => mu_in_real_space
457 END module point_to_boundary_test_16
459 !!$ USE boundary_test_17, ONLY : init_velocity_pressure_test_17 => init_velocity_pressure, &
460 !!$ init_temperature_test_17 => init_temperature, &
461 !!$ init_level_set_test_17 => init_level_set, &
462 !!$ source_in_NS_momentum_test_17 => source_in_NS_momentum, &
463 !!$ source_in_temperature_test_17 => source_in_temperature, &
464 !!$ source_in_level_set_test_17 => source_in_level_set, &
465 !!$ vv_exact_test_17 => vv_exact, &
466 !!$ imposed_velocity_by_penalty_test_17 => imposed_velocity_by_penalty, &
467 !!$ pp_exact_test_17 => pp_exact, &
468 !!$ temperature_exact_test_17 => temperature_exact, &
469 !!$ level_set_exact_test_17 => level_set_exact, &
470 !!$ penal_in_real_space_test_17 => penal_in_real_space, &
471 !!$ extension_velocity_test_17 => extension_velocity, &
472  USE boundary_test_17, ONLY : vexact_test_17 => vexact, &
473 !!$ H_B_quasi_static_test_17 => H_B_quasi_static, &
474  hexact_test_17 => hexact, &
475  phiexact_test_17 => phiexact, &
476  jexact_gauss_test_17 => jexact_gauss, &
477  eexact_gauss_test_17 => eexact_gauss, &
478  init_maxwell_test_17 => init_maxwell , &
479  mu_bar_in_fourier_space_test_17 => mu_bar_in_fourier_space, &
480  grad_mu_bar_in_fourier_space_test_17 => grad_mu_bar_in_fourier_space
481 !!$ mu_in_real_space_test_17 => mu_in_real_space
482 END module point_to_boundary_test_17
484 !!$ USE boundary_test_18, ONLY : init_velocity_pressure_test_18 => init_velocity_pressure, &
485 !!$ init_temperature_test_18 => init_temperature, &
486 !!$ init_level_set_test_18 => init_level_set, &
487 !!$ source_in_NS_momentum_test_18 => source_in_NS_momentum, &
488 !!$ source_in_temperature_test_18 => source_in_temperature, &
489 !!$ source_in_level_set_test_18 => source_in_level_set, &
490 !!$ vv_exact_test_18 => vv_exact, &
491 !!$ imposed_velocity_by_penalty_test_18 => imposed_velocity_by_penalty, &
492 !!$ pp_exact_test_18 => pp_exact, &
493 !!$ temperature_exact_test_18 => temperature_exact, &
494 !!$ level_set_exact_test_18 => level_set_exact, &
495 !!$ penal_in_real_space_test_18 => penal_in_real_space, &
496 !!$ extension_velocity_test_18 => extension_velocity, &
497  USE boundary_test_18, ONLY : vexact_test_18 => vexact, &
498 !!$ H_B_quasi_static_test_18 => H_B_quasi_static, &
499  hexact_test_18 => hexact, &
500  phiexact_test_18 => phiexact, &
501  jexact_gauss_test_18 => jexact_gauss, &
502  eexact_gauss_test_18 => eexact_gauss, &
503  init_maxwell_test_18 => init_maxwell , &
504  mu_bar_in_fourier_space_test_18 => mu_bar_in_fourier_space, &
505  grad_mu_bar_in_fourier_space_test_18 => grad_mu_bar_in_fourier_space
506 !!$ mu_in_real_space_test_18 => mu_in_real_space
507 END module point_to_boundary_test_18
509  USE boundary_test_19, ONLY : init_velocity_pressure_test_19 => init_velocity_pressure, &
510 !!$ init_temperature_test_19 => init_temperature, &
511  init_level_set_test_19 => init_level_set, &
512  source_in_ns_momentum_test_19 => source_in_ns_momentum, &
513 !!$ source_in_temperature_test_19 => source_in_temperature, &
514  source_in_level_set_test_19 => source_in_level_set, &
515  vv_exact_test_19 => vv_exact, &
516 !!$ imposed_velocity_by_penalty_test_19 => imposed_velocity_by_penalty, &
517  pp_exact_test_19 => pp_exact, &
518 !!$ temperature_exact_test_19 => temperature_exact, &
519  level_set_exact_test_19 => level_set_exact
520 !!$ penal_in_real_space_test_19 => penal_in_real_space, &
521 !!$ extension_velocity_test_19 => extension_velocity, &
522 !!$ Vexact_test_19 => Vexact, &
523 !!$ H_B_quasi_static_test_19 => H_B_quasi_static, &
524 !!$ Hexact_test_19 => Hexact, &
525 !!$ Phiexact_test_19 => Phiexact, &
526 !!$ Jexact_gauss_test_19 => Jexact_gauss, &
527 !!$ Eexact_gauss_test_19 => Eexact_gauss, &
528 !!$ init_maxwell_test_19 => init_maxwell , &
529 !!$ mu_bar_in_fourier_space_test_19 => mu_bar_in_fourier_space, &
530 !!$ grad_mu_bar_in_fourier_space_test_19 => grad_mu_bar_in_fourier_space, &
531 !!$ mu_in_real_space_test_19 => mu_in_real_space
532 END module point_to_boundary_test_19
534  USE boundary_test_20, ONLY : init_velocity_pressure_test_20 => init_velocity_pressure, &
535 !!$ init_temperature_test_20 => init_temperature, &
536  init_level_set_test_20 => init_level_set, &
537  source_in_ns_momentum_test_20 => source_in_ns_momentum, &
538 !!$ source_in_temperature_test_20 => source_in_temperature, &
539  source_in_level_set_test_20 => source_in_level_set, &
540  vv_exact_test_20 => vv_exact, &
541 !!$ imposed_velocity_by_penalty_test_20 => imposed_velocity_by_penalty, &
542  pp_exact_test_20 => pp_exact, &
543 !!$ temperature_exact_test_20 => temperature_exact, &
544  level_set_exact_test_20 => level_set_exact
545 !!$ penal_in_real_space_test_20 => penal_in_real_space, &
546 !!$ extension_velocity_test_20 => extension_velocity, &
547 !!$ Vexact_test_20 => Vexact, &
548 !!$ H_B_quasi_static_test_20 => H_B_quasi_static, &
549 !!$ Hexact_test_20 => Hexact, &
550 !!$ Phiexact_test_20 => Phiexact, &
551 !!$ Jexact_gauss_test_20 => Jexact_gauss, &
552 !!$ Eexact_gauss_test_20 => Eexact_gauss, &
553 !!$ init_maxwell_test_20 => init_maxwell , &
554 !!$ mu_bar_in_fourier_space_test_20 => mu_bar_in_fourier_space, &
555 !!$ grad_mu_bar_in_fourier_space_test_20 => grad_mu_bar_in_fourier_space, &
556 !!$ mu_in_real_space_test_20 => mu_in_real_space
557 END module point_to_boundary_test_20
559  USE boundary_test_21, ONLY : init_velocity_pressure_test_21 => init_velocity_pressure, &
560 !!$ init_temperature_test_21 => init_temperature, &
561  init_level_set_test_21 => init_level_set, &
562  source_in_ns_momentum_test_21 => source_in_ns_momentum, &
563 !!$ source_in_temperature_test_21 => source_in_temperature, &
564  source_in_level_set_test_21 => source_in_level_set, &
565  vv_exact_test_21 => vv_exact, &
566 !!$ imposed_velocity_by_penalty_test_21 => imposed_velocity_by_penalty, &
567  pp_exact_test_21 => pp_exact, &
568 !!$ temperature_exact_test_21 => temperature_exact, &
569  level_set_exact_test_21 => level_set_exact, &
570 !!$ penal_in_real_space_test_21 => penal_in_real_space, &
571  extension_velocity_test_21 => extension_velocity, &
572 !!$ Vexact_test_21 => Vexact, &
573 !!$ H_B_quasi_static_test_21 => H_B_quasi_static, &
574  hexact_test_21 => hexact, &
575  phiexact_test_21 => phiexact, &
576  jexact_gauss_test_21 => jexact_gauss, &
577  eexact_gauss_test_21 => eexact_gauss, &
578  init_maxwell_test_21 => init_maxwell, &
579 !!$ mu_bar_in_fourier_space_test_21 => mu_bar_in_fourier_space, &
580 !!$ grad_mu_bar_in_fourier_space_test_21 => grad_mu_bar_in_fourier_space, &
581 !!$ mu_in_real_space_test_21 => mu_in_real_space
582  sigma_bar_in_fourier_space_21 => sigma_bar_in_fourier_space
583 END module point_to_boundary_test_21
585 !!$ USE boundary_test_22, ONLY : init_velocity_pressure_test_22 => init_velocity_pressure, &
586 !!$ init_temperature_test_22 => init_temperature, &
587 !!$ init_level_set_test_22 => init_level_set, &
588 !!$ source_in_NS_momentum_test_22 => source_in_NS_momentum, &
589 !!$ source_in_temperature_test_22 => source_in_temperature, &
590 !!$ source_in_level_set_test_22 => source_in_level_set, &
591 !!$ vv_exact_test_22 => vv_exact, &
592 !!$ imposed_velocity_by_penalty_test_22 => imposed_velocity_by_penalty, &
593 !!$ pp_exact_test_22 => pp_exact, &
594 !!$ temperature_exact_test_22 => temperature_exact, &
595 !!$ level_set_exact_test_22 => level_set_exact, &
596 !!$ penal_in_real_space_test_22 => penal_in_real_space, &
597 !!$ extension_velocity_test_22 => extension_velocity, &
598  USE boundary_test_22, ONLY : vexact_test_22 => vexact, &
599 !!$ H_B_quasi_static_test_22 => H_B_quasi_static, &
600  hexact_test_22 => hexact, &
601  phiexact_test_22 => phiexact, &
602  jexact_gauss_test_22 => jexact_gauss, &
603  eexact_gauss_test_22 => eexact_gauss, &
604  init_maxwell_test_22 => init_maxwell , &
605  mu_bar_in_fourier_space_test_22 => mu_bar_in_fourier_space, &
606  grad_mu_bar_in_fourier_space_test_22 => grad_mu_bar_in_fourier_space, &
607  mu_in_real_space_test_22 => mu_in_real_space
608 END module point_to_boundary_test_22
610 !!$ USE boundary_test_23, ONLY : init_velocity_pressure_test_23 => init_velocity_pressure, &
611 !!$ init_temperature_test_23 => init_temperature, &
612 !!$ init_level_set_test_23 => init_level_set, &
613 !!$ source_in_NS_momentum_test_23 => source_in_NS_momentum, &
614 !!$ source_in_temperature_test_23 => source_in_temperature, &
615 !!$ source_in_level_set_test_23 => source_in_level_set, &
616 !!$ vv_exact_test_23 => vv_exact, &
617 !!$ imposed_velocity_by_penalty_test_23 => imposed_velocity_by_penalty, &
618 !!$ pp_exact_test_23 => pp_exact, &
619 !!$ temperature_exact_test_23 => temperature_exact, &
620 !!$ level_set_exact_test_23 => level_set_exact, &
621 !!$ penal_in_real_space_test_23 => penal_in_real_space, &
622 !!$ extension_velocity_test_23 => extension_velocity, &
623  USE boundary_test_23, ONLY : vexact_test_23 => vexact, &
624 !!$ H_B_quasi_static_test_23 => H_B_quasi_static, &
625  hexact_test_23 => hexact, &
626  phiexact_test_23 => phiexact, &
627  jexact_gauss_test_23 => jexact_gauss, &
628  eexact_gauss_test_23 => eexact_gauss, &
629  init_maxwell_test_23 => init_maxwell , &
630  mu_bar_in_fourier_space_test_23 => mu_bar_in_fourier_space, &
631  grad_mu_bar_in_fourier_space_test_23 => grad_mu_bar_in_fourier_space, &
632  mu_in_real_space_test_23 => mu_in_real_space
633 END module point_to_boundary_test_23
635  USE boundary_test_24, ONLY : init_velocity_pressure_test_24 => init_velocity_pressure, &
636 !!$ init_temperature_test_24 => init_temperature, &
637 !!$ init_level_set_test_24 => init_level_set, &
638  source_in_ns_momentum_test_24 => source_in_ns_momentum, &
639 !!$ source_in_temperature_test_24 => source_in_temperature, &
640 !!$ source_in_level_set_test_24 => source_in_level_set, &
641  vv_exact_test_24 => vv_exact, &
642  imposed_velocity_by_penalty_test_24 => imposed_velocity_by_penalty, &
643  pp_exact_test_24 => pp_exact, &
644 !!$ temperature_exact_test_24 => temperature_exact, &
645 !!$ level_set_exact_test_24 => level_set_exact, &
646  penal_in_real_space_test_24 => penal_in_real_space
647 !!$ extension_velocity_test_24 => extension_velocity, &
648 !!$ Vexact_test_24 => Vexact, &
649 !!$ H_B_quasi_static_test_24 => H_B_quasi_static, &
650 !!$ Hexact_test_24 => Hexact, &
651 !!$ Phiexact_test_24 => Phiexact, &
652 !!$ Jexact_gauss_test_24 => Jexact_gauss, &
653 !!$ Eexact_gauss_test_24 => Eexact_gauss, &
654 !!$ init_maxwell_test_24 => init_maxwell , &
655 !!$ mu_bar_in_fourier_space_test_24 => mu_bar_in_fourier_space, &
656 !!$ grad_mu_bar_in_fourier_space_test_24 => grad_mu_bar_in_fourier_space, &
657 !!$ mu_in_real_space_test_24 => mu_in_real_space
658 END module point_to_boundary_test_24
659 
661  USE boundary_test_25, ONLY : init_velocity_pressure_test_25 => init_velocity_pressure, &
662 !!$ init_temperature_test_25 => init_temperature, &
663  init_level_set_test_25 => init_level_set, &
664  source_in_ns_momentum_test_25 => source_in_ns_momentum, &
665 !!$ source_in_temperature_test_25 => source_in_temperature, &
666  source_in_level_set_test_25 => source_in_level_set, &
667  vv_exact_test_25 => vv_exact, &
668 !!$ imposed_velocity_by_penalty_test_25 => imposed_velocity_by_penalty, &
669  pp_exact_test_25 => pp_exact, &
670 !!$ temperature_exact_test_25 => temperature_exact, &
671  level_set_exact_test_25 => level_set_exact
672 !!$ penal_in_real_space_test_25 => penal_in_real_space, &
673 !!$ extension_velocity_test_25 => extension_velocity, &
674 !!$ Vexact_test_25 => Vexact, &
675 !!$ H_B_quasi_static_test_25 => H_B_quasi_static, &
676 !!$ Hexact_test_25 => Hexact, &
677 !!$ Phiexact_test_25 => Phiexact, &
678 !!$ Jexact_gauss_test_25 => Jexact_gauss, &
679 !!$ Eexact_gauss_test_25 => Eexact_gauss, &
680 !!$ init_maxwell_test_25 => init_maxwell , &
681 !!$ mu_bar_in_fourier_space_test_25 => mu_bar_in_fourier_space, &
682 !!$ grad_mu_bar_in_fourier_space_test_25 => grad_mu_bar_in_fourier_space, &
683 !!$ mu_in_real_space_test_25 => mu_in_real_space
684 END module point_to_boundary_test_25
686 !!$ USE boundary_test_26, ONLY : init_velocity_pressure_test_26 => init_velocity_pressure, &
687 !!$ init_temperature_test_26 => init_temperature, &
688 !!$ init_level_set_test_26 => init_level_set, &
689 !!$ source_in_NS_momentum_test_26 => source_in_NS_momentum, &
690 !!$ source_in_temperature_test_26 => source_in_temperature, &
691 !!$ source_in_level_set_test_26 => source_in_level_set, &
692 !!$ vv_exact_test_26 => vv_exact, &
693 !!$ imposed_velocity_by_penalty_test_26 => imposed_velocity_by_penalty, &
694 !!$ pp_exact_test_26 => pp_exact, &
695 !!$ temperature_exact_test_26 => temperature_exact, &
696 !!$ level_set_exact_test_26 => level_set_exact, &
697 !!$ penal_in_real_space_test_26 => penal_in_real_space, &
698 !!$ extension_velocity_test_26 => extension_velocity, &
699  USE boundary_test_26, ONLY : vexact_test_26 => vexact, &
700 !!$ H_B_quasi_static_test_26 => H_B_quasi_static, &
701  hexact_test_26 => hexact, &
702  phiexact_test_26 => phiexact, &
703  jexact_gauss_test_26 => jexact_gauss, &
704  eexact_gauss_test_26 => eexact_gauss, &
705  init_maxwell_test_26 => init_maxwell , &
706  mu_bar_in_fourier_space_test_26 => mu_bar_in_fourier_space, &
707  grad_mu_bar_in_fourier_space_test_26 => grad_mu_bar_in_fourier_space
708 !!$ mu_in_real_space_test_26 => mu_in_real_space
709 END module point_to_boundary_test_26
711 !!$ USE boundary_test_27, ONLY : init_velocity_pressure_test_27 => init_velocity_pressure, &
712 !!$ init_temperature_test_27 => init_temperature, &
713 !!$ init_level_set_test_27 => init_level_set, &
714 !!$ source_in_NS_momentum_test_27 => source_in_NS_momentum, &
715 !!$ source_in_temperature_test_27 => source_in_temperature, &
716 !!$ source_in_level_set_test_27 => source_in_level_set, &
717 !!$ vv_exact_test_27 => vv_exact, &
718 !!$ imposed_velocity_by_penalty_test_27 => imposed_velocity_by_penalty, &
719 !!$ pp_exact_test_27 => pp_exact, &
720 !!$ temperature_exact_test_27 => temperature_exact, &
721 !!$ level_set_exact_test_27 => level_set_exact, &
722 !!$ penal_in_real_space_test_27 => penal_in_real_space, &
723 !!$ extension_velocity_test_27 => extension_velocity, &
724  USE boundary_test_27, ONLY : vexact_test_27 => vexact, &
725 !!$ H_B_quasi_static_test_27 => H_B_quasi_static, &
726  hexact_test_27 => hexact, &
727  phiexact_test_27 => phiexact, &
728  jexact_gauss_test_27 => jexact_gauss, &
729  eexact_gauss_test_27 => eexact_gauss, &
730  init_maxwell_test_27 => init_maxwell , &
731  mu_bar_in_fourier_space_test_27 => mu_bar_in_fourier_space, &
732  grad_mu_bar_in_fourier_space_test_27 => grad_mu_bar_in_fourier_space, &
733  mu_in_real_space_test_27 => mu_in_real_space
734 END module point_to_boundary_test_27
736  USE boundary_test_28, ONLY : init_velocity_pressure_test_28 => init_velocity_pressure, &
737 !!$ init_temperature_test_28 => init_temperature, &
738 !!$ init_level_set_test_28 => init_level_set, &
739  source_in_ns_momentum_test_28 => source_in_ns_momentum, &
740 !!$ source_in_temperature_test_28 => source_in_temperature, &
741 !!$ source_in_level_set_test_28 => source_in_level_set, &
742  vv_exact_test_28 => vv_exact, &
743  imposed_velocity_by_penalty_test_28 => imposed_velocity_by_penalty, &
744  pp_exact_test_28 => pp_exact, &
745 !!$ temperature_exact_test_28 => temperature_exact, &
746 !!$ level_set_exact_test_28 => level_set_exact, &
747  penal_in_real_space_test_28 => penal_in_real_space
748 !!$ extension_velocity_test_28 => extension_velocity, &
749 !!$ Vexact_test_28 => Vexact, &
750 !!$ H_B_quasi_static_test_28 => H_B_quasi_static, &
751 !!$ Hexact_test_28 => Hexact, &
752 !!$ Phiexact_test_28 => Phiexact, &
753 !!$ Jexact_gauss_test_28 => Jexact_gauss, &
754 !!$ Eexact_gauss_test_28 => Eexact_gauss, &
755 !!$ init_maxwell_test_28 => init_maxwell , &
756 !!$ mu_bar_in_fourier_space_test_28 => mu_bar_in_fourier_space, &
757 !!$ grad_mu_bar_in_fourier_space_test_28 => grad_mu_bar_in_fourier_space, &
758 !!$ mu_in_real_space_test_28 => mu_in_real_space
759 END module point_to_boundary_test_28
761  USE boundary_test_29, ONLY : init_velocity_pressure_test_29 => init_velocity_pressure, &
762 !!$ init_temperature_test_29 => init_temperature, &
763 !!$ init_level_set_test_29 => init_level_set, &
764  source_in_ns_momentum_test_29 => source_in_ns_momentum, &
765 !!$ source_in_temperature_test_29 => source_in_temperature, &
766 !!$ source_in_level_set_test_29 => source_in_level_set, &
767  vv_exact_test_29 => vv_exact, &
768  imposed_velocity_by_penalty_test_29 => imposed_velocity_by_penalty, &
769  pp_exact_test_29 => pp_exact, &
770 !!$ temperature_exact_test_29 => temperature_exact, &
771 !!$ level_set_exact_test_29 => level_set_exact, &
772  penal_in_real_space_test_29 => penal_in_real_space, &
773  extension_velocity_test_29 => extension_velocity, &
774 !!$ Vexact_test_29 => Vexact, &
775 !!$ H_B_quasi_static_test_29 => H_B_quasi_static, &
776  hexact_test_29 => hexact, &
777  phiexact_test_29 => phiexact, &
778  jexact_gauss_test_29 => jexact_gauss, &
779  eexact_gauss_test_29 => eexact_gauss, &
780  init_maxwell_test_29 => init_maxwell , &
781  mu_bar_in_fourier_space_test_29 => mu_bar_in_fourier_space, &
782  grad_mu_bar_in_fourier_space_test_29 => grad_mu_bar_in_fourier_space, &
783  mu_in_real_space_test_29 => mu_in_real_space
784 END module point_to_boundary_test_29
786  USE boundary_test_30, ONLY : init_velocity_pressure_test_30 => init_velocity_pressure, &
787  init_temperature_test_30 => init_temperature, &
788 !!$ init_level_set_test_30 => init_level_set, &
789  source_in_ns_momentum_test_30 => source_in_ns_momentum, &
790  source_in_temperature_test_30 => source_in_temperature, &
791 !!$ source_in_level_set_test_30 => source_in_level_set, &
792  vv_exact_test_30 => vv_exact, &
793 !!$ imposed_velocity_by_penalty_test_30 => imposed_velocity_by_penalty, &
794  pp_exact_test_30 => pp_exact, &
795  temperature_exact_test_30 => temperature_exact, &
796 !!$ level_set_exact_test_30 => level_set_exact, &
797 !!$ penal_in_real_space_test_30 => penal_in_real_space, &
798  extension_velocity_test_30 => extension_velocity
799 !!$ Vexact_test_30 => Vexact, &
800 !!$ H_B_quasi_static_test_30 => H_B_quasi_static, &
801 !!$ Hexact_test_30 => Hexact, &
802 !!$ Phiexact_test_30 => Phiexact, &
803 !!$ Jexact_gauss_test_30 => Jexact_gauss, &
804 !!$ Eexact_gauss_test_30 => Eexact_gauss, &
805 !!$ init_maxwell_test_30 => init_maxwell , &
806 !!$ mu_bar_in_fourier_space_test_30 => mu_bar_in_fourier_space, &
807 !!$ grad_mu_bar_in_fourier_space_test_30 => grad_mu_bar_in_fourier_space, &
808 !!$ mu_in_real_space_test_30 => mu_in_real_space
809 END module point_to_boundary_test_30
811  USE boundary_test_31, ONLY : init_velocity_pressure_test_31 => init_velocity_pressure, &
812  init_temperature_test_31 => init_temperature, &
813 !!$ init_level_set_test_31 => init_level_set, &
814  source_in_ns_momentum_test_31 => source_in_ns_momentum, &
815  source_in_temperature_test_31 => source_in_temperature, &
816 !!$ source_in_level_set_test_31 => source_in_level_set, &
817  vv_exact_test_31 => vv_exact, &
818 !!$ imposed_velocity_by_penalty_test_31 => imposed_velocity_by_penalty, &
819  pp_exact_test_31 => pp_exact, &
820  temperature_exact_test_31 => temperature_exact, &
821 !!$ level_set_exact_test_31 => level_set_exact, &
822 !!$ penal_in_real_space_test_31 => penal_in_real_space, &
823  extension_velocity_test_31 => extension_velocity
824 !!$ Vexact_test_31 => Vexact, &
825 !!$ H_B_quasi_static_test_31 => H_B_quasi_static, &
826 !!$ Hexact_test_31 => Hexact, &
827 !!$ Phiexact_test_31 => Phiexact, &
828 !!$ Jexact_gauss_test_31 => Jexact_gauss, &
829 !!$ Eexact_gauss_test_31 => Eexact_gauss, &
830 !!$ init_maxwell_test_31 => init_maxwell , &
831 !!$ mu_bar_in_fourier_space_test_31 => mu_bar_in_fourier_space, &
832 !!$ grad_mu_bar_in_fourier_space_test_31 => grad_mu_bar_in_fourier_space, &
833 !!$ mu_in_real_space_test_31 => mu_in_real_space
834 END module point_to_boundary_test_31
836  USE boundary_test_32, ONLY : init_velocity_pressure_test_32 => init_velocity_pressure, &
837  init_temperature_test_32 => init_temperature, &
838 !!$ init_level_set_test_32 => init_level_set, &
839  source_in_ns_momentum_test_32 => source_in_ns_momentum, &
840  source_in_temperature_test_32 => source_in_temperature, &
841 !!$ source_in_level_set_test_32 => source_in_level_set, &
842  vv_exact_test_32 => vv_exact, &
843 !!$ imposed_velocity_by_penalty_test_32 => imposed_velocity_by_penalty, &
844  pp_exact_test_32 => pp_exact, &
845  temperature_exact_test_32 => temperature_exact, &
846 !!$ level_set_exact_test_32 => level_set_exact, &
847 !!$ penal_in_real_space_test_32 => penal_in_real_space, &
848  extension_velocity_test_32 => extension_velocity
849 !!$ Vexact_test_32 => Vexact, &
850 !!$ H_B_quasi_static_test_32 => H_B_quasi_static, &
851 !!$ Hexact_test_32 => Hexact, &
852 !!$ Phiexact_test_32 => Phiexact, &
853 !!$ Jexact_gauss_test_32 => Jexact_gauss, &
854 !!$ Eexact_gauss_test_32 => Eexact_gauss, &
855 !!$ init_maxwell_test_32 => init_maxwell , &
856 !!$ mu_bar_in_fourier_space_test_32 => mu_bar_in_fourier_space, &
857 !!$ grad_mu_bar_in_fourier_space_test_32 => grad_mu_bar_in_fourier_space, &
858 !!$ mu_in_real_space_test_32 => mu_in_real_space
859 END module point_to_boundary_test_32
861  USE boundary_test_33, ONLY : init_velocity_pressure_test_33 => init_velocity_pressure, &
862  init_temperature_test_33 => init_temperature, &
863 !!$ init_level_set_test_33 => init_level_set, &
864  source_in_ns_momentum_test_33 => source_in_ns_momentum, &
865  source_in_temperature_test_33 => source_in_temperature, &
866 !!$ source_in_level_set_test_33 => source_in_level_set, &
867  vv_exact_test_33 => vv_exact, &
868 !!$ imposed_velocity_by_penalty_test_33 => imposed_velocity_by_penalty, &
869  pp_exact_test_33 => pp_exact, &
870  temperature_exact_test_33 => temperature_exact, &
871 !!$ level_set_exact_test_33 => level_set_exact, &
872 !!$ penal_in_real_space_test_33 => penal_in_real_space, &
873  extension_velocity_test_33 => extension_velocity, &
874 !!$ Vexact_test_33 => Vexact, &
875 !!$ H_B_quasi_static_test_33 => H_B_quasi_static, &
876  hexact_test_33 => hexact, &
877  phiexact_test_33 => phiexact, &
878  jexact_gauss_test_33 => jexact_gauss, &
879  eexact_gauss_test_33 => eexact_gauss, &
880  init_maxwell_test_33 => init_maxwell , &
881 !!$ mu_bar_in_fourier_space_test_33 => mu_bar_in_fourier_space, &
882 !!$ grad_mu_bar_in_fourier_space_test_33 => grad_mu_bar_in_fourier_space, &
883 !!$ mu_in_real_space_test_33 => mu_in_real_space, &
884  kelvin_force_coeff_test_33 => kelvin_force_coeff
885 END module point_to_boundary_test_33
887  USE boundary_test_34, ONLY : init_velocity_pressure_test_34 => init_velocity_pressure, &
888  init_temperature_test_34 => init_temperature, &
889 !!$ init_level_set_test_34 => init_level_set, &
890  source_in_ns_momentum_test_34 => source_in_ns_momentum, &
891  source_in_temperature_test_34 => source_in_temperature, &
892 !!$ source_in_level_set_test_34 => source_in_level_set, &
893  vv_exact_test_34 => vv_exact, &
894 !!$ imposed_velocity_by_penalty_test_34 => imposed_velocity_by_penalty, &
895  pp_exact_test_34 => pp_exact, &
896  temperature_exact_test_34 => temperature_exact, &
897 !!$ level_set_exact_test_34 => level_set_exact, &
898 !!$ penal_in_real_space_test_34 => penal_in_real_space, &
899  extension_velocity_test_34 => extension_velocity, &
900 !!$ Vexact_test_34 => Vexact, &
901 !!$ H_B_quasi_static_test_34 => H_B_quasi_static, &
902  hexact_test_34 => hexact, &
903  phiexact_test_34 => phiexact, &
904  jexact_gauss_test_34 => jexact_gauss, &
905  eexact_gauss_test_34 => eexact_gauss, &
906  init_maxwell_test_34 => init_maxwell , &
907 !!$ mu_bar_in_fourier_space_test_34 => mu_bar_in_fourier_space, &
908 !!$ grad_mu_bar_in_fourier_space_test_34 => grad_mu_bar_in_fourier_space, &
909 !!$ mu_in_real_space_test_34 => mu_in_real_space, &
910  kelvin_force_coeff_test_34 => kelvin_force_coeff
911 END module point_to_boundary_test_34
real(kind=8) function, dimension(size(rr, 2)), public source_in_ns_momentum(TYPE, rr, mode, i, time, Re, ty, opt_density, opt_tempn)
real(kind=8) function, dimension(size(rr, 2)), public pp_exact(TYPE, rr, m, t)
real(kind=8) function sub_jexact_gauss(TYPE, rr, m, mu_phi, sigma, mu_H, t, mesh_id, opt_B_ext)
real(kind=8) function, dimension(size(rr, 2), 6) sub_h_b_quasi_static(char_h_b, rr, m)
real(kind=8) function, dimension(h_mesh%np), public extension_velocity(TYPE, H_mesh, mode, t, n_start)
real(kind=8) function, dimension(size(rr, 2)) sub_phiexact(TYPE, rr, m, mu_phi, t)
real(kind=8) function, dimension(size(rr, 2)), public source_in_level_set(interface_nb, TYPE, rr, m, t)
real(kind=8) function, dimension(size(h_mesh%rr, 2)), public sigma_bar_in_fourier_space(H_mesh)
subroutine, public init_maxwell(H_mesh, phi_mesh, time, dt, mu_H_field, mu_phi, list_mode, Hn1, Hn, phin1, phin)
real(kind=8) function, public kelvin_force_coeff(temp)
real(kind=8) function, dimension(size(rr, 2), 6), public h_b_quasi_static(char_h_b, rr, m)
Definition: condlim.f90:276
real(kind=8) function, public jexact_gauss(TYPE, rr, m, mu_phi, sigma, mu_H, t, mesh_id, opt_B_ext)
real(kind=8) function, dimension(size(rr, 2)) sub_source_in_ns_momentum(TYPE, rr, mode, i, time, Re, ty, opt_density, opt_tempn)
real(kind=8) function, dimension(h_mesh%np, 6), public vexact(m, H_mesh)
real(kind=8) function, dimension(nb_angles, ne-nb+1), public penal_in_real_space(mesh, rr_gauss, angles, nb_angles, nb, ne, time)
real(kind=8) function, dimension(size(rr, 2)), public temperature_exact(TYPE, rr, m, t)
real(kind=8) function sub_eexact_gauss(TYPE, rr, m, mu_phi, sigma, mu_H, t)
real(kind=8) function, dimension(h_mesh%np, 6) sub_vexact(m, H_mesh)
real(kind=8) function, dimension(size(rr, 2)), public vv_exact(TYPE, rr, m, t)
real(kind=8) function, dimension(size(rr, 2)), public phiexact(TYPE, rr, m, mu_phi, t)
real(kind=8) function, dimension(size(rr, 2), 6), public imposed_velocity_by_penalty(rr, t)
real(kind=8) function, dimension(2), public grad_mu_bar_in_fourier_space(pt, pt_id)
real(kind=8) function, dimension(nb_angles, ne-nb+1), public mu_in_real_space(H_mesh, angles, nb_angles, nb, ne, time)
real(kind=8) function, dimension(size(rr, 2)), public source_in_temperature(TYPE, rr, m, t)
real(kind=8) function, public eexact_gauss(TYPE, rr, m, mu_phi, sigma, mu_H, t)
real(kind=8) function, dimension(size(rr, 2)) sub_hexact(H_mesh, TYPE, rr, m, mu_H_field, t)
subroutine, public init_velocity_pressure(mesh_f, mesh_c, time, dt, list_mode, un_m1, un, pn_m1, pn, phin_m1, phin)
real(kind=8) function, dimension(ne-nb+1), public mu_bar_in_fourier_space(H_mesh, nb, ne, pts, pts_ids)
real(kind=8) function, dimension(size(rr, 2)), public level_set_exact(interface_nb, TYPE, rr, m, t)
real(kind=8) function, dimension(size(rr, 2)), public hexact(H_mesh, TYPE, rr, m, mu_H_field, t)
subroutine, public init_level_set(vv_mesh, time, dt, list_mode, level_set_m1, level_set)
subroutine, public init_temperature(mesh, time, dt, list_mode, tempn_m1, tempn)