Line data Source code
1 : //* This file is part of the MOOSE framework
2 : //* https://mooseframework.inl.gov
3 : //*
4 : //* All rights reserved, see COPYRIGHT for full restrictions
5 : //* https://github.com/idaholab/moose/blob/master/COPYRIGHT
6 : //*
7 : //* Licensed under LGPL 2.1, please see LICENSE for details
8 : //* https://www.gnu.org/licenses/lgpl-2.1.html
9 :
10 : #include "MultiAppGeneralFieldTransfer.h"
11 :
12 : // MOOSE includes
13 : #include "DisplacedProblem.h"
14 : #include "FEProblem.h"
15 : #include "MooseMesh.h"
16 : #include "MooseTypes.h"
17 : #include "MooseVariableFE.h"
18 : #include "MeshDivision.h"
19 : #include "Positions.h"
20 : #include "Factory.h"
21 : #include "MooseAppCoordTransform.h"
22 :
23 : // libmesh includes
24 : #include "libmesh/point_locator_base.h"
25 : #include "libmesh/enum_point_locator_type.h"
26 :
27 : // TIMPI includes
28 : #include "timpi/communicator.h"
29 : #include "timpi/parallel_sync.h"
30 :
31 : using namespace libMesh;
32 :
33 : namespace GeneralFieldTransfer
34 : {
35 : Number BetterOutOfMeshValue = std::numeric_limits<Real>::infinity();
36 : }
37 :
38 : InputParameters
39 71406 : MultiAppGeneralFieldTransfer::validParams()
40 : {
41 71406 : InputParameters params = MultiAppConservativeTransfer::validParams();
42 : // Expansion default to make a node in the target mesh overlapping with a node in the origin
43 : // mesh always register as being inside the origin application bounding box. The contains_point
44 : // bounding box checks uses exact comparisons
45 214218 : params.addRangeCheckedParam<Real>("bbox_factor",
46 142812 : 1.00000001,
47 : "bbox_factor>0",
48 : "Factor to inflate or deflate the source app bounding boxes");
49 71406 : params.addRangeCheckedParam<std::vector<Real>>(
50 : "fixed_bounding_box_size",
51 : "fixed_bounding_box_size >= 0",
52 : "Override source app bounding box size(s) for searches. App bounding boxes will still be "
53 : "centered on the same coordinates. Only non-zero components passed will override.");
54 214218 : params.addParam<Real>(
55 : "extrapolation_constant",
56 142812 : 0,
57 : "Constant to use when no source app can provide a valid value for a target location.");
58 :
59 : // Block restrictions
60 71406 : params.addParam<std::vector<SubdomainName>>(
61 : "from_blocks",
62 : "Subdomain restriction to transfer from (defaults to all the origin app domain)");
63 71406 : params.addParam<std::vector<SubdomainName>>(
64 : "to_blocks", "Subdomain restriction to transfer to, (defaults to all the target app domain)");
65 :
66 : // Boundary restrictions
67 71406 : params.addParam<std::vector<BoundaryName>>(
68 : "from_boundaries",
69 : "The boundary we are transferring from (if not specified, whole domain is used).");
70 71406 : params.addParam<std::vector<BoundaryName>>(
71 : "to_boundaries",
72 : "The boundary we are transferring to (if not specified, whole domain is used).");
73 71406 : MooseEnum nodes_or_sides("nodes sides", "sides");
74 71406 : params.addParam<MooseEnum>("elemental_boundary_restriction",
75 : nodes_or_sides,
76 : "Whether elemental variable boundary restriction is considered by "
77 : "element side or element nodes");
78 :
79 : // Mesh division restriction
80 71406 : params.addParam<MeshDivisionName>("from_mesh_division",
81 : "Mesh division object on the origin application");
82 71406 : params.addParam<MeshDivisionName>("to_mesh_division",
83 : "Mesh division object on the target application");
84 : MooseEnum mesh_division_uses("spatial_restriction matching_division matching_subapp_index none",
85 71406 : "none");
86 71406 : params.addParam<MooseEnum>("from_mesh_division_usage",
87 : mesh_division_uses,
88 : "How to use the source mesh division in the transfer. See object "
89 : "documentation for description of each option");
90 71406 : params.addParam<MooseEnum>("to_mesh_division_usage",
91 : mesh_division_uses,
92 : "How to use the target mesh division in the transfer. See object "
93 : "documentation for description of each option");
94 :
95 : // Array and vector variables
96 214218 : params.addParam<std::vector<unsigned int>>("source_variable_components",
97 142812 : std::vector<unsigned int>(),
98 : "The source array or vector variable component(s).");
99 214218 : params.addParam<std::vector<unsigned int>>("target_variable_components",
100 142812 : std::vector<unsigned int>(),
101 : "The target array or vector variable component(s).");
102 :
103 : // Search options
104 214218 : params.addParam<bool>(
105 : "greedy_search",
106 142812 : false,
107 : "Whether or not to send a point to all the domains. If true, all the processors will be "
108 : "checked for a given point."
109 : "The code will be slow if this flag is on but it will give a better solution.");
110 214218 : params.addParam<bool>(
111 : "error_on_miss",
112 142812 : true,
113 : "Whether or not to error in the case that a target point is not found in the source domain.");
114 214218 : params.addParam<bool>("use_bounding_boxes",
115 142812 : true,
116 : "When set to false, bounding boxes will not be used to restrict the source "
117 : "of the transfer. Either source applications must be set using the "
118 : "from_mesh_division parameter, or a greedy search must be used.");
119 214218 : params.addParam<bool>(
120 : "use_nearest_app",
121 142812 : false,
122 : "When True, transfers from a child application will work by finding the nearest (using "
123 : "the `position` + mesh centroid) sub-app and query that app for the value to transfer.");
124 71406 : params.addParam<PositionsName>(
125 : "use_nearest_position",
126 : "Name of the the Positions object (in main app) such that transfers to/from a child "
127 : "application will work by finding the nearest position to a target and query only the "
128 : "app / points closer to this position than to any other position for the value to transfer.");
129 214218 : params.addParam<bool>(
130 : "from_app_must_contain_point",
131 142812 : false,
132 : "Wether on not the origin mesh must contain the point to evaluate data at. If false, this "
133 : "allows for interpolation between origin app meshes. Origin app bounding boxes are still "
134 : "considered so you may want to increase them with 'fixed_bounding_box_size'");
135 214218 : params.addParam<bool>("search_value_conflicts",
136 142812 : false,
137 : "Whether to look for potential conflicts between two valid and different "
138 : "source values for any target point");
139 214218 : params.addParam<unsigned int>(
140 : "value_conflicts_output",
141 142812 : 10,
142 : "Maximum number of conflicts to output if value-conflicts, from equidistant sources to a "
143 : "given transfer target location, search is turned on");
144 :
145 71406 : params.addParamNamesToGroup(
146 : "to_blocks from_blocks to_boundaries from_boundaries elemental_boundary_restriction "
147 : "from_mesh_division from_mesh_division_usage to_mesh_division to_mesh_division_usage",
148 : "Transfer spatial restriction");
149 71406 : params.addParamNamesToGroup(
150 : "greedy_search use_bounding_boxes use_nearest_app use_nearest_position "
151 : "search_value_conflicts",
152 : "Search algorithm");
153 71406 : params.addParamNamesToGroup("error_on_miss from_app_must_contain_point extrapolation_constant",
154 : "Extrapolation behavior");
155 71406 : params.addParamNamesToGroup("bbox_factor fixed_bounding_box_size", "Source app bounding box");
156 142812 : return params;
157 71406 : }
158 :
159 7179 : MultiAppGeneralFieldTransfer::MultiAppGeneralFieldTransfer(const InputParameters & parameters)
160 : : MultiAppConservativeTransfer(parameters),
161 7179 : _from_var_components(getParam<std::vector<unsigned int>>("source_variable_components")),
162 7179 : _to_var_components(getParam<std::vector<unsigned int>>("target_variable_components")),
163 7179 : _use_bounding_boxes(getParam<bool>("use_bounding_boxes")),
164 7179 : _use_nearest_app(getParam<bool>("use_nearest_app")),
165 7179 : _nearest_positions_obj(
166 14358 : isParamValid("use_nearest_position")
167 7179 : ? &_fe_problem.getPositionsObject(getParam<PositionsName>("use_nearest_position"))
168 : : nullptr),
169 7179 : _source_app_must_contain_point(getParam<bool>("from_app_must_contain_point")),
170 7179 : _from_mesh_division_behavior(getParam<MooseEnum>("from_mesh_division_usage")),
171 7179 : _to_mesh_division_behavior(getParam<MooseEnum>("to_mesh_division_usage")),
172 7179 : _elemental_boundary_restriction_on_sides(
173 7179 : getParam<MooseEnum>("elemental_boundary_restriction") == "sides"),
174 7179 : _greedy_search(getParam<bool>("greedy_search")),
175 7179 : _search_value_conflicts(getParam<bool>("search_value_conflicts")),
176 7179 : _already_output_search_value_conflicts(false),
177 7179 : _search_value_conflicts_max_log(getParam<unsigned int>("value_conflicts_output")),
178 7179 : _error_on_miss(getParam<bool>("error_on_miss")),
179 7179 : _default_extrapolation_value(getParam<Real>("extrapolation_constant")),
180 7179 : _bbox_factor(getParam<Real>("bbox_factor")),
181 14358 : _fixed_bbox_size(isParamValid("fixed_bounding_box_size")
182 7179 : ? getParam<std::vector<Real>>("fixed_bounding_box_size")
183 35895 : : std::vector<Real>(3, 0))
184 : {
185 7179 : _var_size = _to_var_names.size();
186 7179 : if (_to_var_names.size() != _from_var_names.size() && !parameters.isPrivate("source_variable"))
187 4 : paramError("variable", "The number of variables to transfer to and from should be equal");
188 :
189 : // Check the parameters of the components of the array / vector variable
190 7175 : if (_from_var_names.size() != _from_var_components.size() && _from_var_components.size() > 0)
191 0 : paramError("source_variable_components",
192 : "This parameter must be equal to the number of source variables");
193 7175 : if (_to_var_names.size() != _to_var_components.size() && _to_var_components.size() > 0)
194 0 : paramError("target_variable_components",
195 : "This parameter must be equal to the number of target variables");
196 :
197 : // Make simple 'use_nearest_app' parameter rely on Positions
198 7175 : if (_use_nearest_app)
199 : {
200 158 : if (_nearest_positions_obj)
201 4 : paramError("use_nearest_app", "Cannot use nearest-app and nearest-position together");
202 154 : if (!hasFromMultiApp())
203 4 : paramError("use_nearest_app",
204 : "Should have a 'from_multiapp' when using the nearest-app informed search");
205 150 : auto pos_params = _app.getFactory().getValidParams("MultiAppPositions");
206 450 : pos_params.set<std::vector<MultiAppName>>("multiapps") = {getFromMultiApp()->name()};
207 150 : _fe_problem.addReporter("MultiAppPositions", "_created_for_" + name(), pos_params);
208 150 : _nearest_positions_obj = &_fe_problem.getPositionsObject("_created_for_" + name());
209 150 : }
210 :
211 : // Dont let users get wrecked by bounding boxes if it looks like they are trying to extrapolate
212 14244 : if (!_source_app_must_contain_point && _use_bounding_boxes &&
213 14244 : (_nearest_positions_obj || isParamSetByUser("from_app_must_contain_point")))
214 559 : if (!isParamSetByUser("bbox_factor") && !isParamSetByUser("fixed_bounding_box_size"))
215 4 : mooseWarning(
216 : "Extrapolation (nearest-source options, outside-app source) parameters have "
217 : "been passed, but no subapp bounding box expansion parameters have been passed.");
218 :
219 7245 : if (!_use_bounding_boxes &&
220 7245 : (isParamValid("fixed_bounding_box_size") || isParamSetByUser("bbox_factor")))
221 0 : paramError("use_bounding_boxes",
222 : "Cannot pass additional bounding box parameters (sizes, expansion, etc) if we are "
223 : "not using bounding boxes");
224 7463 : }
225 :
226 : void
227 6991 : MultiAppGeneralFieldTransfer::initialSetup()
228 : {
229 6991 : MultiAppConservativeTransfer::initialSetup();
230 :
231 : // Use IDs for block and boundary restriction
232 : // Loop over all source problems
233 16520 : for (const auto i_from : index_range(_from_problems))
234 : {
235 9557 : const auto & from_moose_mesh = _from_problems[i_from]->mesh(_displaced_source_mesh);
236 9557 : if (isParamValid("from_blocks"))
237 : {
238 1462 : auto & blocks = getParam<std::vector<SubdomainName>>("from_blocks");
239 1462 : std::vector<SubdomainID> ids = from_moose_mesh.getSubdomainIDs(blocks);
240 1462 : _from_blocks.insert(ids.begin(), ids.end());
241 1462 : if (_from_blocks.size() != blocks.size())
242 0 : paramError("from_blocks", "Some blocks were not found in the mesh");
243 1462 : }
244 :
245 9557 : if (isParamValid("from_boundaries"))
246 : {
247 191 : auto & boundary_names = getParam<std::vector<BoundaryName>>("from_boundaries");
248 191 : std::vector<BoundaryID> boundary_ids = from_moose_mesh.getBoundaryIDs(boundary_names);
249 191 : _from_boundaries.insert(boundary_ids.begin(), boundary_ids.end());
250 191 : if (_from_boundaries.size() != boundary_names.size())
251 0 : paramError("from_boundaries", "Some boundaries were not found in the mesh");
252 191 : }
253 :
254 9557 : if (isParamValid("from_mesh_division"))
255 : {
256 358 : const auto & mesh_div_name = getParam<MeshDivisionName>("from_mesh_division");
257 358 : _from_mesh_divisions.push_back(&_from_problems[i_from]->getMeshDivision(mesh_div_name));
258 : // Check that the behavior set makes sense
259 358 : if (_from_mesh_division_behavior == MeshDivisionTransferUse::RESTRICTION)
260 : {
261 158 : if (_from_mesh_divisions[i_from]->coversEntireMesh())
262 0 : mooseInfo("'from_mesh_division_usage' is set to use a spatial restriction but the "
263 0 : "'from_mesh_division' for source app of global index " +
264 0 : std::to_string(getGlobalSourceAppIndex(i_from)) +
265 : " covers the entire mesh. Do not expect any restriction from a mesh "
266 : "division that covers the entire mesh");
267 : }
268 310 : else if (_from_mesh_division_behavior == MeshDivisionTransferUse::MATCH_DIVISION_INDEX &&
269 310 : !isParamValid("to_mesh_division"))
270 0 : paramError("to_mesh_division_usage",
271 : "Source mesh division cannot match target mesh division if no target mesh "
272 : "division is specified");
273 200 : else if (_from_mesh_division_behavior == MeshDivisionTransferUse::MATCH_SUBAPP_INDEX)
274 : {
275 90 : if (!hasToMultiApp())
276 4 : paramError("from_mesh_division_usage",
277 : "Cannot match source mesh division index to target subapp index if there is "
278 : "only one target: the parent app (not a subapp)");
279 172 : else if (getToMultiApp()->numGlobalApps() !=
280 86 : _from_mesh_divisions[i_from]->getNumDivisions())
281 4 : mooseWarning("Attempting to match target subapp index with the number of source mesh "
282 4 : "divisions, which is " +
283 8 : std::to_string(_from_mesh_divisions[i_from]->getNumDivisions()) +
284 8 : " while there are " + std::to_string(getToMultiApp()->numGlobalApps()) +
285 : " target subapps");
286 82 : if (_to_mesh_division_behavior == MeshDivisionTransferUse::MATCH_DIVISION_INDEX)
287 : // We do not support it because it would require sending the point + target app index +
288 : // target app division index, and we only send the Point + one number
289 4 : paramError("from_mesh_division_usage",
290 : "We do not support using target subapp index for source division behavior and "
291 : "matching the division index for the target mesh division behavior.");
292 : }
293 110 : else if (_from_mesh_division_behavior == "none")
294 0 : paramError("from_mesh_division_usage", "User must specify a 'from_mesh_division_usage'");
295 : }
296 9199 : else if (_from_mesh_division_behavior != "none")
297 4 : paramError("from_mesh_division",
298 : "'from_mesh_division' must be specified if the usage method is specified");
299 : }
300 :
301 : // Loop over all target problems
302 16478 : for (const auto i_to : index_range(_to_problems))
303 : {
304 9531 : const auto & to_moose_mesh = _to_problems[i_to]->mesh(_displaced_target_mesh);
305 9531 : if (isParamValid("to_blocks"))
306 : {
307 1256 : auto & blocks = getParam<std::vector<SubdomainName>>("to_blocks");
308 1256 : std::vector<SubdomainID> ids = to_moose_mesh.getSubdomainIDs(blocks);
309 1256 : _to_blocks.insert(ids.begin(), ids.end());
310 1256 : if (_to_blocks.size() != blocks.size())
311 0 : paramError("to_blocks", "Some blocks were not found in the mesh");
312 1256 : }
313 :
314 9531 : if (isParamValid("to_boundaries"))
315 : {
316 1418 : auto & boundary_names = getParam<std::vector<BoundaryName>>("to_boundaries");
317 1418 : std::vector<BoundaryID> boundary_ids = to_moose_mesh.getBoundaryIDs(boundary_names);
318 1418 : _to_boundaries.insert(boundary_ids.begin(), boundary_ids.end());
319 1418 : if (_to_boundaries.size() != boundary_names.size())
320 0 : paramError("to_boundaries", "Some boundaries were not found in the mesh");
321 1418 : }
322 :
323 9531 : if (isParamValid("to_mesh_division"))
324 : {
325 354 : const auto & mesh_div_name = getParam<MeshDivisionName>("to_mesh_division");
326 354 : _to_mesh_divisions.push_back(&_to_problems[i_to]->getMeshDivision(mesh_div_name));
327 : // Check that the behavior set makes sense
328 354 : if (_to_mesh_division_behavior == MeshDivisionTransferUse::RESTRICTION)
329 : {
330 158 : if (_to_mesh_divisions[i_to]->coversEntireMesh())
331 0 : mooseInfo("'to_mesh_division_usage' is set to use a spatial restriction but the "
332 0 : "'to_mesh_division' for target application of global index " +
333 0 : std::to_string(getGlobalSourceAppIndex(i_to)) +
334 : " covers the entire mesh. Do not expect any restriction from a mesh "
335 : "division that covers the entire mesh");
336 : }
337 196 : else if (_to_mesh_division_behavior == MeshDivisionTransferUse::MATCH_DIVISION_INDEX)
338 : {
339 110 : if (!isParamValid("from_mesh_division"))
340 0 : paramError("to_mesh_division_usage",
341 : "Target mesh division cannot match source mesh division if no source mesh "
342 : "division is specified");
343 220 : else if ((*_from_mesh_divisions.begin())->getNumDivisions() !=
344 110 : _to_mesh_divisions[i_to]->getNumDivisions())
345 4 : mooseWarning("Source and target mesh divisions do not have the same number of bins. If "
346 : "this is what you expect, please reach out to a MOOSE or app developer to "
347 : "ensure appropriate use");
348 : }
349 86 : else if (_to_mesh_division_behavior == MeshDivisionTransferUse::MATCH_SUBAPP_INDEX)
350 : {
351 86 : if (!hasFromMultiApp())
352 4 : paramError(
353 : "to_mesh_division_usage",
354 : "Cannot match target mesh division index to source subapp index if there is only one "
355 : "source: the parent app (not a subapp)");
356 82 : else if (getFromMultiApp()->numGlobalApps() != _to_mesh_divisions[i_to]->getNumDivisions())
357 4 : mooseWarning("Attempting to match source subapp index with the number of target mesh "
358 4 : "divisions, which is " +
359 8 : std::to_string(_to_mesh_divisions[i_to]->getNumDivisions()) +
360 8 : " while there are " + std::to_string(getFromMultiApp()->numGlobalApps()) +
361 : " source subapps");
362 78 : if (_from_mesh_division_behavior == MeshDivisionTransferUse::MATCH_DIVISION_INDEX)
363 0 : paramError(
364 : "from_mesh_division_usage",
365 : "We do not support using source subapp index for the target division behavior and "
366 : "matching the division index for the source mesh division behavior.");
367 : }
368 0 : else if (_to_mesh_division_behavior == "none")
369 0 : paramError("to_mesh_division_usage", "User must specify a 'to_mesh_division_usage'");
370 : }
371 9177 : else if (_to_mesh_division_behavior != "none")
372 4 : paramError("to_mesh_division",
373 4 : "'to_mesh_division' must be specified if usage method '" +
374 8 : Moose::stringify(_to_mesh_division_behavior) + "' is specified");
375 : }
376 :
377 : // Check if components are set correctly if using an array variable
378 16448 : for (const auto i_from : index_range(_from_problems))
379 : {
380 17564 : for (const auto var_index : make_range(_from_var_names.size()))
381 : {
382 : MooseVariableFieldBase & from_var =
383 16126 : _from_problems[i_from]->getVariable(0,
384 8063 : _from_var_names[var_index],
385 : Moose::VarKindType::VAR_ANY,
386 : Moose::VarFieldType::VAR_FIELD_ANY);
387 8063 : if (from_var.count() > 1 && _from_var_components.empty())
388 4 : paramError("source_variable_components", "Component must be passed for an array variable");
389 8059 : if (_from_var_components.size() && from_var.count() < _from_var_components[var_index])
390 4 : paramError("source_variable_components",
391 : "Component passed is larger than size of variable");
392 : }
393 : }
394 16438 : for (const auto i_to : index_range(_to_problems))
395 : {
396 19343 : for (const auto var_index : make_range(_to_var_names.size()))
397 : {
398 : MooseVariableFieldBase & to_var =
399 19688 : _to_problems[i_to]->getVariable(0,
400 9844 : _to_var_names[var_index],
401 : Moose::VarKindType::VAR_ANY,
402 : Moose::VarFieldType::VAR_FIELD_ANY);
403 9844 : if (to_var.count() > 1 && _to_var_components.empty())
404 4 : paramError("target_variable_components", "Component must be passed for an array variable");
405 9840 : if (_to_var_components.size() && to_var.count() < _to_var_components[var_index])
406 4 : paramError("target_variable_components",
407 : "Component passed is larger than size of variable");
408 : }
409 : }
410 :
411 : // Cache some quantities to avoid having to get them on every transferred point
412 6931 : if (_to_problems.size())
413 : {
414 6916 : _to_variables.resize(_to_var_names.size());
415 14020 : for (const auto i_var : index_range(_to_var_names))
416 14208 : _to_variables[i_var] = &_to_problems[0]->getVariable(
417 7104 : 0, _to_var_names[i_var], Moose::VarKindType::VAR_ANY, Moose::VarFieldType::VAR_FIELD_ANY);
418 : }
419 6931 : }
420 :
421 : void
422 68746 : MultiAppGeneralFieldTransfer::getAppInfo()
423 : {
424 68746 : MultiAppFieldTransfer::getAppInfo();
425 :
426 : // Create the point locators to locate evaluation points in the origin mesh(es)
427 68746 : _from_point_locators.resize(_from_problems.size());
428 143210 : for (const auto i_from : index_range(_from_problems))
429 : {
430 74464 : const auto & from_moose_mesh = _from_problems[i_from]->mesh(_displaced_source_mesh);
431 74464 : _from_point_locators[i_from] =
432 148928 : PointLocatorBase::build(TREE_LOCAL_ELEMENTS, from_moose_mesh.getMesh());
433 74464 : _from_point_locators[i_from]->enable_out_of_mesh_mode();
434 : }
435 68746 : }
436 :
437 : void
438 61755 : MultiAppGeneralFieldTransfer::execute()
439 : {
440 61755 : TIME_SECTION(
441 : "MultiAppGeneralFieldTransfer::execute()_" + name(), 5, "Transfer execution " + name());
442 61755 : getAppInfo();
443 :
444 : // Set up bounding boxes, etc
445 61755 : prepareToTransfer();
446 :
447 : // loop over the vector of variables and make the transfer one by one
448 123609 : for (const auto i : make_range(_var_size))
449 61901 : transferVariable(i);
450 :
451 61708 : postExecute();
452 61708 : }
453 :
454 : void
455 61755 : MultiAppGeneralFieldTransfer::prepareToTransfer()
456 : {
457 : // Get the bounding boxes for the "from" domains.
458 : // Clean up _from_bboxes from the previous transfer execution
459 61755 : _from_bboxes.clear();
460 :
461 : // NOTE: This ignores the app's bounding box inflation and padding
462 61755 : _from_bboxes = getRestrictedFromBoundingBoxes();
463 :
464 : // Expand bounding boxes. Some desired points might be excluded
465 : // without an expansion
466 61755 : extendBoundingBoxes(_bbox_factor, _from_bboxes);
467 :
468 : // Figure out how many "from" domains each processor owns.
469 61755 : _froms_per_proc.clear();
470 61755 : _froms_per_proc = getFromsPerProc();
471 :
472 : // Get the index for the first source app every processor owns
473 61755 : _global_app_start_per_proc = getGlobalStartAppPerProc();
474 :
475 : // No need to keep searching for conflicts if the mesh has not changed
476 61755 : if (_already_output_search_value_conflicts && !_displaced_source_mesh && !_displaced_target_mesh)
477 708 : _search_value_conflicts = false;
478 61755 : }
479 :
480 : void
481 61708 : MultiAppGeneralFieldTransfer::postExecute()
482 : {
483 61708 : MultiAppConservativeTransfer::postExecute();
484 61708 : if (_search_value_conflicts)
485 192 : _already_output_search_value_conflicts = true;
486 61708 : }
487 :
488 : void
489 61901 : MultiAppGeneralFieldTransfer::transferVariable(unsigned int i)
490 : {
491 : mooseAssert(i < _var_size, "The variable of index " << i << " does not exist");
492 :
493 : // Find outgoing target points
494 : // We need to know what points we need to send which processors
495 : // One processor will receive many points from many processors
496 : // One point may go to different processors
497 61901 : ProcessorToPointVec outgoing_points;
498 61901 : extractOutgoingPoints(i, outgoing_points);
499 :
500 61893 : if (_from_var_names.size())
501 59370 : prepareEvaluationOfInterpValues(i);
502 : else
503 2523 : prepareEvaluationOfInterpValues(-1);
504 :
505 : // Fill values and app ids for incoming points
506 : // We are responsible to compute values for these incoming points
507 : auto gather_functor =
508 91911 : [this](processor_id_type /*pid*/,
509 : const std::vector<std::pair<Point, unsigned int>> & incoming_locations,
510 91911 : std::vector<std::pair<Real, Real>> & outgoing_vals)
511 : {
512 91911 : outgoing_vals.resize(
513 : incoming_locations.size(),
514 : {GeneralFieldTransfer::BetterOutOfMeshValue, GeneralFieldTransfer::BetterOutOfMeshValue});
515 : // Evaluate interpolation values for these incoming points
516 91911 : evaluateInterpValues(incoming_locations, outgoing_vals);
517 91911 : };
518 :
519 61893 : DofobjectToInterpValVec dofobject_to_valsvec(_to_problems.size());
520 61893 : InterpCaches interp_caches(_to_problems.size(), getMaxToProblemsBBoxDimensions());
521 61893 : InterpCaches distance_caches(_to_problems.size(), getMaxToProblemsBBoxDimensions());
522 :
523 : // Copy data out to incoming_vals_ids
524 91911 : auto action_functor = [this, &i, &dofobject_to_valsvec, &interp_caches, &distance_caches](
525 : processor_id_type pid,
526 : const std::vector<std::pair<Point, unsigned int>> & my_outgoing_points,
527 183822 : const std::vector<std::pair<Real, Real>> & incoming_vals)
528 : {
529 91911 : auto & pointInfoVec = _processor_to_pointInfoVec[pid];
530 :
531 : // Cache interpolation values for each dof object / points
532 91911 : cacheIncomingInterpVals(pid,
533 : i,
534 : pointInfoVec,
535 : my_outgoing_points,
536 : incoming_vals,
537 : dofobject_to_valsvec,
538 : interp_caches,
539 : distance_caches);
540 153804 : };
541 :
542 : // We assume incoming_vals_ids is ordered in the same way as outgoing_points
543 : // Hopefully, pull_parallel_vector_data will not mess up this
544 61893 : const std::pair<Real, Real> * ex = nullptr;
545 61893 : libMesh::Parallel::pull_parallel_vector_data(
546 61893 : comm(), outgoing_points, gather_functor, action_functor, ex);
547 :
548 : // Check for conflicts and overlaps from the maps that were built during the transfer
549 61893 : if (_search_value_conflicts)
550 223 : outputValueConflicts(i, dofobject_to_valsvec, distance_caches);
551 :
552 : // Set cached values into solution vector
553 61862 : setSolutionVectorValues(i, dofobject_to_valsvec, interp_caches);
554 61854 : }
555 :
556 : void
557 6072738 : MultiAppGeneralFieldTransfer::locatePointReceivers(const Point point,
558 : std::set<processor_id_type> & processors)
559 : {
560 : // Check which processors have apps that may include or be near this point
561 : // A point may be close enough to several problems, hosted on several processes
562 6072738 : bool found = false;
563 :
564 : // Additional process-restriction techniques we could use (TODOs):
565 : // - create a heuristic for using nearest-positions
566 : // - from_mesh_divisions could be polled for which divisions they possess on each
567 : // process, depending on the behavior chosen. This could limit potential senders.
568 : // This should be done ahead of this function call, for all points at once
569 :
570 : // Determine the apps which will be receiving points (then sending values) using various
571 : // heuristics
572 6072738 : if (_use_nearest_app)
573 : {
574 : // Find the nearest position for the point
575 20027 : const bool initial = _fe_problem.getCurrentExecuteOnFlag() == EXEC_INITIAL;
576 : // The apps form the nearest positions here, this is the index of the nearest app
577 20027 : const auto nearest_index = _nearest_positions_obj->getNearestPositionIndex(point, initial);
578 :
579 : // Find the apps that are nearest to the same position
580 : // Global search over all applications
581 46435 : for (processor_id_type i_proc = 0; i_proc < n_processors(); ++i_proc)
582 : {
583 : // We need i_from to correspond to the global app index
584 26408 : unsigned int from0 = _global_app_start_per_proc[i_proc];
585 70440 : for (unsigned int i_from = from0; i_from < from0 + _froms_per_proc[i_proc]; ++i_from)
586 : {
587 44032 : if (_greedy_search || _search_value_conflicts || i_from == nearest_index)
588 : {
589 23351 : processors.insert(i_proc);
590 23351 : found = true;
591 : }
592 : mooseAssert(i_from < getFromMultiApp()->numGlobalApps(), "We should not reach this");
593 : }
594 : }
595 : mooseAssert((getFromMultiApp()->numGlobalApps() < n_processors() || processors.size() == 1) ||
596 : _greedy_search || _search_value_conflicts,
597 : "Should only be one source processor when using more processors than source apps");
598 : }
599 6052711 : else if (_use_bounding_boxes)
600 : {
601 : // We examine all (global) bounding boxes and find the minimum of the maximum distances within a
602 : // bounding box from the point. This creates a sphere around the point of interest. Any app
603 : // with a bounding box that intersects this sphere (with a bboxMinDistance <
604 : // nearest_max_distance) will be considered a potential source
605 : // NOTE: This is a heuristic. We could try others
606 : // NOTE: from_bboxes are in the reference space, as is the point.
607 6050142 : Real nearest_max_distance = std::numeric_limits<Real>::max();
608 14832576 : for (const auto & bbox : _from_bboxes)
609 : {
610 8782434 : Real distance = bboxMaxDistance(point, bbox);
611 8782434 : if (distance < nearest_max_distance)
612 7335978 : nearest_max_distance = distance;
613 : }
614 :
615 6050142 : unsigned int from0 = 0;
616 14194832 : for (processor_id_type i_proc = 0; i_proc < n_processors();
617 8144690 : from0 += _froms_per_proc[i_proc], ++i_proc)
618 : // i_from here is a hybrid index based on the cumulative sum of the apps per processor
619 16927124 : for (unsigned int i_from = from0; i_from < from0 + _froms_per_proc[i_proc]; ++i_from)
620 : {
621 8782434 : Real distance = bboxMinDistance(point, _from_bboxes[i_from]);
622 : // We will not break here because we want to send a point to all possible source domains
623 8965911 : if (_greedy_search || distance <= nearest_max_distance ||
624 183477 : _from_bboxes[i_from].contains_point(point))
625 : {
626 8599675 : processors.insert(i_proc);
627 8599675 : found = true;
628 : }
629 : }
630 : }
631 : // Greedy search will contact every single processor. It's not scalable, but if there's valid data
632 : // on any subapp on any process, it will find it
633 2569 : else if (_greedy_search)
634 : {
635 2340 : found = true;
636 5460 : for (const auto i_proc : make_range(n_processors()))
637 3120 : processors.insert(i_proc);
638 : }
639 : // Since we indicated that we only wanted values from a subapp with the same global index as the
640 : // target mesh division, we might as well only communicate with the process that owns this app
641 454 : else if (!_to_mesh_divisions.empty() &&
642 225 : _to_mesh_division_behavior == MeshDivisionTransferUse::MATCH_SUBAPP_INDEX)
643 : {
644 : // The target point could have a different index in each target mesh division. So on paper, we
645 : // would need to check all of them.
646 225 : auto saved_target_div = MooseMeshDivision::INVALID_DIVISION_INDEX;
647 450 : for (const auto i_to : index_range(_to_meshes))
648 : {
649 450 : const auto target_div = _to_mesh_divisions[i_to]->divisionIndex(
650 225 : _to_transforms[getGlobalTargetAppIndex(i_to)]->mapBack(point));
651 : // If it's the same division index, do not redo the search
652 225 : if (target_div == saved_target_div)
653 0 : continue;
654 : else
655 225 : saved_target_div = target_div;
656 :
657 : // Look for the processors owning a source-app with an index equal to the target mesh division
658 525 : for (const auto i_proc : make_range(n_processors()))
659 1200 : for (const auto i_from : make_range(_froms_per_proc[i_proc]))
660 900 : if (target_div == _global_app_start_per_proc[i_proc] + i_from)
661 : {
662 225 : processors.insert(i_proc);
663 225 : found = true;
664 : }
665 : }
666 : }
667 : else
668 4 : mooseError("No algorithm were selected to find which processes may send value data "
669 : "for a each target point. Please either specify using bounding boxes, "
670 : "greedy search, or to_mesh_division-based parameters");
671 :
672 : // Error out if we could not find this point when ask us to do so
673 6072734 : if (!found && _error_on_miss)
674 0 : mooseError(
675 : "Cannot find a source application to provide a value at point: ",
676 : point,
677 : " \n ",
678 : "It must be that mismatched meshes, between the source and target application, are being "
679 : "used.\nIf you are using the bounding boxes or nearest-app heuristics, or mesh-divisions, "
680 : "please consider using the greedy_search to confirm. Then consider choosing a different "
681 : "transfer type.\nThis check can be turned off by setting 'error_on_miss' to false. The "
682 : "'extrapolation_constant' parameter will be used to set the local value at missed points.");
683 6072734 : }
684 :
685 : void
686 6072738 : MultiAppGeneralFieldTransfer::cacheOutgoingPointInfo(const Point point,
687 : const dof_id_type dof_object_id,
688 : const unsigned int problem_id,
689 : ProcessorToPointVec & outgoing_points)
690 : {
691 6072738 : std::set<processor_id_type> processors;
692 : // Find which processors will receive point data so they can send back value data
693 : // The list can be larger than needed, depending on the heuristic / algorithm used to make
694 : // the call on whether a processor (and the apps it runs) should be involved
695 6072738 : processors.clear();
696 6072738 : locatePointReceivers(point, processors);
697 :
698 : // We need to send this location data to these processors so they can send back values
699 14201019 : for (const auto pid : processors)
700 : {
701 : // Select which from_mesh_division the source data must come from for this point
702 8128285 : unsigned int required_source_division = 0;
703 8128285 : if (_from_mesh_division_behavior == MeshDivisionTransferUse::MATCH_SUBAPP_INDEX)
704 8784 : required_source_division = getGlobalTargetAppIndex(problem_id);
705 8119501 : else if (_from_mesh_division_behavior == MeshDivisionTransferUse::MATCH_DIVISION_INDEX ||
706 16235882 : _to_mesh_division_behavior == MeshDivisionTransferUse::MATCH_DIVISION_INDEX ||
707 8116381 : _to_mesh_division_behavior == MeshDivisionTransferUse::MATCH_SUBAPP_INDEX)
708 7890 : required_source_division = _to_mesh_divisions[problem_id]->divisionIndex(
709 7890 : _to_transforms[getGlobalTargetAppIndex(problem_id)]->mapBack(point));
710 :
711 : // Skip if we already know we don't want the point
712 8128285 : if (required_source_division == MooseMeshDivision::INVALID_DIVISION_INDEX)
713 0 : continue;
714 :
715 : // Store outgoing information for every source process
716 8128285 : outgoing_points[pid].push_back(std::pair<Point, unsigned int>(point, required_source_division));
717 :
718 : // Store point information locally for processing received data
719 : // We can use these information when inserting values into the solution vector
720 : PointInfo pointinfo;
721 8128285 : pointinfo.problem_id = problem_id;
722 8128285 : pointinfo.dof_object_id = dof_object_id;
723 8128285 : _processor_to_pointInfoVec[pid].push_back(pointinfo);
724 : }
725 6072734 : }
726 :
727 : void
728 61901 : MultiAppGeneralFieldTransfer::extractOutgoingPoints(const unsigned int var_index,
729 : ProcessorToPointVec & outgoing_points)
730 : {
731 : // Get the variable name, with the accommodation for array/vector names
732 61901 : const auto & var_name = getToVarName(var_index);
733 :
734 : // Clean up the map from processor to pointInfo vector
735 : // This map should be consistent with outgoing_points
736 61901 : _processor_to_pointInfoVec.clear();
737 :
738 : // Loop over all problems
739 127186 : for (const auto i_to : index_range(_to_problems))
740 : {
741 65293 : const auto global_i_to = getGlobalTargetAppIndex(i_to);
742 :
743 : // libMesh EquationSystems
744 65293 : auto & es = getEquationSystem(*_to_problems[i_to], _displaced_target_mesh);
745 : // libMesh system that has this variable
746 65293 : System * to_sys = find_sys(es, var_name);
747 65293 : auto sys_num = to_sys->number();
748 65293 : auto var_num = _to_variables[var_index]->number();
749 65293 : auto & fe_type = _to_variables[var_index]->feType();
750 65293 : bool is_nodal = _to_variables[var_index]->isNodal();
751 :
752 : // Moose mesh
753 65293 : const auto & to_moose_mesh = _to_problems[i_to]->mesh(_displaced_target_mesh);
754 65293 : const auto & to_mesh = to_moose_mesh.getMesh();
755 :
756 : // We support more general variables via libMesh GenericProjector
757 65293 : if (fe_type.order > CONSTANT && !is_nodal)
758 : {
759 370 : GeneralFieldTransfer::RecordRequests<Number> f;
760 370 : GeneralFieldTransfer::RecordRequests<Gradient> g;
761 370 : GeneralFieldTransfer::NullAction<Number> nullsetter;
762 370 : const std::vector<unsigned int> varvec(1, var_num);
763 :
764 : libMesh::GenericProjector<GeneralFieldTransfer::RecordRequests<Number>,
765 : GeneralFieldTransfer::RecordRequests<Gradient>,
766 : Number,
767 : GeneralFieldTransfer::NullAction<Number>>
768 370 : request_gather(*to_sys, f, &g, nullsetter, varvec);
769 :
770 : // Defining only boundary values will not be enough to describe the variable, disallow it
771 370 : if (_to_boundaries.size() && (_to_variables[var_index]->getContinuity() == DISCONTINUOUS))
772 4 : mooseError("Higher order discontinuous elemental variables are not supported for "
773 : "target-boundary "
774 : "restricted transfers");
775 :
776 : // Not implemented as the target mesh division could similarly be cutting elements in an
777 : // arbitrary way with not enough requested points to describe the target variable
778 366 : if (!_to_mesh_divisions.empty() && !_to_mesh_divisions[i_to]->coversEntireMesh())
779 0 : mooseError("Higher order variable support not implemented for target mesh division "
780 : "unless the mesh is fully covered / indexed in the mesh division. This must be "
781 : "set programmatically in the MeshDivision object used.");
782 :
783 : // We dont look at boundary restriction, not supported for higher order target variables
784 : // Same for mesh divisions
785 366 : const auto & to_begin = _to_blocks.empty()
786 615 : ? to_mesh.active_local_elements_begin()
787 366 : : to_mesh.active_local_subdomain_set_elements_begin(_to_blocks);
788 :
789 366 : const auto & to_end = _to_blocks.empty()
790 615 : ? to_mesh.active_local_elements_end()
791 366 : : to_mesh.active_local_subdomain_set_elements_end(_to_blocks);
792 :
793 366 : ConstElemRange to_elem_range(to_begin, to_end);
794 :
795 366 : request_gather.project(to_elem_range);
796 :
797 366 : dof_id_type point_id = 0;
798 298716 : for (const Point & p : f.points_requested())
799 : // using the point number as a "dof_object_id" will serve to identify the point if we ever
800 : // rework interp/distance_cache into the dof_id_to_value maps
801 298350 : this->cacheOutgoingPointInfo(
802 298350 : (*_to_transforms[global_i_to])(p), point_id++, i_to, outgoing_points);
803 :
804 : // This is going to require more complicated transfer work
805 366 : if (!g.points_requested().empty())
806 0 : mooseError("We don't currently support variables with gradient degrees of freedom");
807 366 : }
808 64923 : else if (is_nodal)
809 : {
810 11706917 : for (const auto & node : to_mesh.local_node_ptr_range())
811 : {
812 : // Skip this node if the variable has no dofs at it.
813 5824247 : if (node->n_dofs(sys_num, var_num) < 1)
814 301957 : continue;
815 :
816 : // Skip if it is a block restricted transfer and current node does not have
817 : // specified blocks
818 5522290 : if (!_to_blocks.empty() && !inBlocks(_to_blocks, to_moose_mesh, node))
819 14818 : continue;
820 :
821 5507472 : if (!_to_boundaries.empty() && !onBoundaries(_to_boundaries, to_moose_mesh, node))
822 190960 : continue;
823 :
824 : // Skip if the node does not meet the target mesh division behavior
825 : // We cannot know from which app the data will come from so we cannot know
826 : // the source mesh division index and the source app global index
827 5316512 : if (!_to_mesh_divisions.empty() && _to_mesh_divisions[i_to]->divisionIndex(*node) ==
828 : MooseMeshDivision::INVALID_DIVISION_INDEX)
829 4950 : continue;
830 :
831 : // Cache point information
832 : // We will use this information later for setting values back to solution vectors
833 5311562 : cacheOutgoingPointInfo(
834 5311562 : (*_to_transforms[global_i_to])(*node), node->id(), i_to, outgoing_points);
835 58427 : }
836 : }
837 : else // Elemental, constant monomial
838 : {
839 6492 : for (const auto & elem :
840 1056126 : as_range(to_mesh.local_elements_begin(), to_mesh.local_elements_end()))
841 : {
842 : // Skip this element if the variable has no dofs at it.
843 521571 : if (elem->n_dofs(sys_num, var_num) < 1)
844 7948 : continue;
845 :
846 : // Skip if the element is not inside the block restriction
847 513623 : if (!_to_blocks.empty() && !inBlocks(_to_blocks, elem))
848 5116 : continue;
849 :
850 : // Skip if the element does not have a side on the boundary
851 508507 : if (!_to_boundaries.empty() && !onBoundaries(_to_boundaries, to_moose_mesh, elem))
852 42315 : continue;
853 :
854 : // Skip if the element is not indexed within the mesh division
855 466192 : if (!_to_mesh_divisions.empty() && _to_mesh_divisions[i_to]->divisionIndex(*elem) ==
856 : MooseMeshDivision::INVALID_DIVISION_INDEX)
857 3366 : continue;
858 :
859 : // Cache point information
860 : // We will use this information later for setting values back to solution vectors
861 462826 : cacheOutgoingPointInfo((*_to_transforms[global_i_to])(elem->vertex_average()),
862 462826 : elem->id(),
863 : i_to,
864 : outgoing_points);
865 6492 : } // for
866 : } // else
867 : } // for
868 61893 : }
869 :
870 : void
871 7573 : MultiAppGeneralFieldTransfer::extractLocalFromBoundingBoxes(std::vector<BoundingBox> & local_bboxes)
872 : {
873 7573 : local_bboxes.resize(_froms_per_proc[processor_id()]);
874 : // Find the index to the first of this processor's local bounding boxes.
875 7573 : unsigned int local_start = 0;
876 9403 : for (processor_id_type i_proc = 0; i_proc < n_processors() && i_proc != processor_id(); ++i_proc)
877 1830 : local_start += _froms_per_proc[i_proc];
878 :
879 : // Extract the local bounding boxes.
880 17047 : for (const auto i_from : make_range(_froms_per_proc[processor_id()]))
881 9474 : local_bboxes[i_from] = _from_bboxes[local_start + i_from];
882 7573 : }
883 :
884 : void
885 91911 : MultiAppGeneralFieldTransfer::cacheIncomingInterpVals(
886 : processor_id_type pid,
887 : const unsigned int var_index,
888 : std::vector<PointInfo> & pointInfoVec,
889 : const std::vector<std::pair<Point, unsigned int>> & point_requests,
890 : const std::vector<std::pair<Real, Real>> & incoming_vals,
891 : DofobjectToInterpValVec & dofobject_to_valsvec,
892 : InterpCaches & interp_caches,
893 : InterpCaches & distance_caches)
894 : {
895 : mooseAssert(pointInfoVec.size() == incoming_vals.size(),
896 : "Number of dof objects does not equal to the number of incoming values");
897 :
898 91911 : dof_id_type val_offset = 0;
899 8220196 : for (const auto & pointinfo : pointInfoVec)
900 : {
901 : // Retrieve target information from cached point infos
902 8128285 : const auto problem_id = pointinfo.problem_id;
903 8128285 : const auto dof_object_id = pointinfo.dof_object_id;
904 :
905 8128285 : auto & fe_type = _to_variables[var_index]->feType();
906 8128285 : bool is_nodal = _to_variables[var_index]->isNodal();
907 :
908 : // In the higher order elemental variable case, we receive point values, not nodal or
909 : // elemental. We use an InterpCache to store the values. The distance_cache is necessary to
910 : // choose between multiple origin problems sending values. This code could be unified with the
911 : // lower order order case by using the dofobject_to_valsvec
912 8128285 : if (fe_type.order > CONSTANT && !is_nodal)
913 : {
914 : // Cache solution on target mesh in its local frame of reference
915 393825 : InterpCache & value_cache = interp_caches[problem_id];
916 393825 : InterpCache & distance_cache = distance_caches[problem_id];
917 393825 : Point p = _to_transforms[getGlobalTargetAppIndex(problem_id)]->mapBack(
918 393825 : point_requests[val_offset].first);
919 393825 : const Number val = incoming_vals[val_offset].first;
920 :
921 : // Initialize distance to be able to compare
922 393825 : if (!distance_cache.hasKey(p))
923 298350 : distance_cache[p] = std::numeric_limits<Real>::max();
924 :
925 : // We should only have one closest value for each variable at any given point.
926 : // While there are shared Qps, on vertices for higher order variables usually,
927 : // the generic projector only queries each point once
928 393825 : if (_search_value_conflicts && !GeneralFieldTransfer::isBetterOutOfMeshValue(val) &&
929 393825 : value_cache.hasKey(p) != 0 && !MooseUtils::absoluteFuzzyEqual(value_cache[p], val) &&
930 0 : MooseUtils::absoluteFuzzyEqual(distance_cache[p], incoming_vals[val_offset].second))
931 0 : registerConflict(problem_id, dof_object_id, p, incoming_vals[val_offset].second, false);
932 :
933 : // if we use the nearest app, even if the value is bad we want to save the distance because
934 : // it's the distance to the app, if that's the closest app then so be it with the bad value
935 469760 : if ((!GeneralFieldTransfer::isBetterOutOfMeshValue(val) || _use_nearest_app) &&
936 75935 : MooseUtils::absoluteFuzzyGreaterThan(distance_cache[p], incoming_vals[val_offset].second))
937 : {
938 : // NOTE: We store the distance as well as the value. We really only need the
939 : // value to construct the variable, but the distance is used to make decisions in nearest
940 : // node schemes on which value to use
941 72358 : value_cache[p] = val;
942 72358 : distance_cache[p] = incoming_vals[val_offset].second;
943 : }
944 : }
945 : else
946 : {
947 : // Using the dof object pointer, so we can handle
948 : // both element and node using the same code
949 : #ifndef NDEBUG
950 : auto var_num = _to_variables[var_index]->number();
951 : auto & to_sys = _to_variables[var_index]->sys();
952 :
953 : const MeshBase & to_mesh = _to_problems[problem_id]->mesh(_displaced_target_mesh).getMesh();
954 : const DofObject * dof_object_ptr = nullptr;
955 : const auto sys_num = to_sys.number();
956 : // It is a node
957 : if (is_nodal)
958 : dof_object_ptr = to_mesh.node_ptr(dof_object_id);
959 : // It is an element
960 : else
961 : dof_object_ptr = to_mesh.elem_ptr(dof_object_id);
962 :
963 : // We should only be supporting nodal and constant elemental
964 : // variables in this code path; if we see multiple DoFs on one
965 : // object we should have been using GenericProjector
966 : mooseAssert(dof_object_ptr->n_dofs(sys_num, var_num) == 1,
967 : "Unexpectedly found " << dof_object_ptr->n_dofs(sys_num, var_num)
968 : << "dofs instead of 1");
969 : #endif
970 :
971 7734460 : auto & dofobject_to_val = dofobject_to_valsvec[problem_id];
972 :
973 : // Check if we visited this dof object earlier
974 7734460 : auto values_ptr = dofobject_to_val.find(dof_object_id);
975 : // We did not visit this
976 7734460 : if (values_ptr == dofobject_to_val.end())
977 : {
978 : // Values for this dof object
979 5774384 : auto & val = dofobject_to_val[dof_object_id];
980 : // Interpolation value
981 5774384 : val.interp = incoming_vals[val_offset].first;
982 : // Where this value came from
983 5774384 : val.pid = pid;
984 : // Distance
985 5774384 : val.distance = incoming_vals[val_offset].second;
986 : }
987 : else
988 : {
989 1960076 : auto & val = values_ptr->second;
990 :
991 : // Look for value conflicts
992 1960076 : if (detectConflict(val.interp,
993 1960076 : incoming_vals[val_offset].first,
994 : val.distance,
995 1960076 : incoming_vals[val_offset].second))
996 : {
997 : // Keep track of distance and value
998 : const Point p =
999 0 : getPointInTargetAppFrame(point_requests[val_offset].first,
1000 : problem_id,
1001 : "Registration of received equi-distant value conflict");
1002 0 : registerConflict(problem_id, dof_object_id, p, incoming_vals[val_offset].second, false);
1003 : }
1004 :
1005 : // We adopt values that are, in order of priority
1006 : // - valid (or from nearest app)
1007 : // - closest distance
1008 : // - the smallest rank with the same distance
1009 : // It is debatable whether we want invalid values from the nearest app. It could just be
1010 : // that the app position was closer but the extent of another child app was large enough
1011 3920152 : if ((!GeneralFieldTransfer::isBetterOutOfMeshValue(incoming_vals[val_offset].first) ||
1012 3685445 : _use_nearest_app) &&
1013 1725369 : (MooseUtils::absoluteFuzzyGreaterThan(val.distance, incoming_vals[val_offset].second) ||
1014 1369690 : ((val.pid > pid) &&
1015 591821 : MooseUtils::absoluteFuzzyEqual(val.distance, incoming_vals[val_offset].second))))
1016 : {
1017 356207 : val.interp = incoming_vals[val_offset].first;
1018 356207 : val.pid = pid;
1019 356207 : val.distance = incoming_vals[val_offset].second;
1020 : }
1021 : }
1022 : }
1023 :
1024 : // Move it to next position
1025 8128285 : val_offset++;
1026 : }
1027 91911 : }
1028 :
1029 : void
1030 438 : MultiAppGeneralFieldTransfer::registerConflict(
1031 : unsigned int problem, dof_id_type dof_id, Point p, Real dist, bool local)
1032 : {
1033 : // NOTE We could be registering the same conflict several times, we could count them instead
1034 438 : if (local)
1035 438 : _local_conflicts.push_back(std::make_tuple(problem, dof_id, p, dist));
1036 : else
1037 0 : _received_conflicts.push_back(std::make_tuple(problem, dof_id, p, dist));
1038 438 : }
1039 :
1040 : void
1041 223 : MultiAppGeneralFieldTransfer::examineReceivedValueConflicts(
1042 : const unsigned int var_index,
1043 : const DofobjectToInterpValVec & dofobject_to_valsvec,
1044 : const InterpCaches & distance_caches)
1045 : {
1046 223 : const auto var_name = getToVarName(var_index);
1047 : // We must check a posteriori because we could have two
1048 : // equidistant points with different values from two different problems, but a third point from
1049 : // another problem is actually closer, so there is no conflict because only that last one
1050 : // matters We check here whether the potential conflicts actually were the nearest points Loop
1051 : // over potential conflicts
1052 223 : for (auto conflict_it = _received_conflicts.begin(); conflict_it != _received_conflicts.end();)
1053 : {
1054 0 : const auto potential_conflict = *conflict_it;
1055 0 : bool overlap_found = false;
1056 :
1057 : // Extract info for the potential conflict
1058 0 : const unsigned int problem_id = std::get<0>(potential_conflict);
1059 0 : const dof_id_type dof_object_id = std::get<1>(potential_conflict);
1060 0 : const Point p = std::get<2>(potential_conflict);
1061 0 : const Real distance = std::get<3>(potential_conflict);
1062 :
1063 : // Extract target variable info
1064 0 : auto & es = getEquationSystem(*_to_problems[problem_id], _displaced_target_mesh);
1065 0 : System * to_sys = find_sys(es, var_name);
1066 0 : auto var_num = to_sys->variable_number(var_name);
1067 0 : auto & fe_type = to_sys->variable_type(var_num);
1068 0 : bool is_nodal = _to_variables[var_index]->isNodal();
1069 :
1070 : // Higher order elemental
1071 0 : if (fe_type.order > CONSTANT && !is_nodal)
1072 : {
1073 0 : auto cached_distance = distance_caches[problem_id].find(p);
1074 0 : if (cached_distance == distance_caches[problem_id].end())
1075 0 : mooseError("Conflict point was not found in the map of all origin-target distances");
1076 : // Distance is still the distance when we detected a potential overlap
1077 0 : if (MooseUtils::absoluteFuzzyEqual(cached_distance->second, distance))
1078 0 : overlap_found = true;
1079 : }
1080 : // Nodal and const monomial variable
1081 0 : else if (MooseUtils::absoluteFuzzyEqual(
1082 0 : dofobject_to_valsvec[problem_id].find(dof_object_id)->second.distance, distance))
1083 0 : overlap_found = true;
1084 :
1085 : // Map will only keep the actual overlaps
1086 0 : if (!overlap_found)
1087 0 : _received_conflicts.erase(conflict_it);
1088 : else
1089 0 : ++conflict_it;
1090 : }
1091 223 : }
1092 :
1093 : void
1094 223 : MultiAppGeneralFieldTransfer::examineLocalValueConflicts(
1095 : const unsigned int var_index,
1096 : const DofobjectToInterpValVec & dofobject_to_valsvec,
1097 : const InterpCaches & distance_caches)
1098 : {
1099 223 : const auto var_name = getToVarName(var_index);
1100 : // We must check a posteriori because we could have:
1101 : // - two equidistant points with different values from two different problems
1102 : // - two (or more) equidistant points with different values from the same problem
1103 : // but a third point/value couple from another problem is actually closer, so there is no
1104 : // conflict because only that last one matters. We check here whether the potential conflicts
1105 : // actually were the nearest points. We use several global reductions. If there are not too many
1106 : // potential conflicts (and there should not be in a well-posed problem) it should be manageably
1107 : // expensive
1108 :
1109 : // Move relevant conflict info (location, distance) to a smaller data structure
1110 223 : std::vector<std::tuple<Point, Real>> potential_conflicts;
1111 223 : potential_conflicts.reserve(_local_conflicts.size());
1112 :
1113 : // Loop over potential conflicts to broadcast all the conflicts
1114 661 : for (auto conflict_it = _local_conflicts.begin(); conflict_it != _local_conflicts.end();
1115 438 : ++conflict_it)
1116 : {
1117 : // Extract info for the potential conflict
1118 438 : const auto potential_conflict = *conflict_it;
1119 438 : const unsigned int i_from = std::get<0>(potential_conflict);
1120 438 : Point p = std::get<2>(potential_conflict);
1121 438 : const Real distance = std::get<3>(potential_conflict);
1122 : // If not using nearest-positions: potential conflict was saved in the source frame
1123 : // If using nearest-positions: potential conflict was saved in the reference frame
1124 438 : if (!_nearest_positions_obj)
1125 : {
1126 390 : const auto from_global_num = getGlobalSourceAppIndex(i_from);
1127 390 : p = (*_from_transforms[from_global_num])(p);
1128 : }
1129 :
1130 : // Send data in the global frame of reference
1131 438 : potential_conflicts.push_back(std::make_tuple(p, distance));
1132 : }
1133 223 : _communicator.allgather(potential_conflicts, false);
1134 : // conflicts could have been reported multiple times within a tolerance
1135 223 : std::sort(potential_conflicts.begin(), potential_conflicts.end());
1136 223 : potential_conflicts.erase(unique(potential_conflicts.begin(),
1137 : potential_conflicts.end(),
1138 407 : [](auto l, auto r)
1139 : {
1140 451 : return std::get<0>(l).absolute_fuzzy_equals(std::get<0>(r)) &&
1141 451 : std::abs(std::get<1>(l) - std::get<1>(r)) < TOLERANCE;
1142 : }),
1143 223 : potential_conflicts.end());
1144 :
1145 223 : std::vector<std::tuple<Point, Real>> real_conflicts;
1146 223 : real_conflicts.reserve(potential_conflicts.size());
1147 :
1148 : // For each potential conflict, we need to identify what problem asked for that value
1149 617 : for (auto conflict_it = potential_conflicts.begin(); conflict_it != potential_conflicts.end();
1150 394 : ++conflict_it)
1151 : {
1152 : // Extract info for the potential conflict
1153 394 : auto potential_conflict = *conflict_it;
1154 394 : const Point p = std::get<0>(potential_conflict);
1155 394 : const Real distance = std::get<1>(potential_conflict);
1156 :
1157 : // Check all the problems to try to find this requested point in the data structures filled
1158 : // with the received information
1159 394 : bool target_found = false;
1160 394 : bool conflict_real = false;
1161 788 : for (const auto i_to : index_range(_to_problems))
1162 : {
1163 : // Extract variable info
1164 394 : auto & es = getEquationSystem(*_to_problems[i_to], _displaced_target_mesh);
1165 394 : System * to_sys = find_sys(es, var_name);
1166 394 : auto var_num = to_sys->variable_number(var_name);
1167 394 : auto & fe_type = to_sys->variable_type(var_num);
1168 394 : bool is_nodal = _to_variables[var_index]->isNodal();
1169 :
1170 : // Move to the local frame of reference for the target problem
1171 : Point local_p =
1172 394 : getPointInTargetAppFrame(p, i_to, "Resolution of local value conflicts detected");
1173 :
1174 : // Higher order elemental
1175 394 : if (fe_type.order > CONSTANT && !is_nodal)
1176 : {
1177 : // distance_caches finds use a binned floating point search
1178 0 : auto cached_distance = distance_caches[i_to].find(local_p);
1179 0 : if (cached_distance != distance_caches[i_to].end())
1180 : {
1181 0 : target_found = true;
1182 : // Distance between source & target is still the distance we found in the sending
1183 : // process when we detected a potential overlap while gathering values to send
1184 0 : if (MooseUtils::absoluteFuzzyEqual(cached_distance->second, distance))
1185 0 : conflict_real = true;
1186 : }
1187 : }
1188 : // Nodal-value-dof-only and const monomial variable
1189 : else
1190 : {
1191 : // Find the dof id for the variable to be set
1192 394 : dof_id_type dof_object_id = std::numeric_limits<dof_id_type>::max();
1193 394 : auto pl = _to_problems[i_to]->mesh().getPointLocator();
1194 394 : pl->enable_out_of_mesh_mode();
1195 394 : if (is_nodal)
1196 : {
1197 366 : auto node = pl->locate_node(local_p);
1198 366 : if (node)
1199 : // this is not the dof_id for the variable, but the dof_object_id
1200 366 : dof_object_id = node->id();
1201 : }
1202 : else
1203 : {
1204 28 : auto elem = (*pl)(local_p);
1205 28 : if (elem)
1206 28 : dof_object_id = elem->id();
1207 : }
1208 394 : pl->disable_out_of_mesh_mode();
1209 :
1210 : // point isn't even in mesh
1211 394 : if (dof_object_id == std::numeric_limits<dof_id_type>::max())
1212 0 : continue;
1213 :
1214 : // this dof was not requested by this problem on this process
1215 394 : if (dofobject_to_valsvec[i_to].find(dof_object_id) == dofobject_to_valsvec[i_to].end())
1216 0 : continue;
1217 :
1218 394 : target_found = true;
1219 : // Check the saved distance in the vector of saved results. If the same, then the local
1220 : // conflict we detected with that distance is still an issue after receiving all values
1221 788 : if (MooseUtils::absoluteFuzzyEqual(
1222 394 : dofobject_to_valsvec[i_to].find(dof_object_id)->second.distance, distance))
1223 394 : conflict_real = true;
1224 394 : }
1225 : }
1226 : // Only keep the actual conflicts / overlaps
1227 394 : if (target_found && conflict_real)
1228 394 : real_conflicts.push_back(potential_conflict);
1229 : }
1230 :
1231 : // Communicate real conflicts to all so they can be checked by every process
1232 223 : _communicator.allgather(real_conflicts, false);
1233 :
1234 : // Delete potential conflicts that were resolved
1235 : // Each local list of conflicts will now be updated. It's important to keep conflict lists local
1236 : // so we can give more context like the sending processor id (the domain of which can be
1237 : // inspected by the user)
1238 661 : for (auto conflict_it = _local_conflicts.begin(); conflict_it != _local_conflicts.end();)
1239 : {
1240 : // Extract info for the potential conflict
1241 438 : const auto potential_conflict = *conflict_it;
1242 438 : const unsigned int i_from = std::get<0>(potential_conflict);
1243 438 : Point p = std::get<2>(potential_conflict);
1244 438 : const Real distance = std::get<3>(potential_conflict);
1245 438 : if (!_nearest_positions_obj)
1246 : {
1247 390 : const auto from_global_num = getGlobalSourceAppIndex(i_from);
1248 390 : p = (*_from_transforms[from_global_num])(p);
1249 : }
1250 :
1251 : // If not in the vector of real conflicts, was not real so delete it
1252 438 : if (std::find_if(real_conflicts.begin(),
1253 : real_conflicts.end(),
1254 7037 : [p, distance](const auto & item)
1255 : {
1256 7037 : return std::get<0>(item).absolute_fuzzy_equals(p) &&
1257 7037 : std::abs(std::get<1>(item) - distance) < TOLERANCE;
1258 876 : }) == real_conflicts.end())
1259 0 : _local_conflicts.erase(conflict_it);
1260 : else
1261 438 : ++conflict_it;
1262 : }
1263 223 : }
1264 :
1265 : void
1266 223 : MultiAppGeneralFieldTransfer::outputValueConflicts(
1267 : const unsigned int var_index,
1268 : const DofobjectToInterpValVec & dofobject_to_valsvec,
1269 : const InterpCaches & distance_caches)
1270 : {
1271 : // Remove potential conflicts that did not materialize, the value did not end up being used
1272 223 : examineReceivedValueConflicts(var_index, dofobject_to_valsvec, distance_caches);
1273 223 : examineLocalValueConflicts(var_index, dofobject_to_valsvec, distance_caches);
1274 :
1275 : // Output the conflicts from the selection of local values (evaluateInterpValues-type routines)
1276 : // to send in response to value requests at target points
1277 223 : const std::string rank_str = std::to_string(_communicator.rank());
1278 223 : if (_local_conflicts.size())
1279 : {
1280 31 : unsigned int num_outputs = 0;
1281 31 : std::string local_conflicts_string = "";
1282 : std::string potential_reasons =
1283 : "Are some points in target mesh equidistant from the sources "
1284 31 : "(nodes/centroids/apps/positions, depending on transfer) in origin mesh(es)?\n";
1285 31 : if (hasFromMultiApp() && _from_problems.size() > 1)
1286 23 : potential_reasons += "Are multiple subapps overlapping?\n";
1287 469 : for (const auto & conflict : _local_conflicts)
1288 : {
1289 438 : const unsigned int problem_id = std::get<0>(conflict);
1290 438 : Point p = std::get<2>(conflict);
1291 438 : num_outputs++;
1292 :
1293 438 : std::string origin_domain_message;
1294 438 : if (hasFromMultiApp() && !_nearest_positions_obj)
1295 : {
1296 : // NOTES:
1297 : // - The origin app for a conflict may not be unique.
1298 : // - The conflicts vectors only store the conflictual points, not the original one
1299 : // The original value found with a given distance could be retrieved from the main
1300 : // caches
1301 390 : const auto app_id = _from_local2global_map[problem_id];
1302 390 : origin_domain_message = "In source child app " + std::to_string(app_id) + " mesh,";
1303 : }
1304 : // We can't locate the source app when considering nearest positions, so we saved the data
1305 : // in the reference space. So we return the conflict location in the target app (parent or
1306 : // sibling) instead
1307 48 : else if (hasFromMultiApp() && _nearest_positions_obj)
1308 : {
1309 48 : if (_to_problems.size() == 1 || _skip_coordinate_collapsing)
1310 : {
1311 48 : p = (*_to_transforms[0])(p);
1312 48 : origin_domain_message = "In target app mesh,";
1313 : }
1314 : else
1315 0 : origin_domain_message = "In reference (post-coordinate collapse) mesh,";
1316 : }
1317 : else
1318 0 : origin_domain_message = "In source parent app mesh,";
1319 :
1320 438 : if (num_outputs < _search_value_conflicts_max_log)
1321 348 : local_conflicts_string += origin_domain_message + " point: (" + std::to_string(p(0)) +
1322 696 : ", " + std::to_string(p(1)) + ", " + std::to_string(p(2)) +
1323 696 : "), equi-distance: " + std::to_string(std::get<3>(conflict)) +
1324 174 : "\n";
1325 264 : else if (num_outputs == _search_value_conflicts_max_log)
1326 : local_conflicts_string +=
1327 : "Maximum output of the search for value conflicts has been reached. Further conflicts "
1328 8 : "will not be output.\nIncrease 'search_value_conflicts_max_log' to output more.";
1329 438 : }
1330 : // Explicitly name source to give more context
1331 31 : std::string source_str = "unknown";
1332 31 : if (_from_var_names.size())
1333 27 : source_str = "variable '" + getFromVarName(var_index) + "'";
1334 4 : else if (isParamValid("source_user_object"))
1335 4 : source_str = "user object '" + getParam<UserObjectName>("source_user_object") + "'";
1336 :
1337 62 : mooseWarning("On rank " + rank_str +
1338 : ", multiple valid values from equidistant points were "
1339 31 : "found in the origin mesh for source " +
1340 62 : source_str + " for " + std::to_string(_local_conflicts.size()) +
1341 31 : " target points.\n" + potential_reasons + "Conflicts detected at :\n" +
1342 : local_conflicts_string);
1343 0 : }
1344 :
1345 : // Output the conflicts discovered when receiving values from multiple origin problems
1346 192 : if (_received_conflicts.size())
1347 : {
1348 0 : unsigned int num_outputs = 0;
1349 0 : std::string received_conflicts_string = "";
1350 : std::string potential_reasons =
1351 : "Are some points in target mesh equidistant from the sources "
1352 0 : "(nodes/centroids/apps/positions, depending on transfer) in origin mesh(es)?\n";
1353 0 : if (hasToMultiApp() && _to_problems.size() > 1)
1354 0 : potential_reasons += "Are multiple subapps overlapping?\n";
1355 0 : for (const auto & conflict : _received_conflicts)
1356 : {
1357 : // Extract info for the potential overlap
1358 0 : const unsigned int problem_id = std::get<0>(conflict);
1359 0 : const Point p = std::get<2>(conflict);
1360 0 : num_outputs++;
1361 :
1362 0 : std::string target_domain_message;
1363 0 : if (hasToMultiApp())
1364 : {
1365 0 : const auto app_id = _to_local2global_map[problem_id];
1366 0 : target_domain_message = "In target child app " + std::to_string(app_id) + " mesh,";
1367 : }
1368 : else
1369 0 : target_domain_message = "In target parent app mesh,";
1370 :
1371 0 : if (num_outputs < _search_value_conflicts_max_log)
1372 0 : received_conflicts_string += target_domain_message + " point: (" + std::to_string(p(0)) +
1373 0 : ", " + std::to_string(p(1)) + ", " + std::to_string(p(2)) +
1374 0 : "), equi-distance: " + std::to_string(std::get<3>(conflict)) +
1375 0 : "\n";
1376 0 : else if (num_outputs == _search_value_conflicts_max_log)
1377 : received_conflicts_string +=
1378 : "Maximum output of the search for value conflicts has been reached. Further conflicts "
1379 0 : "will not be output.\nIncrease 'search_value_conflicts_max_log' to output more.";
1380 0 : }
1381 0 : mooseWarning("On rank " + rank_str +
1382 : ", multiple valid values from equidistant points were "
1383 0 : "received for target variable '" +
1384 0 : getToVarName(var_index) + "' for " + std::to_string(_received_conflicts.size()) +
1385 0 : " target points.\n" + potential_reasons + "Conflicts detected at :\n" +
1386 : received_conflicts_string);
1387 0 : }
1388 :
1389 192 : if (_local_conflicts.empty() && _received_conflicts.empty())
1390 : {
1391 192 : if (isParamSetByUser("search_value_conflict"))
1392 0 : mooseInfo("Automated diagnosis did not detect floating point indetermination in transfer");
1393 192 : else if (_to_problems.size() > 10 || _from_problems.size() > 10 || _communicator.size() > 10)
1394 0 : mooseInfo(
1395 : "Automated diagnosis did not detect any floating point indetermination in "
1396 : "the transfer. You may consider turning it off using `search_value_conflicts=false` "
1397 : "to improve performance/scalability.");
1398 : }
1399 :
1400 : // Reset the conflicts vectors, to be used for checking conflicts when transferring the next
1401 : // variable
1402 192 : _local_conflicts.clear();
1403 192 : _received_conflicts.clear();
1404 192 : }
1405 :
1406 : void
1407 61862 : MultiAppGeneralFieldTransfer::setSolutionVectorValues(
1408 : const unsigned int var_index,
1409 : const DofobjectToInterpValVec & dofobject_to_valsvec,
1410 : const InterpCaches & interp_caches)
1411 : {
1412 : // Get the variable name, with the accommodation for array/vector names
1413 61862 : const auto & var_name = getToVarName(var_index);
1414 :
1415 127108 : for (const auto problem_id : index_range(_to_problems))
1416 : {
1417 65254 : auto & dofobject_to_val = dofobject_to_valsvec[problem_id];
1418 :
1419 : // libMesh EquationSystems
1420 : // NOTE: we would expect to set variables from the displaced equation system here
1421 65254 : auto & es = getEquationSystem(*_to_problems[problem_id], false);
1422 :
1423 : // libMesh system
1424 65254 : System * to_sys = find_sys(es, var_name);
1425 :
1426 : // libMesh mesh
1427 65254 : const MeshBase & to_mesh = _to_problems[problem_id]->mesh(_displaced_target_mesh).getMesh();
1428 65254 : auto var_num = to_sys->variable_number(var_name);
1429 65254 : auto sys_num = to_sys->number();
1430 :
1431 65254 : auto & fe_type = _to_variables[var_index]->feType();
1432 65254 : bool is_nodal = _to_variables[var_index]->isNodal();
1433 :
1434 65254 : if (fe_type.order > CONSTANT && !is_nodal)
1435 : {
1436 : // We may need to use existing data values in places where the
1437 : // from app domain doesn't overlap
1438 366 : MeshFunction to_func(es, *to_sys->current_local_solution, to_sys->get_dof_map(), var_num);
1439 366 : to_func.init();
1440 :
1441 : GeneralFieldTransfer::CachedData<Number> f(
1442 366 : interp_caches[problem_id], to_func, _default_extrapolation_value);
1443 366 : libMesh::VectorSetAction<Number> setter(*to_sys->solution);
1444 366 : const std::vector<unsigned int> varvec(1, var_num);
1445 :
1446 : libMesh::GenericProjector<GeneralFieldTransfer::CachedData<Number>,
1447 : GeneralFieldTransfer::CachedData<Gradient>,
1448 : Number,
1449 : libMesh::VectorSetAction<Number>>
1450 366 : set_solution(*to_sys, f, nullptr, setter, varvec);
1451 :
1452 : // We dont look at boundary restriction, not supported for higher order target variables
1453 366 : const auto & to_begin = _to_blocks.empty()
1454 615 : ? to_mesh.active_local_elements_begin()
1455 366 : : to_mesh.active_local_subdomain_set_elements_begin(_to_blocks);
1456 :
1457 366 : const auto & to_end = _to_blocks.empty()
1458 615 : ? to_mesh.active_local_elements_end()
1459 366 : : to_mesh.active_local_subdomain_set_elements_end(_to_blocks);
1460 :
1461 366 : ConstElemRange active_local_elem_range(to_begin, to_end);
1462 :
1463 366 : set_solution.project(active_local_elem_range);
1464 366 : }
1465 : else
1466 : {
1467 5834481 : for (const auto & val_pair : dofobject_to_val)
1468 : {
1469 5769601 : const auto dof_object_id = val_pair.first;
1470 :
1471 5769601 : const DofObject * dof_object = nullptr;
1472 5769601 : if (is_nodal)
1473 5307811 : dof_object = to_mesh.node_ptr(dof_object_id);
1474 : else
1475 461790 : dof_object = to_mesh.elem_ptr(dof_object_id);
1476 :
1477 5769601 : const auto dof = dof_object->dof_number(sys_num, var_num, 0);
1478 5769601 : const auto val = val_pair.second.interp;
1479 :
1480 : // This will happen if meshes are mismatched
1481 5769601 : if (_error_on_miss && GeneralFieldTransfer::isBetterOutOfMeshValue(val))
1482 : {
1483 : const auto target_location =
1484 8 : hasToMultiApp()
1485 8 : ? " on target app " + std::to_string(getGlobalTargetAppIndex(problem_id))
1486 12 : : " on parent app";
1487 8 : const auto info_msg = "\nThis check can be turned off by setting 'error_on_miss' to "
1488 : "false. The 'extrapolation_constant' parameter will be used to set "
1489 : "the local value at missed points.";
1490 8 : if (is_nodal)
1491 4 : mooseError("No source value for node ",
1492 : dof_object_id,
1493 : target_location,
1494 : " could be located. Node details:\n",
1495 4 : _to_meshes[problem_id]->nodePtr(dof_object_id)->get_info(),
1496 : "\n",
1497 : info_msg);
1498 : else
1499 4 : mooseError("No source value for element ",
1500 : dof_object_id,
1501 : target_location,
1502 : " could be located. Element details:\n",
1503 4 : _to_meshes[problem_id]->elemPtr(dof_object_id)->get_info(),
1504 : "\n",
1505 : info_msg);
1506 0 : }
1507 :
1508 : // We should not put garbage into our solution vector
1509 : // but it can be that we want to set it to a different value than what was already there
1510 : // for example: the source app has been displaced and was sending an indicator of its
1511 : // position
1512 5769593 : if (GeneralFieldTransfer::isBetterOutOfMeshValue(val))
1513 : {
1514 638691 : if (!GeneralFieldTransfer::isBetterOutOfMeshValue(_default_extrapolation_value))
1515 638187 : to_sys->solution->set(dof, _default_extrapolation_value);
1516 638691 : continue;
1517 : }
1518 :
1519 5130902 : to_sys->solution->set(dof, val);
1520 : }
1521 : }
1522 :
1523 65246 : to_sys->solution->close();
1524 : // Sync local solutions
1525 65246 : to_sys->update();
1526 : }
1527 61854 : }
1528 :
1529 : bool
1530 2149911 : MultiAppGeneralFieldTransfer::acceptPointInOriginMesh(unsigned int i_from,
1531 : const std::vector<BoundingBox> & local_bboxes,
1532 : const Point & pt,
1533 : const unsigned int only_from_mesh_div,
1534 : Real & distance) const
1535 : {
1536 2149911 : if (_use_bounding_boxes && !local_bboxes[i_from].contains_point(pt))
1537 1711727 : return false;
1538 : else
1539 : {
1540 438184 : auto * pl = _from_point_locators[i_from].get();
1541 438184 : const auto from_global_num = getGlobalSourceAppIndex(i_from);
1542 438184 : const auto transformed_pt = _from_transforms[from_global_num]->mapBack(pt);
1543 :
1544 : // Check point against source block restriction
1545 438184 : if (!_from_blocks.empty() && !inBlocks(_from_blocks, pl, transformed_pt))
1546 19067 : return false;
1547 :
1548 : // Check point against source boundary restriction. Block restriction will speed up the search
1549 437982 : if (!_from_boundaries.empty() &&
1550 0 : !onBoundaries(_from_boundaries, _from_blocks, *_from_meshes[i_from], pl, transformed_pt))
1551 0 : return false;
1552 :
1553 : // Check point against the source mesh division
1554 445462 : if ((!_from_mesh_divisions.empty() || !_to_mesh_divisions.empty()) &&
1555 7480 : !acceptPointMeshDivision(transformed_pt, i_from, only_from_mesh_div))
1556 4180 : return false;
1557 :
1558 : // Get nearest position (often a subapp position) for the target point
1559 : // We want values from the child app that is closest to the same position as the target
1560 433802 : Point nearest_position_source;
1561 433802 : if (_nearest_positions_obj)
1562 : {
1563 29494 : const bool initial = _fe_problem.getCurrentExecuteOnFlag() == EXEC_INITIAL;
1564 : // The search for the nearest position is done in the reference frame
1565 29494 : const Point nearest_position = _nearest_positions_obj->getNearestPosition(pt, initial);
1566 29494 : nearest_position_source = _nearest_positions_obj->getNearestPosition(
1567 29494 : (*_from_transforms[from_global_num])(Point(0, 0, 0)), initial);
1568 :
1569 29494 : if (!_skip_coordinate_collapsing &&
1570 0 : _from_transforms[from_global_num]->hasNonTranslationTransformation())
1571 0 : mooseError("Rotation and scaling currently unsupported with nearest positions transfer.");
1572 :
1573 : // Compute distance to nearest position and nearest position source
1574 29494 : const Real distance_to_position_nearest_source = (pt - nearest_position_source).norm();
1575 29494 : const Real distance_to_nearest_position = (pt - nearest_position).norm();
1576 :
1577 : // Source (usually app position) is not closest to the same positions as the target, dont
1578 : // send values. We check the distance instead of the positions because if they are the same
1579 : // that means there's two equidistant positions and we would want to capture that as a "value
1580 : // conflict"
1581 29494 : if (!MooseUtils::absoluteFuzzyEqual(distance_to_position_nearest_source,
1582 : distance_to_nearest_position))
1583 14525 : return false;
1584 :
1585 : // Set the distance as the distance from the nearest position to the target point
1586 14969 : distance = distance_to_position_nearest_source;
1587 : }
1588 :
1589 : // Check that the app actually contains the origin point
1590 : // We dont need to check if we already found it in a block or a boundary
1591 419437 : if (_from_blocks.empty() && _from_boundaries.empty() && _source_app_must_contain_point &&
1592 160 : !inMesh(pl, transformed_pt))
1593 160 : return false;
1594 : }
1595 419117 : return true;
1596 : }
1597 :
1598 : bool
1599 160 : MultiAppGeneralFieldTransfer::inMesh(const PointLocatorBase * const pl, const Point & point) const
1600 : {
1601 : // Note: we do not take advantage of a potential block restriction of the mesh here. This is
1602 : // because we can avoid this routine by calling inBlocks() instead
1603 160 : const Elem * elem = (*pl)(point);
1604 160 : return (elem != nullptr);
1605 : }
1606 :
1607 : bool
1608 53252 : MultiAppGeneralFieldTransfer::inBlocks(const std::set<SubdomainID> & blocks,
1609 : const Elem * elem) const
1610 : {
1611 53252 : return blocks.find(elem->subdomain_id()) != blocks.end();
1612 : }
1613 :
1614 : bool
1615 34200 : MultiAppGeneralFieldTransfer::inBlocks(const std::set<SubdomainID> & blocks,
1616 : const MooseMesh & /* mesh */,
1617 : const Elem * elem) const
1618 : {
1619 34200 : return inBlocks(blocks, elem);
1620 : }
1621 :
1622 : bool
1623 42573 : MultiAppGeneralFieldTransfer::inBlocks(const std::set<SubdomainID> & blocks,
1624 : const MooseMesh & mesh,
1625 : const Node * node) const
1626 : {
1627 42573 : const auto & node_blocks = mesh.getNodeBlockIds(*node);
1628 42573 : std::set<SubdomainID> u;
1629 42573 : std::set_intersection(blocks.begin(),
1630 : blocks.end(),
1631 : node_blocks.begin(),
1632 : node_blocks.end(),
1633 : std::inserter(u, u.begin()));
1634 85146 : return !u.empty();
1635 42573 : }
1636 :
1637 : bool
1638 10471 : MultiAppGeneralFieldTransfer::inBlocks(const std::set<SubdomainID> & blocks,
1639 : const PointLocatorBase * const pl,
1640 : const Point & point) const
1641 : {
1642 10471 : const Elem * elem = (*pl)(point, &blocks);
1643 10471 : return (elem != nullptr);
1644 : }
1645 :
1646 : bool
1647 505427 : MultiAppGeneralFieldTransfer::onBoundaries(const std::set<BoundaryID> & boundaries,
1648 : const MooseMesh & mesh,
1649 : const Node * node) const
1650 : {
1651 505427 : const BoundaryInfo & bnd_info = mesh.getMesh().get_boundary_info();
1652 505427 : std::vector<BoundaryID> vec_to_fill;
1653 505427 : bnd_info.boundary_ids(node, vec_to_fill);
1654 505427 : std::set<BoundaryID> vec_to_fill_set(vec_to_fill.begin(), vec_to_fill.end());
1655 505427 : std::set<BoundaryID> u;
1656 505427 : std::set_intersection(boundaries.begin(),
1657 : boundaries.end(),
1658 : vec_to_fill_set.begin(),
1659 : vec_to_fill_set.end(),
1660 : std::inserter(u, u.begin()));
1661 1010854 : return !u.empty();
1662 505427 : }
1663 :
1664 : bool
1665 77184 : MultiAppGeneralFieldTransfer::onBoundaries(const std::set<BoundaryID> & boundaries,
1666 : const MooseMesh & mesh,
1667 : const Elem * elem) const
1668 : {
1669 : // Get all boundaries each side of the element is part of
1670 77184 : const BoundaryInfo & bnd_info = mesh.getMesh().get_boundary_info();
1671 77184 : std::vector<BoundaryID> vec_to_fill;
1672 77184 : std::vector<BoundaryID> vec_to_fill_temp;
1673 77184 : if (_elemental_boundary_restriction_on_sides)
1674 477288 : for (const auto side : make_range(elem->n_sides()))
1675 : {
1676 409104 : bnd_info.boundary_ids(elem, side, vec_to_fill_temp);
1677 409104 : vec_to_fill.insert(vec_to_fill.end(), vec_to_fill_temp.begin(), vec_to_fill_temp.end());
1678 : }
1679 : else
1680 81000 : for (const auto node_index : make_range(elem->n_nodes()))
1681 : {
1682 72000 : bnd_info.boundary_ids(elem->node_ptr(node_index), vec_to_fill_temp);
1683 72000 : vec_to_fill.insert(vec_to_fill.end(), vec_to_fill_temp.begin(), vec_to_fill_temp.end());
1684 : }
1685 77184 : std::set<BoundaryID> vec_to_fill_set(vec_to_fill.begin(), vec_to_fill.end());
1686 :
1687 : // Look for a match between the boundaries from the restriction and those near the element
1688 77184 : std::set<BoundaryID> u;
1689 77184 : std::set_intersection(boundaries.begin(),
1690 : boundaries.end(),
1691 : vec_to_fill_set.begin(),
1692 : vec_to_fill_set.end(),
1693 : std::inserter(u, u.begin()));
1694 154368 : return !u.empty();
1695 77184 : }
1696 :
1697 : bool
1698 0 : MultiAppGeneralFieldTransfer::onBoundaries(const std::set<BoundaryID> & boundaries,
1699 : const std::set<SubdomainID> & block_restriction,
1700 : const MooseMesh & mesh,
1701 : const PointLocatorBase * const pl,
1702 : const Point & point) const
1703 : {
1704 : // Find the element containing the point and use the block restriction if known for speed
1705 : const Elem * elem;
1706 0 : if (block_restriction.empty())
1707 0 : elem = (*pl)(point);
1708 : else
1709 0 : elem = (*pl)(point, &block_restriction);
1710 :
1711 0 : if (!elem)
1712 0 : return false;
1713 0 : return onBoundaries(boundaries, mesh, elem);
1714 : }
1715 :
1716 : bool
1717 7480 : MultiAppGeneralFieldTransfer::acceptPointMeshDivision(
1718 : const Point & pt, const unsigned int i_local, const unsigned int only_from_this_mesh_div) const
1719 : {
1720 : // This routine can also be called to examine if the to_mesh_division index matches the current
1721 : // source subapp index
1722 7480 : unsigned int source_mesh_div = MooseMeshDivision::INVALID_DIVISION_INDEX - 1;
1723 7480 : if (!_from_mesh_divisions.empty())
1724 5318 : source_mesh_div = _from_mesh_divisions[i_local]->divisionIndex(pt);
1725 :
1726 : // If the point is not indexed in the source division
1727 7480 : if (!_from_mesh_divisions.empty() && source_mesh_div == MooseMeshDivision::INVALID_DIVISION_INDEX)
1728 3190 : return false;
1729 : // If the point is not the at the same index in the target and the origin meshes, reject
1730 4290 : else if ((_from_mesh_division_behavior == MeshDivisionTransferUse::MATCH_DIVISION_INDEX ||
1731 4290 : _to_mesh_division_behavior == MeshDivisionTransferUse::MATCH_DIVISION_INDEX) &&
1732 : source_mesh_div != only_from_this_mesh_div)
1733 0 : return false;
1734 : // If the point is at a certain division index that is not the same as the index of the subapp
1735 : // we wanted the information to be from for that point, reject
1736 4290 : else if (_from_mesh_division_behavior == MeshDivisionTransferUse::MATCH_SUBAPP_INDEX &&
1737 : source_mesh_div != only_from_this_mesh_div)
1738 504 : return false;
1739 4497 : else if (_to_mesh_division_behavior == MeshDivisionTransferUse::MATCH_SUBAPP_INDEX &&
1740 711 : only_from_this_mesh_div != getGlobalSourceAppIndex(i_local))
1741 486 : return false;
1742 : else
1743 3300 : return true;
1744 : }
1745 :
1746 : bool
1747 283527 : MultiAppGeneralFieldTransfer::closestToPosition(unsigned int pos_index, const Point & pt) const
1748 : {
1749 : mooseAssert(_nearest_positions_obj, "Should not be here without a positions object");
1750 283527 : if (!_skip_coordinate_collapsing)
1751 0 : paramError("skip_coordinate_collapsing", "Coordinate collapsing not implemented");
1752 283527 : bool initial = _fe_problem.getCurrentExecuteOnFlag() == EXEC_INITIAL;
1753 283527 : if (!_search_value_conflicts)
1754 : // Faster to just compare the index
1755 144399 : return pos_index == _nearest_positions_obj->getNearestPositionIndex(pt, initial);
1756 : else
1757 : {
1758 : // Get the distance to the position and see if we are missing a value just because the position
1759 : // is not officially the closest, but it is actually at the same distance
1760 139128 : const auto nearest_position = _nearest_positions_obj->getNearestPosition(pt, initial);
1761 139128 : const auto nearest_position_at_index = _nearest_positions_obj->getPosition(pos_index, initial);
1762 139128 : Real distance_to_position_at_index = (pt - nearest_position_at_index).norm();
1763 139128 : const Real distance_to_nearest_position = (pt - nearest_position).norm();
1764 :
1765 139128 : if (!MooseUtils::absoluteFuzzyEqual(distance_to_position_at_index,
1766 : distance_to_nearest_position))
1767 91993 : return false;
1768 : // Actually the same position (point)
1769 47135 : else if (nearest_position == nearest_position_at_index)
1770 47135 : return true;
1771 : else
1772 : {
1773 0 : mooseWarning("Two equidistant positions ",
1774 : nearest_position,
1775 : " and ",
1776 : nearest_position_at_index,
1777 : " detected near point ",
1778 : pt);
1779 0 : return true;
1780 : }
1781 : }
1782 : }
1783 :
1784 : Real
1785 8782434 : MultiAppGeneralFieldTransfer::bboxMaxDistance(const Point & p, const BoundingBox & bbox) const
1786 : {
1787 8782434 : std::array<Point, 2> source_points = {{bbox.first, bbox.second}};
1788 :
1789 8782434 : std::array<Point, 8> all_points;
1790 26347302 : for (unsigned int x = 0; x < 2; x++)
1791 52694604 : for (unsigned int y = 0; y < 2; y++)
1792 105389208 : for (unsigned int z = 0; z < 2; z++)
1793 70259472 : all_points[x + 2 * y + 4 * z] =
1794 140518944 : Point(source_points[x](0), source_points[y](1), source_points[z](2));
1795 :
1796 8782434 : Real max_distance = 0.;
1797 :
1798 79041906 : for (unsigned int i = 0; i < 8; i++)
1799 : {
1800 70259472 : Real distance = (p - all_points[i]).norm();
1801 70259472 : if (distance > max_distance)
1802 18704236 : max_distance = distance;
1803 : }
1804 :
1805 8782434 : return max_distance;
1806 : }
1807 :
1808 : Real
1809 8782434 : MultiAppGeneralFieldTransfer::bboxMinDistance(const Point & p, const BoundingBox & bbox) const
1810 : {
1811 8782434 : std::array<Point, 2> source_points = {{bbox.first, bbox.second}};
1812 :
1813 8782434 : std::array<Point, 8> all_points;
1814 26347302 : for (unsigned int x = 0; x < 2; x++)
1815 52694604 : for (unsigned int y = 0; y < 2; y++)
1816 105389208 : for (unsigned int z = 0; z < 2; z++)
1817 70259472 : all_points[x + 2 * y + 4 * z] =
1818 140518944 : Point(source_points[x](0), source_points[y](1), source_points[z](2));
1819 :
1820 8782434 : Real min_distance = std::numeric_limits<Real>::max();
1821 :
1822 79041906 : for (unsigned int i = 0; i < 8; i++)
1823 : {
1824 70259472 : Real distance = (p - all_points[i]).norm();
1825 70259472 : if (distance < min_distance)
1826 19352617 : min_distance = distance;
1827 : }
1828 :
1829 8782434 : return min_distance;
1830 : }
1831 :
1832 : std::vector<BoundingBox>
1833 61755 : MultiAppGeneralFieldTransfer::getRestrictedFromBoundingBoxes() const
1834 : {
1835 61755 : std::vector<std::pair<Point, Point>> bb_points(_from_meshes.size());
1836 61755 : const Real min_r = std::numeric_limits<Real>::lowest();
1837 61755 : const Real max_r = std::numeric_limits<Real>::max();
1838 :
1839 126630 : for (const auto j : make_range(_from_meshes.size()))
1840 : {
1841 64875 : Point min(max_r, max_r, max_r);
1842 64875 : Point max(min_r, min_r, min_r);
1843 64875 : bool at_least_one = false;
1844 64875 : const auto & from_mesh = _from_problems[j]->mesh(_displaced_source_mesh);
1845 :
1846 129750 : for (const auto & elem : as_range(from_mesh.getMesh().local_elements_begin(),
1847 10633777 : from_mesh.getMesh().local_elements_end()))
1848 : {
1849 5219576 : if (!_from_blocks.empty() && !inBlocks(_from_blocks, from_mesh, elem))
1850 19296 : continue;
1851 :
1852 29484316 : for (const auto & node : elem->node_ref_range())
1853 : {
1854 24284036 : if (!_from_boundaries.empty() && !onBoundaries(_from_boundaries, from_mesh, &node))
1855 181768 : continue;
1856 :
1857 24102268 : at_least_one = true;
1858 96409072 : for (const auto i : make_range(LIBMESH_DIM))
1859 : {
1860 72306804 : min(i) = std::min(min(i), node(i));
1861 72306804 : max(i) = std::max(max(i), node(i));
1862 : }
1863 : }
1864 64875 : }
1865 :
1866 : // For 2D RZ problems, we need to amend the bounding box to cover the whole XYZ projection
1867 : // - The XYZ-Y axis is assumed aligned with the RZ-Z axis
1868 : // - RZ systems also cover negative coordinates hence the use of the maximum R
1869 : // NOTE: We will only support the case where there is only one coordinate system
1870 64875 : if ((from_mesh.getUniqueCoordSystem() == Moose::COORD_RZ) && (LIBMESH_DIM == 3))
1871 : {
1872 132 : min(0) = -max(0);
1873 132 : min(2) = -max(0);
1874 132 : max(2) = max(0);
1875 : }
1876 :
1877 64875 : BoundingBox bbox(min, max);
1878 64875 : if (!at_least_one)
1879 31 : bbox.min() = max; // If we didn't hit any nodes, this will be _the_ minimum bbox
1880 : else
1881 : {
1882 : // Translate the bounding box to the from domain's position. We may have rotations so we
1883 : // must be careful in constructing the new min and max (first and second)
1884 64844 : const auto from_global_num = getGlobalSourceAppIndex(j);
1885 64844 : transformBoundingBox(bbox, *_from_transforms[from_global_num]);
1886 : }
1887 :
1888 : // Cast the bounding box into a pair of points (so it can be put through
1889 : // MPI communication).
1890 64875 : bb_points[j] = static_cast<std::pair<Point, Point>>(bbox);
1891 : }
1892 :
1893 : // Serialize the bounding box points.
1894 61755 : _communicator.allgather(bb_points);
1895 :
1896 : // Recast the points back into bounding boxes and return.
1897 61755 : std::vector<BoundingBox> bboxes(bb_points.size());
1898 157909 : for (const auto i : make_range(bb_points.size()))
1899 96154 : bboxes[i] = static_cast<BoundingBox>(bb_points[i]);
1900 :
1901 : // TODO move up
1902 : // Check for a user-set fixed bounding box size and modify the sizes as appropriate
1903 61755 : if (_fixed_bbox_size != std::vector<Real>(3, 0))
1904 1380 : for (const auto i : make_range(LIBMESH_DIM))
1905 1035 : if (!MooseUtils::absoluteFuzzyEqual(_fixed_bbox_size[i], 0))
1906 2142 : for (const auto j : make_range(bboxes.size()))
1907 : {
1908 1331 : const auto current_width = (bboxes[j].second - bboxes[j].first)(i);
1909 1331 : bboxes[j].first(i) -= (_fixed_bbox_size[i] - current_width) / 2;
1910 1331 : bboxes[j].second(i) += (_fixed_bbox_size[i] - current_width) / 2;
1911 : }
1912 :
1913 123510 : return bboxes;
1914 61755 : }
1915 :
1916 : std::vector<unsigned int>
1917 61755 : MultiAppGeneralFieldTransfer::getGlobalStartAppPerProc() const
1918 : {
1919 61755 : std::vector<unsigned int> global_app_start_per_proc(1, -1);
1920 61755 : if (_from_local2global_map.size())
1921 34677 : global_app_start_per_proc[0] = _from_local2global_map[0];
1922 61755 : _communicator.allgather(global_app_start_per_proc, true);
1923 61755 : return global_app_start_per_proc;
1924 0 : }
1925 :
1926 : VariableName
1927 65794 : MultiAppGeneralFieldTransfer::getFromVarName(unsigned int var_index)
1928 : {
1929 : mooseAssert(var_index < _from_var_names.size(), "No source variable at this index");
1930 65794 : VariableName var_name = _from_var_names[var_index];
1931 65794 : if (_from_var_components.size())
1932 312 : var_name += "_" + std::to_string(_from_var_components[var_index]);
1933 65794 : return var_name;
1934 0 : }
1935 :
1936 : VariableName
1937 124209 : MultiAppGeneralFieldTransfer::getToVarName(unsigned int var_index)
1938 : {
1939 : mooseAssert(var_index < _to_var_names.size(), "No target variable at this index");
1940 124209 : VariableName var_name = _to_var_names[var_index];
1941 124209 : if (_to_var_components.size())
1942 384 : var_name += "_" + std::to_string(_to_var_components[var_index]);
1943 124209 : return var_name;
1944 0 : }
1945 :
1946 : Point
1947 123786 : MultiAppGeneralFieldTransfer::getMaxToProblemsBBoxDimensions() const
1948 : {
1949 : Point max_dimension = {std::numeric_limits<Real>::min(),
1950 : std::numeric_limits<Real>::min(),
1951 123786 : std::numeric_limits<Real>::min()};
1952 :
1953 254356 : for (const auto & to_mesh : _to_meshes)
1954 : {
1955 130570 : const auto bbox = to_mesh->getInflatedProcessorBoundingBox();
1956 522280 : for (const auto dim : make_range(LIBMESH_DIM))
1957 391710 : max_dimension(dim) = std::max(
1958 783420 : max_dimension(dim), std::max(std::abs(bbox.first(dim)), std::abs(bbox.second(dim))));
1959 : }
1960 :
1961 123786 : return max_dimension;
1962 : }
1963 :
1964 : bool
1965 2379193 : MultiAppGeneralFieldTransfer::detectConflict(Real current_value,
1966 : Real new_value,
1967 : Real current_distance,
1968 : Real new_distance) const
1969 : {
1970 : // No conflict if we're not looking for them
1971 2379193 : if (_search_value_conflicts)
1972 : // Only consider conflicts if the values are valid and different
1973 3680 : if (current_value != GeneralFieldTransfer::BetterOutOfMeshValue &&
1974 5654 : new_value != GeneralFieldTransfer::BetterOutOfMeshValue &&
1975 1974 : !MooseUtils::absoluteFuzzyEqual(current_value, new_value))
1976 : // Conflict only occurs if the origin points are equidistant
1977 1767 : if (MooseUtils::absoluteFuzzyEqual(current_distance, new_distance))
1978 86 : return true;
1979 2379107 : return false;
1980 : }
|
