Skip to content

Commit 0244e2d

Browse files
jginternationaljginternational
committed
Rename embeddedfluid files
1 parent ad6677f commit 0244e2d

2 files changed

Lines changed: 73 additions & 73 deletions

File tree

‎kratos.gid/apps/EmbeddedFluid/start.tcl‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,7 @@ proc ::EmbeddedFluid::LoadMyFiles { } {
4141
variable dir
4242

4343
uplevel #0 [list source [file join $dir examples examples.tcl]]
44-
uplevel #0 [list source [file join $dir xml GetFromXML.tcl]]
44+
uplevel #0 [list source [file join $dir xml XmlController.tcl]]
4545
uplevel #0 [list source [file join $dir xml ImportWindowController.tcl]]
4646
uplevel #0 [list source [file join $dir xml BoundingBoxWindowController.tcl]]
4747
uplevel #0 [list source [file join $dir write write.tcl]]

kratos.gid/apps/EmbeddedFluid/xml/GetFromXML.tcl renamed to kratos.gid/apps/EmbeddedFluid/xml/XmlController.tcl

Lines changed: 72 additions & 72 deletions
Original file line numberDiff line numberDiff line change
@@ -1,72 +1,72 @@
1-
namespace eval EmbeddedFluid::xml {
2-
# Namespace variables declaration
3-
variable dir
4-
variable lastImportMeshSize
5-
variable export_dir
6-
7-
}
8-
9-
proc EmbeddedFluid::xml::Init { } {
10-
# Namespace variables inicialization
11-
variable dir
12-
variable lastImportMeshSize
13-
set lastImportMeshSize 0
14-
Model::DestroyEverything
15-
Model::InitVariables dir $EmbeddedFluid::dir
16-
17-
Model::getSolutionStrategies Strategies.xml
18-
Model::getElements "../../Fluid/xml/Elements.xml"
19-
Model::getMaterials Materials.xml
20-
Model::getNodalConditions "../../Fluid/xml/NodalConditions.xml"
21-
Model::getConstitutiveLaws "../../Fluid/xml/ConstitutiveLaws.xml"
22-
Model::getProcesses "../../Common/xml/Processes.xml"
23-
Model::getProcesses "../../Fluid/xml/Processes.xml"
24-
Model::getConditions "../../Fluid/xml/Conditions.xml"
25-
Model::getSolvers "../../Common/xml/Solvers.xml"
26-
}
27-
28-
29-
proc EmbeddedFluid::xml::MultiAppEvent {args} {
30-
if {$args eq "init"} {
31-
spdAux::parseRoutes
32-
spdAux::ConvertAllUniqueNames FL ${::EmbeddedFluid::prefix}
33-
}
34-
}
35-
36-
proc EmbeddedFluid::xml::getUniqueName {name} {
37-
return ${::EmbeddedFluid::prefix}${name}
38-
}
39-
40-
proc EmbeddedFluid::xml::CustomTree { args } {
41-
# Hide Results Cut planes
42-
spdAux::SetValueOnTreeItem v time Results FileLabel
43-
spdAux::SetValueOnTreeItem v time Results OutputControlType
44-
45-
set root [customlib::GetBaseRoot]
46-
if {[$root selectNodes "[spdAux::getRoute NodalResults]/value\[@n='DISTANCE'\]"] eq ""} {
47-
gid_groups_conds::addF [spdAux::getRoute NodalResults] value [list n DISTANCE pn Distance v Yes values {Yes,No} state normal]
48-
}
49-
if {[$root selectNodes "[spdAux::getRoute EMBFLSolutionParameters]/container\[@n='DistanceSettings'\]"] eq ""} {
50-
gid_groups_conds::addF [spdAux::getRoute EMBFLSolutionParameters] include [list n DistanceSettings active 1 path {apps/EmbeddedFluid/xml/DistanceSettings.spd}]
51-
}
52-
if {[$root selectNodes "[spdAux::getRoute EMBFLSolutionParameters]/container\[@n='AdaptivitySettings'\]"] eq ""} {
53-
gid_groups_conds::addF [spdAux::getRoute EMBFLSolutionParameters] include [list n AdaptivitySettings active 1 path {apps/EmbeddedFluid/xml/AdaptivitySettings.spd}]
54-
}
55-
56-
set xpath "[spdAux::getRoute Results]/container\[@n='GiDOutput'\]/condition\[@n='EmbeddedDrag'\]"
57-
if {[$root selectNodes $xpath] eq ""} {
58-
gid_groups_conds::addF "[spdAux::getRoute Results]/container\[@n='GiDOutput'\]" include [list n EmbeddedDrag active 1 path {apps/EmbeddedFluid/xml/EmbeddedDrag.spd}]
59-
}
60-
customlib::ProcessIncludes $::Kratos::kratos_private(Path)
61-
spdAux::parseRoutes
62-
# Erase when Fractional step is available
63-
#spdAux::SetValueOnTreeItem v Monolithic EMBFLSolStrat
64-
#spdAux::SetValueOnTreeItem values Monolithic EMBFLSolStrat
65-
#spdAux::SetValueOnTreeItem dict "Monolithic,Navier Stokes - Monolithic" EMBFLSolStrat
66-
#spdAux::SetValueOnTreeItem v MN EMBFLScheme
67-
#spdAux::SetValueOnTreeItem values MN EMBFLScheme
68-
#spdAux::SetValueOnTreeItem dict "MN,Monolitic generic scheme" EMBFLScheme
69-
70-
}
71-
72-
EmbeddedFluid::xml::Init
1+
namespace eval EmbeddedFluid::xml {
2+
# Namespace variables declaration
3+
variable dir
4+
variable lastImportMeshSize
5+
variable export_dir
6+
7+
}
8+
9+
proc EmbeddedFluid::xml::Init { } {
10+
# Namespace variables inicialization
11+
variable dir
12+
variable lastImportMeshSize
13+
set lastImportMeshSize 0
14+
Model::DestroyEverything
15+
Model::InitVariables dir $EmbeddedFluid::dir
16+
17+
Model::getSolutionStrategies Strategies.xml
18+
Model::getElements "../../Fluid/xml/Elements.xml"
19+
Model::getMaterials Materials.xml
20+
Model::getNodalConditions "../../Fluid/xml/NodalConditions.xml"
21+
Model::getConstitutiveLaws "../../Fluid/xml/ConstitutiveLaws.xml"
22+
Model::getProcesses "../../Common/xml/Processes.xml"
23+
Model::getProcesses "../../Fluid/xml/Processes.xml"
24+
Model::getConditions "../../Fluid/xml/Conditions.xml"
25+
Model::getSolvers "../../Common/xml/Solvers.xml"
26+
}
27+
28+
29+
proc EmbeddedFluid::xml::MultiAppEvent {args} {
30+
if {$args eq "init"} {
31+
spdAux::parseRoutes
32+
spdAux::ConvertAllUniqueNames FL ${::EmbeddedFluid::prefix}
33+
}
34+
}
35+
36+
proc EmbeddedFluid::xml::getUniqueName {name} {
37+
return ${::EmbeddedFluid::prefix}${name}
38+
}
39+
40+
proc EmbeddedFluid::xml::CustomTree { args } {
41+
# Hide Results Cut planes
42+
spdAux::SetValueOnTreeItem v time Results FileLabel
43+
spdAux::SetValueOnTreeItem v time Results OutputControlType
44+
45+
set root [customlib::GetBaseRoot]
46+
if {[$root selectNodes "[spdAux::getRoute NodalResults]/value\[@n='DISTANCE'\]"] eq ""} {
47+
gid_groups_conds::addF [spdAux::getRoute NodalResults] value [list n DISTANCE pn Distance v Yes values {Yes,No} state normal]
48+
}
49+
if {[$root selectNodes "[spdAux::getRoute EMBFLSolutionParameters]/container\[@n='DistanceSettings'\]"] eq ""} {
50+
gid_groups_conds::addF [spdAux::getRoute EMBFLSolutionParameters] include [list n DistanceSettings active 1 path {apps/EmbeddedFluid/xml/DistanceSettings.spd}]
51+
}
52+
if {[$root selectNodes "[spdAux::getRoute EMBFLSolutionParameters]/container\[@n='AdaptivitySettings'\]"] eq ""} {
53+
gid_groups_conds::addF [spdAux::getRoute EMBFLSolutionParameters] include [list n AdaptivitySettings active 1 path {apps/EmbeddedFluid/xml/AdaptivitySettings.spd}]
54+
}
55+
56+
set xpath "[spdAux::getRoute Results]/container\[@n='GiDOutput'\]/condition\[@n='EmbeddedDrag'\]"
57+
if {[$root selectNodes $xpath] eq ""} {
58+
gid_groups_conds::addF "[spdAux::getRoute Results]/container\[@n='GiDOutput'\]" include [list n EmbeddedDrag active 1 path {apps/EmbeddedFluid/xml/EmbeddedDrag.spd}]
59+
}
60+
customlib::ProcessIncludes $::Kratos::kratos_private(Path)
61+
spdAux::parseRoutes
62+
# Erase when Fractional step is available
63+
#spdAux::SetValueOnTreeItem v Monolithic EMBFLSolStrat
64+
#spdAux::SetValueOnTreeItem values Monolithic EMBFLSolStrat
65+
#spdAux::SetValueOnTreeItem dict "Monolithic,Navier Stokes - Monolithic" EMBFLSolStrat
66+
#spdAux::SetValueOnTreeItem v MN EMBFLScheme
67+
#spdAux::SetValueOnTreeItem values MN EMBFLScheme
68+
#spdAux::SetValueOnTreeItem dict "MN,Monolitic generic scheme" EMBFLScheme
69+
70+
}
71+
72+
EmbeddedFluid::xml::Init

0 commit comments

Comments
 (0)