|
1 | | -namespace eval ConvectionDiffusion::xml { |
2 | | - # Namespace variables declaration |
3 | | - variable dir |
4 | | -} |
5 | | - |
6 | | -proc ConvectionDiffusion::xml::Init { } { |
7 | | - # Namespace variables inicialization |
8 | | - variable dir |
9 | | - Model::InitVariables dir $ConvectionDiffusion::dir |
10 | | - |
11 | | - Model::getSolutionStrategies Strategies.xml |
12 | | - Model::getElements Elements.xml |
13 | | - Model::getMaterials Materials.xml |
14 | | - Model::getNodalConditions NodalConditions.xml |
15 | | - Model::getConstitutiveLaws ConstitutiveLaws.xml |
16 | | - Model::getProcesses "../../Common/xml/Processes.xml" |
17 | | - Model::getProcesses Processes.xml |
18 | | - Model::getConditions Conditions.xml |
19 | | - Model::getSolvers "../../Common/xml/Solvers.xml" |
20 | | -} |
21 | | - |
22 | | -proc ConvectionDiffusion::xml::getUniqueName {name} { |
23 | | - return ${::ConvectionDiffusion::prefix}${name} |
24 | | -} |
25 | | - |
26 | | -proc ConvectionDiffusion::xml::CustomTree { args } { |
27 | | - set root [customlib::GetBaseRoot] |
28 | | - |
29 | | - # Output control in output settings |
30 | | - spdAux::SetValueOnTreeItem v time Results FileLabel |
31 | | - spdAux::SetValueOnTreeItem v time Results OutputControlType |
32 | | - |
33 | | - customlib::ProcessIncludes $::Kratos::kratos_private(Path) |
34 | | - spdAux::parseRoutes |
35 | | - |
36 | | - # Nodal reactions in output settings |
37 | | - set xpath "[spdAux::getRoute Results]/container\[@n='GiDOutput'\]/container\[@n='OnNodes'\]" |
38 | | - if {[$root selectNodes $xpath] ne ""} { |
39 | | - gid_groups_conds::addF $xpath value [list n REACTION_FLUX pn "Reaction flux" v No values "Yes,No"] |
40 | | - } |
41 | | - |
42 | | - # Make line_search appear only with non-linear strategy |
43 | | - [$root selectNodes "[spdAux::getRoute CNVDFFStratParams]/value\[@n='line_search'\]"] setAttribute state "\[checkStateByUniqueName CNVDFFAnalysisType non_linear\]" |
44 | | -} |
45 | | - |
46 | | -ConvectionDiffusion::xml::Init |
| 1 | +namespace eval ConvectionDiffusion::xml { |
| 2 | + # Namespace variables declaration |
| 3 | + variable dir |
| 4 | +} |
| 5 | + |
| 6 | +proc ConvectionDiffusion::xml::Init { } { |
| 7 | + # Namespace variables inicialization |
| 8 | + variable dir |
| 9 | + Model::InitVariables dir $ConvectionDiffusion::dir |
| 10 | + |
| 11 | + Model::getSolutionStrategies Strategies.xml |
| 12 | + Model::getElements Elements.xml |
| 13 | + Model::getMaterials Materials.xml |
| 14 | + Model::getNodalConditions NodalConditions.xml |
| 15 | + Model::getConstitutiveLaws ConstitutiveLaws.xml |
| 16 | + Model::getProcesses "../../Common/xml/Processes.xml" |
| 17 | + Model::getProcesses Processes.xml |
| 18 | + Model::getConditions Conditions.xml |
| 19 | + Model::getSolvers "../../Common/xml/Solvers.xml" |
| 20 | +} |
| 21 | + |
| 22 | +proc ConvectionDiffusion::xml::getUniqueName {name} { |
| 23 | + return ${::ConvectionDiffusion::prefix}${name} |
| 24 | +} |
| 25 | + |
| 26 | +proc ConvectionDiffusion::xml::CustomTree { args } { |
| 27 | + set root [customlib::GetBaseRoot] |
| 28 | + |
| 29 | + # Output control in output settings |
| 30 | + spdAux::SetValueOnTreeItem v time Results FileLabel |
| 31 | + spdAux::SetValueOnTreeItem v time Results OutputControlType |
| 32 | + |
| 33 | + customlib::ProcessIncludes $::Kratos::kratos_private(Path) |
| 34 | + spdAux::parseRoutes |
| 35 | + |
| 36 | + # Nodal reactions in output settings |
| 37 | + set xpath "[spdAux::getRoute Results]/container\[@n='GiDOutput'\]/container\[@n='OnNodes'\]" |
| 38 | + if {[$root selectNodes $xpath] ne ""} { |
| 39 | + gid_groups_conds::addF $xpath value [list n REACTION_FLUX pn "Reaction flux" v No values "Yes,No"] |
| 40 | + } |
| 41 | + |
| 42 | + # Make line_search appear only with non-linear strategy |
| 43 | + [$root selectNodes "[spdAux::getRoute CNVDFFStratParams]/value\[@n='line_search'\]"] setAttribute state "\[checkStateByUniqueName CNVDFFAnalysisType non_linear\]" |
| 44 | +} |
| 45 | + |
| 46 | +ConvectionDiffusion::xml::Init |
0 commit comments