@@ -52,18 +52,57 @@ proc ::ShallowWater::examples::DamBreak::AssignGroups {args} {
5252 GiD_EntitiesGroups assign Body surfaces 1
5353
5454 GiD_Groups create Walls
55- GiD_Groups edit color Left_Wall " #3b3b3bff"
56- GiD_EntitiesGroups assign Left_Wall lines 1 3
55+ GiD_Groups edit color Walls " #3b3b3bff"
56+ GiD_EntitiesGroups assign Walls lines 1 3
5757
5858 GiD_Groups create Left
59- GiD_Groups edit color Top_Wall " #3b3b3bff"
60- GiD_EntitiesGroups assign Top_Wall lines 4
59+ GiD_Groups edit color Left " #3b3b3bff"
60+ GiD_EntitiesGroups assign Left lines 4
6161
6262 GiD_Groups create Right
63- GiD_Groups edit color Right_Wall " #3b3b3bff"
64- GiD_EntitiesGroups assign Right_Wall lines 2
63+ GiD_Groups edit color Right " #3b3b3bff"
64+ GiD_EntitiesGroups assign Right lines 2
6565}
6666
6767proc ::ShallowWater::examples::DamBreak::TreeAssignation {args} {
6868
69+ # Parts
70+ set parts [spdAux::getRoute " SWParts" ]
71+ set part_node [customlib::AddConditionGroupOnXPath $parts Body]
72+ set props [list Element Element2D Material Concrete MANNING 0.01]
73+ spdAux::SetValuesOnBaseNode $part_node $props
74+
75+ # Nodal Conditions
76+ set nodal_conditions [spdAux::getRoute " SWBenchmarks" ]
77+ set benchmark_cond " $nodal_conditions /condition\[ @n='DamBreakBenchmark'\] "
78+ GiD_Groups create " Body//Benchmark" ### Creo que no hace falta
79+ GiD_Groups edit state " Body//Benchmark" hidden ### Creo que no hace falta
80+ spdAux::AddIntervalGroup Body " Body//Benchmark" ### Creo que no hace falta
81+ set benchmark_node [customlib::AddConditionGroupOnXPath $thermalnodcond Body]
82+ $benchmark_node setAttribute ov surface
83+ set props [list value 303.15 Interval Initial] ### Con los valores por defecto de Kratos ya va bien
84+ spdAux::SetValuesOnBaseNode $thermalnodNode $props
85+
86+ # Conditions
87+ set boundary_conditions [spdAux::getRoute " SWConditions" ]
88+ set flow_rate_cond " $boundary_conditions /condition\[ @n='ImposedFlowRate'\] "
89+ set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond Walls]
90+ $flow_rate_node setAttribute ov line
91+ set props [list value 303.15 Interval Total] ### que es esto? ASIGNAR: Y impuesto, X libre
92+ spdAux::SetValuesOnBaseNode $flow_rate_node $props
93+
94+ set flow_rate_cond " $boundary_conditions /condition\[ @n='ImposedFlowRate'\] "
95+ set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond Right]
96+ $flow_rate_node setAttribute ov line
97+ set props [list value 303.15 Interval Total] ### que es esto? ASIGNAR: X impuesto, Y libre
98+ spdAux::SetValuesOnBaseNode $flow_rate_node $props
99+
100+ set flow_rate_cond " $boundary_conditions /condition\[ @n='ImposedFlowRate'\] "
101+ set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond Left]
102+ $flow_rate_node setAttribute ov line
103+ set props [list value 303.15 Interval Total] ### que es esto? ASIGNAR: Y impuesto, X libre
104+ spdAux::SetValuesOnBaseNode $flow_rate_node $props
105+
106+ # Refresh
107+ spdAux::RequestRefresh
69108}
0 commit comments