)
- if {[GetAttribute writeCoordinatesByGroups]} {write::writeNodalCoordinatesOnParts} {write::writeNodalCoordinates}
-
- # Element connectivities (groups in FLParts)
- write::writeElementConnectivities
-
- # Nodal conditions and conditions
- Fluid::write::writeConditions
-
- # SubmodelParts
- Fluid::write::writeMeshes
+ Fluid::write::writeModelPartEvent
}
proc PotentialFluid::write::writeCustomFilesEvent { } {
# Write the fluid materials json file
- write::writePropertiesJsonFile [GetAttribute parts_un] [GetAttribute materials_file] False
-
- write::CopyFileIntoModel "python/KratosPotentialFluid.py"
- write::RenameFileInModel "KratosPotentialFluid.py" "MainKratos.py"
+ write::writePropertiesJsonFile [GetAttribute parts_un] [GetAttribute materials_file] False [GetAttribute model_part_name]
+ write::SetConfigurationAttribute main_launch_file [GetAttribute main_launch_file]
}
-
proc PotentialFluid::write::GetAttribute {att} {
variable writeAttributes
return [dict get $writeAttributes $att]
diff --git a/kratos.gid/apps/PotentialFluid/xml/Materials.spd b/kratos.gid/apps/PotentialFluid/xml/Materials.spd
index 1b3e404c1..f351f7613 100644
--- a/kratos.gid/apps/PotentialFluid/xml/Materials.spd
+++ b/kratos.gid/apps/PotentialFluid/xml/Materials.spd
@@ -1,4 +1,4 @@
-
+
diff --git a/kratos.gid/apps/PotentialFluid/xml/Materials.xml b/kratos.gid/apps/PotentialFluid/xml/Materials.xml
index be3d18b3b..1b2f8262b 100644
--- a/kratos.gid/apps/PotentialFluid/xml/Materials.xml
+++ b/kratos.gid/apps/PotentialFluid/xml/Materials.xml
@@ -4,13 +4,13 @@
-
+
-
+
diff --git a/kratos.gid/apps/PotentialFluid/xml/Procs.spd b/kratos.gid/apps/PotentialFluid/xml/Procs.spd
index cf2089264..4f9570707 100644
--- a/kratos.gid/apps/PotentialFluid/xml/Procs.spd
+++ b/kratos.gid/apps/PotentialFluid/xml/Procs.spd
@@ -35,4 +35,9 @@
return $r
]]>
+
+
+
\ No newline at end of file
diff --git a/kratos.gid/apps/PotentialFluid/xml/XmlController.tcl b/kratos.gid/apps/PotentialFluid/xml/XmlController.tcl
index f0a8f2cf2..5a8cdc3a7 100644
--- a/kratos.gid/apps/PotentialFluid/xml/XmlController.tcl
+++ b/kratos.gid/apps/PotentialFluid/xml/XmlController.tcl
@@ -1,6 +1,8 @@
-namespace eval PotentialFluid::xml {
+namespace eval ::PotentialFluid::xml {
+ namespace path ::PotentialFluid
+ Kratos::AddNamespace [namespace current]
+
# Namespace variables declaration
- variable dir
variable lastImportMeshSize
variable export_dir
@@ -8,9 +10,8 @@ namespace eval PotentialFluid::xml {
proc PotentialFluid::xml::Init { } {
# Namespace variables inicialization
- variable dir
Model::DestroyEverything
- Model::InitVariables dir $PotentialFluid::dir
+ Model::InitVariables dir [apps::getMyDir "PotentialFluid"]
Model::getSolutionStrategies Strategies.xml
Model::getElements Elements.xml
@@ -28,12 +29,12 @@ proc PotentialFluid::xml::Init { } {
proc PotentialFluid::xml::MultiAppEvent {args} {
if {$args eq "init"} {
spdAux::parseRoutes
- spdAux::ConvertAllUniqueNames FL ${::PotentialFluid::prefix}
+ spdAux::ConvertAllUniqueNames [::Fluid::GetAttribute prefix] [::PotentialFluid::GetAttribute prefix]
}
}
proc PotentialFluid::xml::getUniqueName {name} {
- return ${::PotentialFluid::prefix}${name}
+ return [::PotentialFluid::GetAttribute prefix]${name}
}
proc PotentialFluid::xml::CustomTree { args } {
@@ -51,4 +52,3 @@ proc spdAux::injectConditions { basenode args} {
$basenode delete
}
-PotentialFluid::xml::Init
diff --git a/kratos.gid/apps/ShallowWater/app.json b/kratos.gid/apps/ShallowWater/app.json
new file mode 100644
index 000000000..72023b669
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/app.json
@@ -0,0 +1,46 @@
+{
+ "id": "ShallowWater",
+ "name": "Shallow water",
+ "prefix": "SW",
+ "themed": false,
+ "kratos_name": "ShallowWaterApplication",
+ "dimensions": [
+ "2D"
+ ],
+ "script_files": [
+ "start.tcl",
+ "xml/XmlController.tcl",
+ "write/write.tcl",
+ "write/writeProjectParameters.tcl",
+ "examples/examples.tcl",
+ "examples/DamBreak.tcl",
+ "examples/HydraulicJump.tcl"
+ ],
+ "start_script": "::ShallowWater::Init",
+ "requeriments":{
+ "apps":[],
+ "minimum_gid_version":"15.1.3d"
+ },
+ "permissions": {
+ "open_tree": true,
+ "show_toolbar": true,
+ "intervals": true,
+ "wizard": false
+ },
+ "unique_names": {
+ "parts": "SWParts",
+ "materials": "SWMaterials",
+ "topography_data": "SWTopographicData",
+ "initial_conditions": "SWInitialConditions",
+ "conditions": "SWConditions"
+ },
+ "write": {
+ "coordinates": "all",
+ "materials_file": "TopographyMaterials.json",
+ "properties_location": "json",
+ "model_part_name": "main_model_part",
+ "output_model_part_name": "main_model_part"
+ },
+ "main_launch_file": "../../exec/MainKratos.py",
+ "description": "Tools for the simulation of free surface flows under the shallow water assumptions."
+}
\ No newline at end of file
diff --git a/kratos.gid/apps/ShallowWater/examples/DamBreak.tcl b/kratos.gid/apps/ShallowWater/examples/DamBreak.tcl
new file mode 100644
index 000000000..eb495c050
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/examples/DamBreak.tcl
@@ -0,0 +1,157 @@
+namespace eval ::ShallowWater::examples::DamBreak {
+ namespace path ::ShallowWater::examples
+ Kratos::AddNamespace [namespace current]
+}
+
+proc ::ShallowWater::examples::DamBreak::Init {args} {
+ if {![Kratos::IsModelEmpty]} {
+ set txt "We are going to draw the example geometry.\nDo you want to lose your previous work?"
+ set retval [tk_messageBox -default ok -icon question -message $txt -type okcancel]
+ if { $retval == "cancel" } { return }
+ }
+ DrawGeometry
+ AssignGroups
+ TreeAssignation
+
+ GiD_Process 'Redraw
+ GidUtils::UpdateWindow GROUPS
+ GidUtils::UpdateWindow LAYER
+ GiD_Process 'Zoom Frame
+}
+
+proc ::ShallowWater::examples::DamBreak::DrawGeometry {args} {
+ Kratos::ResetModel
+ GiD_Layers create main_layer
+ GiD_Layers edit to_use main_layer
+
+ # Geometry creation
+ ## Points ##
+ set coordinates_left [list 0 0 0 5 0 0 5 1 0 0 1 0]
+ set geom_points_left [list ]
+ foreach {x y z} $coordinates_left {
+ lappend geom_points_left [GiD_Geometry create point append main_layer $x $y $z]
+ }
+
+ set coordinates_right [list 5 0 0 10 0 0 10 1 0 5 1 0]
+ set geom_points_right [list ]
+ foreach {x y z} $coordinates_right {
+ lappend geom_points_right [GiD_Geometry create point append main_layer $x $y $z]
+ }
+
+ ## Lines ##
+ set geom_lines_left [list ]
+ set initial [lindex $geom_points_left 0]
+ foreach point [lrange $geom_points_left 1 end] {
+ lappend geom_lines_left [GiD_Geometry create line append stline main_layer $initial $point]
+ set initial $point
+ }
+ lappend geom_lines_left [GiD_Geometry create line append stline main_layer $initial [lindex $geom_points_left 0]]
+
+ set geom_lines_right [list ]
+ set initial [lindex $geom_points_right 0]
+ foreach point [lrange $geom_points_right 1 end] {
+ lappend geom_lines_right [GiD_Geometry create line append stline main_layer $initial $point]
+ set initial $point
+ }
+ lappend geom_lines_right [GiD_Geometry create line append stline main_layer $initial [lindex $geom_points_right 0]]
+
+ ## Surface ##
+ GiD_Process Mescape Geometry Create NurbsSurface {*}$geom_lines_left escape escape
+ GiD_Process Mescape Geometry Create NurbsSurface {*}$geom_lines_right escape escape
+
+ ## Remove the duplicated line
+ GiD_Process Mescape Utilities Collapse model Yes
+}
+
+proc ::ShallowWater::examples::DamBreak::AssignGroups {args} {
+ # Create and assign the groups
+ GiD_Groups create Body
+ GiD_Groups edit color Body "#26d1a8ff"
+ GiD_EntitiesGroups assign Body surfaces {1 2}
+
+ GiD_Groups create Reservoir
+ GiD_Groups edit color Reservoir "#26d1a8ff"
+ GiD_EntitiesGroups assign Reservoir surfaces 1
+
+ GiD_Groups create Channel
+ GiD_Groups edit color Channel "#26d1a8ff"
+ GiD_EntitiesGroups assign Channel surfaces 2
+
+ GiD_Groups create Walls
+ GiD_Groups edit color Walls "#3b3b3bff"
+ GiD_EntitiesGroups assign Walls lines {1 3 5 7}
+
+ GiD_Groups create Left
+ GiD_Groups edit color Left "#3b3b3bff"
+ GiD_EntitiesGroups assign Left lines 4
+
+ GiD_Groups create Right
+ GiD_Groups edit color Right "#3b3b3bff"
+ GiD_EntitiesGroups assign Right lines 6
+}
+
+proc ::ShallowWater::examples::DamBreak::TreeAssignation {args} {
+
+ # Parts
+ set parts [spdAux::getRoute "SWParts"]
+ set part_node [customlib::AddConditionGroupOnXPath $parts Body]
+ set props [list Element GENERIC_ELEMENT Material Concrete]
+ spdAux::SetValuesOnBaseNode $part_node $props
+
+ # Topography data
+ set topography_conditions [spdAux::getRoute "SWTopographicData"]
+ set topography_cond "$topography_conditions/condition\[@n='Topography'\]"
+ set topography_node [customlib::AddConditionGroupOnXPath $topography_cond Body]
+ $topography_node setAttribute ov surface
+ set props [list value 0.0]
+ spdAux::SetValuesOnBaseNode $topography_node $props
+
+ # Initial conditions
+ set initial_conditions [spdAux::getRoute "SWInitialConditions"]
+ set initial_cond "$initial_conditions/condition\[@n='InitialWaterLevel'\]"
+ spdAux::AddIntervalGroup Reservoir "Reservoir//Initial"
+ set initial_node [customlib::AddConditionGroupOnXPath $initial_cond "Reservoir//Initial"]
+ $initial_node setAttribute ov surface
+ set props [list value 1.0 Interval Initial]
+ spdAux::SetValuesOnBaseNode $initial_node $props
+
+ spdAux::AddIntervalGroup Channel "Channel//Initial"
+ set initial_node [customlib::AddConditionGroupOnXPath $initial_cond "Channel//Initial"]
+ $initial_node setAttribute ov surface
+ set props [list value 0.8 Interval Initial]
+ spdAux::SetValuesOnBaseNode $initial_node $props
+
+ # Conditions
+ set boundary_conditions [spdAux::getRoute "SWConditions"]
+ set flow_rate_cond "$boundary_conditions/condition\[@n='ImposedFlowRate'\]"
+ spdAux::AddIntervalGroup Walls "Walls//Total"
+ set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond "Walls//Total"]
+ $flow_rate_node setAttribute ov line
+ set props [list selector_component_X Not value_component_Y 0.0 selector_component_Z Not Interval Total]
+ spdAux::SetValuesOnBaseNode $flow_rate_node $props
+
+ spdAux::AddIntervalGroup Right "Right//Total"
+ set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond "Right//Total"]
+ $flow_rate_node setAttribute ov line
+ set props [list value_component_X 0.0 selector_component_Y Not selector_component_Z Not Interval Total]
+ spdAux::SetValuesOnBaseNode $flow_rate_node $props
+
+ spdAux::AddIntervalGroup Left "Left//Total"
+ set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond "Left//Total"]
+ $flow_rate_node setAttribute ov line
+ set props [list value_component_X 0.0 selector_component_Y Not selector_component_Z Not Interval Total]
+ spdAux::SetValuesOnBaseNode $flow_rate_node $props
+
+ # Time parameters
+ set parameters [list EndTime 2.0]
+ set xpath [spdAux::getRoute "SWTimeParameters"]
+ spdAux::SetValuesOnBasePath $xpath $parameters
+
+ # Output
+ set parameters [list OutputControlType time OutputDeltaTime 0.1]
+ set xpath "[spdAux::getRoute Results]/container\[@n='GiDOutput'\]/container\[@n='GiDOptions'\]"
+ spdAux::SetValuesOnBasePath $xpath $parameters
+
+ # Refresh
+ spdAux::RequestRefresh
+}
diff --git a/kratos.gid/apps/ShallowWater/examples/HydraulicJump.tcl b/kratos.gid/apps/ShallowWater/examples/HydraulicJump.tcl
new file mode 100644
index 000000000..66b8d82fd
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/examples/HydraulicJump.tcl
@@ -0,0 +1,127 @@
+namespace eval ::ShallowWater::examples::HydraulicJump {
+ namespace path ::ShallowWater::examples
+ Kratos::AddNamespace [namespace current]
+}
+
+proc ::ShallowWater::examples::HydraulicJump::Init {args} {
+ if {![Kratos::IsModelEmpty]} {
+ set txt "We are going to draw the example geometry.\nDo you want to lose your previous work?"
+ set retval [tk_messageBox -default ok -icon question -message $txt -type okcancel]
+ if { $retval == "cancel" } { return }
+ }
+ DrawGeometry
+ AssignGroups
+ TreeAssignation
+
+ GiD_Process 'Redraw
+ GidUtils::UpdateWindow GROUPS
+ GidUtils::UpdateWindow LAYER
+ GiD_Process 'Zoom Frame
+}
+
+proc ::ShallowWater::examples::HydraulicJump::DrawGeometry {args} {
+ Kratos::ResetModel
+ GiD_Layers create main_layer
+ GiD_Layers edit to_use main_layer
+
+ # Geometry creation
+ ## Points ##
+ set coordinates [list 0 0 0 100 0 0 100 4 0 0 4 0]
+ set geom_points [list ]
+ foreach {x y z} $coordinates {
+ lappend geom_points [GiD_Geometry create point append main_layer $x $y $z]
+ }
+
+ ## Lines ##
+ set geom_lines [list ]
+ set initial [lindex $geom_points 0]
+ foreach point [lrange $geom_points 1 end] {
+ lappend geom_lines [GiD_Geometry create line append stline main_layer $initial $point]
+ set initial $point
+ }
+ lappend geom_lines [GiD_Geometry create line append stline main_layer $initial [lindex $geom_points 0]]
+
+ ## Surface ##
+ GiD_Process Mescape Geometry Create NurbsSurface {*}$geom_lines escape escape
+}
+
+proc ::ShallowWater::examples::HydraulicJump::AssignGroups {args} {
+ # Create and assign the groups
+ GiD_Groups create Channel
+ GiD_Groups edit color Channel "#26d1a8ff"
+ GiD_EntitiesGroups assign Channel surfaces 1
+
+ GiD_Groups create Walls
+ GiD_Groups edit color Walls "#3b3b3bff"
+ GiD_EntitiesGroups assign Walls lines {1 3}
+
+ GiD_Groups create Upstream
+ GiD_Groups edit color Upstream "#3b3b3bff"
+ GiD_EntitiesGroups assign Upstream lines 4
+
+ GiD_Groups create Downstream
+ GiD_Groups edit color Downstream "#3b3b3bff"
+ GiD_EntitiesGroups assign Downstream lines 2
+}
+
+proc ::ShallowWater::examples::HydraulicJump::TreeAssignation {args} {
+
+ # Parts
+ set parts [spdAux::getRoute "SWParts"]
+ set part_node [customlib::AddConditionGroupOnXPath $parts Channel]
+ set props [list Element GENERIC_ELEMENT Material Concrete]
+ spdAux::SetValuesOnBaseNode $part_node $props
+
+ # Topography data
+ set topography_conditions [spdAux::getRoute "SWTopographicData"]
+ set topography_cond "$topography_conditions/condition\[@n='Topography'\]"
+ set topography_node [customlib::AddConditionGroupOnXPath $topography_cond Channel]
+ $topography_node setAttribute ov surface
+ set props [list ByFunction Yes function_value "4.49449786e-09*x**5 -8.78489155e-07*x**4 +5.11763010e-05*x**3 -1.12368582e-03*x**2 +4.70535924e-03*x +2.58777553"]
+ spdAux::SetValuesOnBaseNode $topography_node $props
+
+ # Initial conditions
+ set initial_conditions [spdAux::getRoute "SWInitialConditions"]
+ set initial_cond "$initial_conditions/condition\[@n='InitialWaterLevel'\]"
+ spdAux::AddIntervalGroup Channel "Channel//Initial"
+ set initial_node [customlib::AddConditionGroupOnXPath $initial_cond "Channel//Initial"]
+ $initial_node setAttribute ov surface
+ set props [list variable_name FREE_SURFACE_ELEVATION value 2.8 Interval Initial set_minimum_height 1 minimum_height_value 1]
+ spdAux::SetValuesOnBaseNode $initial_node $props
+
+ # Conditions
+ set boundary_conditions [spdAux::getRoute "SWConditions"]
+ set flow_rate_cond "$boundary_conditions/condition\[@n='ImposedFlowRate'\]"
+ set water_height_cond "$boundary_conditions/condition\[@n='ImposedFreeSurface'\]"
+
+ spdAux::AddIntervalGroup Walls "Walls//Total"
+ set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond "Walls//Total"]
+ $flow_rate_node setAttribute ov line
+ set props [list selector_component_X Not value_component_Y 0.0 selector_component_Z Not Interval Total]
+ spdAux::SetValuesOnBaseNode $flow_rate_node $props
+
+ spdAux::AddIntervalGroup Upstream "Upstream//Total"
+ set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond "Upstream//Total"]
+ $flow_rate_node setAttribute ov line
+ set props [list value_component_X 2.0 selector_component_Y 0.0 selector_component_Z Not Interval Total]
+ spdAux::SetValuesOnBaseNode $flow_rate_node $props
+
+ spdAux::AddIntervalGroup Downstream "Downstream//Total"
+ set free_surface_node [customlib::AddConditionGroupOnXPath $water_height_cond "Downstream//Total"]
+ $free_surface_node setAttribute ov line
+ set props [list value 2.8 Interval Total]
+ spdAux::SetValuesOnBaseNode $free_surface_node $props
+
+ # Time parameters
+ set parameters [list EndTime 50.0]
+ set xpath [spdAux::getRoute "SWTimeParameters"]
+ spdAux::SetValuesOnBasePath $xpath $parameters
+
+ # Output
+ set parameters [list OutputControlType time OutputDeltaTime 1.0]
+ set xpath "[spdAux::getRoute Results]/container\[@n='GiDOutput'\]/container\[@n='GiDOptions'\]"
+ spdAux::SetValuesOnBasePath $xpath $parameters
+
+ # Refresh
+ spdAux::RequestRefresh
+}
diff --git a/kratos.gid/apps/ShallowWater/examples/Waves.tcl b/kratos.gid/apps/ShallowWater/examples/Waves.tcl
new file mode 100644
index 000000000..aaa181388
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/examples/Waves.tcl
@@ -0,0 +1,99 @@
+namespace eval ::ShallowWater::examples::Waves {
+ namespace path ::ShallowWater::examples
+ Kratos::AddNamespace [namespace current]
+}
+
+proc ::ShallowWater::examples::Waves::Init {args} {
+ if {![Kratos::IsModelEmpty]} {
+ set txt "We are going to draw the example geometry.\nDo you want to lose your previous work?"
+ set retval [tk_messageBox -default ok -icon question -message $txt -type okcancel]
+ if { $retval == "cancel" } { return }
+ }
+ DrawGeometry
+ AssignGroups
+ TreeAssignation
+
+ GiD_Process 'Redraw
+ GidUtils::UpdateWindow GROUPS
+ GidUtils::UpdateWindow LAYER
+ GiD_Process 'Zoom Frame
+}
+
+proc ::ShallowWater::examples::Waves::DrawGeometry {args} {
+ Kratos::ResetModel
+ GiD_Layers create main_layer
+ GiD_Layers edit to_use main_layer
+
+ # Geometry creation
+ ## Points ##
+ set coordinates [list 0 0 0 10 0 0 10 10 0 0 10 0]
+ set geom_points [list ]
+ foreach {x y z} $coordinates {
+ lappend geom_points [GiD_Geometry create point append main_layer $x $y $z]
+ }
+
+ ## Lines ##
+ set geom_lines [list ]
+ set initial [lindex $geom_points 0]
+ foreach point [lrange $geom_points 1 end] {
+ lappend geom_lines [GiD_Geometry create line append stline main_layer $initial $point]
+ set initial $point
+ }
+ lappend geom_lines [GiD_Geometry create line append stline main_layer $initial [lindex $geom_points_left 0]]
+
+ ## Surface ##
+ GiD_Process Mescape Geometry Create NurbsSurface {*}$geom_lines escape escape
+}
+
+proc ::ShallowWater::examples::Waves::AssignGroups {args} {
+ # Create and assign the groups
+ GiD_Groups create Body
+ GiD_Groups edit color Body "#26d1a8ff"
+ GiD_EntitiesGroups assign Body surfaces 1
+
+ GiD_Groups create Walls
+ GiD_Groups edit color Walls "#3b3b3bff"
+ GiD_EntitiesGroups assign Walls lines {1 2 3 4}
+}
+
+proc ::ShallowWater::examples::Waves::TreeAssignation {args} {
+
+ # Parts
+ set parts [spdAux::getRoute "SWParts"]
+ set part_node [customlib::AddConditionGroupOnXPath $parts Body]
+ set props [list Element GENERIC_ELEMENT Material Concrete]
+ spdAux::SetValuesOnBaseNode $part_node $props
+
+ # Initial conditions
+ set initial_conditions [spdAux::getRoute "SWInitialConditions"]
+ set initial_cond "$initial_conditions/condition\[@n='InitialWaterLevel'\]"
+ spdAux::AddIntervalGroup Body "Body//Initial"
+ set initial_node [customlib::AddConditionGroupOnXPath $initial_cond "Body//Initial"]
+ $initial_node setAttribute ov surface
+ set props [list value 1.0 Interval Initial]
+ spdAux::SetValuesOnBaseNode $initial_node $props
+
+ # Conditions
+ set boundary_conditions [spdAux::getRoute "SWConditions"]
+ set flow_rate_cond "$boundary_conditions/condition\[@n='ImposedFlowRate'\]"
+ spdAux::AddIntervalGroup Walls "Walls//Total"
+ set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond "Walls//Total"]
+ $flow_rate_node setAttribute ov line
+ set props [list selector_component_X Not value_component_Y 0.0 Interval Total]
+ spdAux::SetValuesOnBaseNode $flow_rate_node $props
+
+ # spdAux::AddIntervalGroup Right "Right//Total"
+ # set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond "Right//Total"]
+ # $flow_rate_node setAttribute ov line
+ # set props [list value_component_X 0.0 selector_component_Y Not Interval Total]
+ # spdAux::SetValuesOnBaseNode $flow_rate_node $props
+
+ # spdAux::AddIntervalGroup Left "Left//Total"
+ # set flow_rate_node [customlib::AddConditionGroupOnXPath $flow_rate_cond "Left//Total"]
+ # $flow_rate_node setAttribute ov line
+ # set props [list value_component_X 0.0 selector_component_Y Not Interval Total]
+ # spdAux::SetValuesOnBaseNode $flow_rate_node $props
+
+ # Refresh
+ spdAux::RequestRefresh
+}
diff --git a/kratos.gid/apps/ShallowWater/examples/examples.tcl b/kratos.gid/apps/ShallowWater/examples/examples.tcl
new file mode 100644
index 000000000..a5d7ee15a
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/examples/examples.tcl
@@ -0,0 +1,4 @@
+namespace eval ::ShallowWater::examples {
+ namespace path ::ShallowWater
+ Kratos::AddNamespace [namespace current]
+}
diff --git a/kratos.gid/apps/ShallowWater/examples/examples.xml b/kratos.gid/apps/ShallowWater/examples/examples.xml
new file mode 100644
index 000000000..6ddac7034
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/examples/examples.xml
@@ -0,0 +1,12 @@
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/kratos.gid/apps/ShallowWater/images/channel_inlet.png b/kratos.gid/apps/ShallowWater/images/channel_inlet.png
new file mode 100644
index 000000000..90e01dafd
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/channel_inlet.png differ
diff --git a/kratos.gid/apps/ShallowWater/images/dam_break.png b/kratos.gid/apps/ShallowWater/images/dam_break.png
new file mode 100644
index 000000000..df3929487
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/dam_break.png differ
diff --git a/kratos.gid/apps/ShallowWater/images/gravity_vector.png b/kratos.gid/apps/ShallowWater/images/gravity_vector.png
new file mode 100644
index 000000000..9a582f9ae
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/gravity_vector.png differ
diff --git a/kratos.gid/apps/ShallowWater/images/jump.png b/kratos.gid/apps/ShallowWater/images/jump.png
new file mode 100644
index 000000000..08d10334a
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/jump.png differ
diff --git a/kratos.gid/apps/ShallowWater/images/land.png b/kratos.gid/apps/ShallowWater/images/land.png
new file mode 100644
index 000000000..437c97880
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/land.png differ
diff --git a/kratos.gid/apps/ShallowWater/images/logo.png b/kratos.gid/apps/ShallowWater/images/logo.png
new file mode 100644
index 000000000..2cd317722
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/logo.png differ
diff --git a/kratos.gid/apps/ShallowWater/images/logo_old.png b/kratos.gid/apps/ShallowWater/images/logo_old.png
new file mode 100644
index 000000000..b44d924e7
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/logo_old.png differ
diff --git a/kratos.gid/apps/ShallowWater/images/topography.png b/kratos.gid/apps/ShallowWater/images/topography.png
new file mode 100644
index 000000000..d851fc854
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/topography.png differ
diff --git a/kratos.gid/apps/ShallowWater/images/wave.png b/kratos.gid/apps/ShallowWater/images/wave.png
new file mode 100644
index 000000000..633ccc28b
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/wave.png differ
diff --git a/kratos.gid/apps/ShallowWater/images/waves.png b/kratos.gid/apps/ShallowWater/images/waves.png
new file mode 100644
index 000000000..d4c65fe21
Binary files /dev/null and b/kratos.gid/apps/ShallowWater/images/waves.png differ
diff --git a/kratos.gid/apps/ShallowWater/start.tcl b/kratos.gid/apps/ShallowWater/start.tcl
new file mode 100644
index 000000000..68eb33a08
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/start.tcl
@@ -0,0 +1,22 @@
+namespace eval ::ShallowWater {
+ Kratos::AddNamespace [namespace current]
+
+ # Variable declaration
+ variable _app
+ variable dir
+
+ proc GetAttribute {name} {variable _app; return [$_app getProperty $name]}
+ proc GetUniqueName {name} {variable _app; return [$_app getUniqueName $name]}
+ proc GetWriteProperty {name} {variable _app; return [$_app getWriteProperty $name]}
+}
+
+proc ::ShallowWater::Init {app} {
+ # Variable initialization
+ variable _app
+ variable dir
+ set _app $app
+ set dir [apps::getMyDir "ShallowWater"]
+
+ ::ShallowWater::xml::Init
+ ::ShallowWater::write::Init
+}
diff --git a/kratos.gid/apps/ShallowWater/write/write.tcl b/kratos.gid/apps/ShallowWater/write/write.tcl
new file mode 100644
index 000000000..73a7d3213
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/write/write.tcl
@@ -0,0 +1,114 @@
+namespace eval ::ShallowWater::write {
+ namespace path ::ShallowWater
+ Kratos::AddNamespace [namespace current]
+
+ variable ConditionsDictGroupIterators
+ variable writeAttributes
+}
+
+proc ::ShallowWater::write::Init { } {
+ variable ConditionsDictGroupIterators
+ set ConditionsDictGroupIterators [dict create ]
+ variable writeAttributes
+ set writeAttributes [dict create]
+
+ SetAttribute parts_un [GetUniqueName parts]
+ SetAttribute materials_un [GetUniqueName materials]
+ SetAttribute initial_conditions_un [GetUniqueName initial_conditions]
+ SetAttribute topography_data_un [GetUniqueName topography_data]
+ SetAttribute conditions_un [GetUniqueName conditions]
+
+ SetAttribute main_launch_file [ShallowWater::GetAttribute main_launch_file]
+ SetAttribute properties_location [GetWriteProperty properties_location]
+ SetAttribute materials_file [GetWriteProperty materials_file]
+ SetAttribute model_part_name [GetWriteProperty model_part_name]
+}
+
+proc ::ShallowWater::write::writeModelPartEvent { } {
+ # Validation
+ set err [Validate]
+ if {$err ne ""} {error $err}
+
+ # Init data
+ ::write::initWriteConfiguration [GetAttributes]
+
+ # Headers
+ ::write::writeModelPartData
+ ::write::WriteString "Begin Properties 0"
+ ::write::WriteString "End Properties"
+ ::write::WriteString ""
+
+ # Nodal Coordinates
+ ::write::writeNodalCoordinates
+
+ # Element connectivities
+ ::write::writeElementConnectivities
+
+ # Conditions connectivities
+ writeConditions
+
+ # SubmodelParts
+ writeSubModelParts
+}
+
+proc ::ShallowWater::write::Validate {} {
+ set err ""
+ return $err
+}
+
+proc ::ShallowWater::write::writeConditions { } {
+ variable ConditionsDictGroupIterators
+ set ConditionsDictGroupIterators [::write::writeConditions [GetAttribute conditions_un] ]
+}
+
+proc ::ShallowWater::write::writeSubModelParts {} {
+ ::write::writePartSubModelPart
+ ::write::writeNodalConditions [GetAttribute topography_data_un]
+ ::write::writeNodalConditions [GetAttribute initial_conditions_un]
+ WriteConditionsSubModelParts
+}
+
+proc ::ShallowWater::write::WriteConditionsSubModelParts { } {
+ variable ConditionsDictGroupIterators
+ set root [customlib::GetBaseRoot]
+ set xp1 "[spdAux::getRoute [GetAttribute conditions_un]]/condition/group"
+ foreach group [$root selectNodes $xp1] {
+ set groupid [$group @n]
+ set groupid [write::GetWriteGroupName $groupid]
+ if {$groupid in [dict keys $ConditionsDictGroupIterators]} {
+ ::write::writeGroupSubModelPart [[$group parent] @n] $groupid "Conditions" [dict get $ConditionsDictGroupIterators $groupid]
+ } else {
+ ::write::writeGroupSubModelPart [[$group parent] @n] $groupid "nodal"
+ }
+ }
+}
+
+proc ::ShallowWater::write::writeCustomFilesEvent { } {
+ write::writePropertiesJsonFile [GetAttribute parts_un] [GetAttribute materials_file] false [GetAttribute model_part_name]
+ write::SetConfigurationAttribute main_launch_file [GetAttribute main_launch_file]
+}
+
+proc ::ShallowWater::write::GetAttribute {att} {
+ variable writeAttributes
+ return [dict get $writeAttributes $att]
+}
+
+proc ::ShallowWater::write::GetAttributes {} {
+ variable writeAttributes
+ return $writeAttributes
+}
+
+proc ::ShallowWater::write::SetAttribute {att val} {
+ variable writeAttributes
+ dict set writeAttributes $att $val
+}
+
+proc ::ShallowWater::write::AddAttribute {att val} {
+ variable writeAttributes
+ dict lappend writeAttributes $att $val
+}
+
+proc ::ShallowWater::write::AddAttributes {configuration} {
+ variable writeAttributes
+ set writeAttributes [dict merge $writeAttributes $configuration]
+}
diff --git a/kratos.gid/apps/ShallowWater/write/writeProjectParameters.tcl b/kratos.gid/apps/ShallowWater/write/writeProjectParameters.tcl
new file mode 100644
index 000000000..e267c7bb3
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/write/writeProjectParameters.tcl
@@ -0,0 +1,90 @@
+# Project Parameters
+proc ::ShallowWater::write::writeParametersEvent { } {
+ write::WriteJSON [getParametersDict]
+}
+
+proc ::ShallowWater::write::getParametersDict { } {
+ set projectParametersDict [dict create]
+
+ # Analysis stage field
+ dict set projectParametersDict analysis_stage "KratosMultiphysics.ShallowWaterApplication.shallow_water_analysis"
+
+ # Set the problem data section
+ dict set projectParametersDict problem_data [GetProblemDataDict]
+
+ # Solver settings
+ dict set projectParametersDict solver_settings [GetSolverSettingsDict]
+
+ # Regular processes
+ set processes [dict create]
+ dict set processes topography_process_list [write::getConditionsParametersDict [GetAttribute topography_data_un] "Nodal"]
+ dict set processes initial_conditions_process_list [write::getConditionsParametersDict [GetAttribute initial_conditions_un] "Nodal"]
+ dict set processes boundary_conditions_process_list [write::getConditionsParametersDict [GetAttribute conditions_un]]
+ dict set projectParametersDict processes $processes
+
+ # Output processes
+ dict set projectParametersDict output_processes [write::GetDefaultOutputProcessDict]
+
+ return $projectParametersDict
+}
+
+proc ::ShallowWater::write::GetProblemDataDict { } {
+
+ # First section -> Problem data
+ set problem_data_dict [dict create]
+ set model_name [Kratos::GetModelName]
+ dict set problem_data_dict problem_name $model_name
+
+ # Parallelization
+ set paralleltype [write::getValue ParallelType]
+ dict set problem_data_dict parallel_type $paralleltype
+
+ # Time settings
+ set timeSteppingDict [dict create]
+ dict set problem_data_dict start_time [write::getValue SWTimeParameters StartTime]
+ dict set problem_data_dict end_time [write::getValue SWTimeParameters EndTime]
+
+ # Write the echo level in the problem data section
+ set echo_level [write::getValue Results EchoLevel]
+ dict set problem_data_dict echo_level $echo_level
+
+ return $problem_data_dict
+}
+
+proc ::ShallowWater::write::GetSolverSettingsDict { } {
+ # General data
+ set solverSettingsDict [dict create]
+ dict set solverSettingsDict solver_type [write::getValue SWSolStrat]
+ dict set solverSettingsDict model_part_name [GetAttribute model_part_name]
+ dict set solverSettingsDict domain_size 2
+ dict set solverSettingsDict gravity [write::getValue SWGravity]
+
+ # Model import settings
+ set modelImportDict [dict create]
+ dict set modelImportDict input_type "mdpa"
+ dict set modelImportDict input_filename [Kratos::GetModelName]
+ dict set solverSettingsDict model_import_settings $modelImportDict
+
+ # Materials
+ set materialsDict [dict create]
+ dict set materialsDict materials_filename [GetAttribute materials_file]
+ dict set solverSettingsDict material_import_settings $materialsDict
+
+ # Strategy, scheme and linear solver settings
+ set solverSettingsDict [dict merge $solverSettingsDict [write::getSolutionStrategyParametersDict SWSolStrat SWScheme SWStrategyParams] ]
+ set solverSettingsDict [dict merge $solverSettingsDict [write::getSolversParametersDict ShallowWater] ]
+
+ # Time stepping settings
+ set timeSteppingDict [dict create]
+ dict set timeSteppingDict automatic_time_step [write::getValue SWAutomaticDeltaTime]
+ if {[write::getValue SWAutomaticDeltaTime] eq "Yes"} {
+ dict set timeSteppingDict courant_number [write::getValue SWTimeParameters CFLNumber]
+ dict set timeSteppingDict maximum_delta_time [write::getValue SWTimeParameters MaximumDeltaTime]
+ dict set timeSteppingDict minimum_delta_time [write::getValue SWTimeParameters MinimumDeltaTime]
+ } else {
+ dict set timeSteppingDict time_step [write::getValue SWTimeParameters DeltaTime]
+ }
+ dict set solverSettingsDict time_stepping $timeSteppingDict
+
+ return $solverSettingsDict
+}
diff --git a/kratos.gid/apps/ShallowWater/xml/BoundaryConditions.spd b/kratos.gid/apps/ShallowWater/xml/BoundaryConditions.spd
new file mode 100644
index 000000000..ee44e459b
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/xml/BoundaryConditions.spd
@@ -0,0 +1,4 @@
+
+
+
+
diff --git a/kratos.gid/apps/ShallowWater/xml/Conditions.xml b/kratos.gid/apps/ShallowWater/xml/Conditions.xml
new file mode 100644
index 000000000..5a24d0715
--- /dev/null
+++ b/kratos.gid/apps/ShallowWater/xml/Conditions.xml
@@ -0,0 +1,55 @@
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
- 1 3 6 7 15 16 18 19
- 1x8
- 5 2 1x4 2 2
-
-
- 2 5 7 9:11
- 2x6
- 4 3 4 3 4 3 4 3 4 3 4 3
-
-
-
-
diff --git a/kratos.gid/apps/Solid/examples/CircularTank2Da.gid/CircularTank2Da.vv b/kratos.gid/apps/Solid/examples/CircularTank2Da.gid/CircularTank2Da.vv
deleted file mode 100644
index fe66fee6e..000000000
--- a/kratos.gid/apps/Solid/examples/CircularTank2Da.gid/CircularTank2Da.vv
+++ /dev/null
@@ -1,37 +0,0 @@
-BeginZE /home/cpuigbo/Desktop/CircularTank2Da.gid/CircularTank2Da.vv
- x -2.27358531951904297 7.77358531951904297
- y 4.63604164123535156 -2.13604164123535156
- z -4.54599666595458984 4.54599666595458984
- e 3.38604164123535156
- v 0 0 0
- r 1
- m 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1
- c 3.74545454978942871 0.654545426368713379 0
- pd 0
- pno 0
- pfo 0
- pf 4
- pv 0
- NowUse 0
- DrawingType 1
- LightVector 90 90 150 0
- OGLShadow(UseShadows) 0
- OGLShadow(RenderMode) RenderNice
- OGLShadow(ShadowBias) -0.002
- OGLShadow(AmbientShadows) 1
- OGLShadow(UseFBO) 0
- OGLShadow(FBOSize) 2048
- OGLShadow(DimmedLightFactor) 0.02
- OGLStereo(UseStereo) 0
- OGLStereo(RelativeEyeDistance) 1
- OGLStereo(FlipEyes) 0
- OGLStereo(StereoMode) AnaglyphColors
- OGLStereo(EyeDistance) 0.075
- OGLStereo(LeftEyeDistance) 1 0 0 1
- OGLStereo(RightEyeDistance) 0 1 1 1
-EndZE /home/cpuigbo/Desktop/CircularTank2Da.gid/CircularTank2Da.vv
-
-BeginMirror
- Mirror 0 Angle 0.0 AngleFake -15.0 SizeFactor 2.0 HeightOffset 0.25 Color #d9e5f24d Backlight Off EdgeStyle No Type Scene DrawMode Mirror
-EndMirror
-
diff --git a/kratos.gid/apps/Solid/examples/CircularTank3D.gid/CircularTank3D.geo b/kratos.gid/apps/Solid/examples/CircularTank3D.gid/CircularTank3D.geo
deleted file mode 100644
index 458181829..000000000
Binary files a/kratos.gid/apps/Solid/examples/CircularTank3D.gid/CircularTank3D.geo and /dev/null differ
diff --git a/kratos.gid/apps/Solid/examples/CircularTank3D.gid/CircularTank3D.prj b/kratos.gid/apps/Solid/examples/CircularTank3D.gid/CircularTank3D.prj
deleted file mode 100644
index 372744322..000000000
--- a/kratos.gid/apps/Solid/examples/CircularTank3D.gid/CircularTank3D.prj
+++ /dev/null
@@ -1,26 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- 1:3 6:8 12
- 1x7
- 3 6 6 5x3 2
-
-
- 1
- 2
- 1 4
-
-
-
-
diff --git a/kratos.gid/apps/Solid/examples/CircularTank3D.gid/CircularTank3D.vv b/kratos.gid/apps/Solid/examples/CircularTank3D.gid/CircularTank3D.vv
deleted file mode 100644
index 6a5d81bac..000000000
--- a/kratos.gid/apps/Solid/examples/CircularTank3D.gid/CircularTank3D.vv
+++ /dev/null
@@ -1,37 +0,0 @@
-BeginZE /home/cpuigbo/Desktop/CircularTank3D.gid/CircularTank3D.vv
- x -4.36261892318725586 9.74696636199951172
- y 5.52431821823120117 -3.00504279136657715
- z -2.05847859382629395 7.42126178741455078
- e 4.26468038558959961
- v -0.150687560439109802 -0.215787529945373535 -0.0511590689420700073
- r 0.963385581970214844
- m 0.901636958122253418 0.163604810833930969 -0.400355130434036255 0 -0.0335388220846652985 0.949352025985717773 0.31241944432258606 0 0.43119126558303833 -0.268261492252349854 0.861458003520965576 0 0 0 0 1
- c 2.68139147758483887 0.784821450710296631 -2.68139147758483887
- pd 0
- pno 0
- pfo 0
- pf 4
- pv 0
- NowUse 0
- DrawingType 1
- LightVector 90 90 150 0
- OGLShadow(UseShadows) 0
- OGLShadow(RenderMode) RenderNice
- OGLShadow(ShadowBias) -0.002
- OGLShadow(AmbientShadows) 1
- OGLShadow(UseFBO) 0
- OGLShadow(FBOSize) 2048
- OGLShadow(DimmedLightFactor) 0.02
- OGLStereo(UseStereo) 0
- OGLStereo(RelativeEyeDistance) 1
- OGLStereo(FlipEyes) 0
- OGLStereo(StereoMode) AnaglyphColors
- OGLStereo(EyeDistance) 0.075
- OGLStereo(LeftEyeDistance) 1 0 0 1
- OGLStereo(RightEyeDistance) 0 1 1 1
-EndZE /home/cpuigbo/Desktop/CircularTank3D.gid/CircularTank3D.vv
-
-BeginMirror
- Mirror 0 Angle 0.0 AngleFake -15.0 SizeFactor 2.0 HeightOffset 0.25 Color #d9e5f24d Backlight Off EdgeStyle No Type Scene DrawMode Mirror
-EndMirror
-
diff --git a/kratos.gid/apps/Solid/examples/DynamicBeam.tcl b/kratos.gid/apps/Solid/examples/DynamicBeam.tcl
deleted file mode 100644
index 61becb49e..000000000
--- a/kratos.gid/apps/Solid/examples/DynamicBeam.tcl
+++ /dev/null
@@ -1,141 +0,0 @@
-
-proc ::Solid::examples::DynamicBeam {args} {
- if {![Kratos::IsModelEmpty]} {
- set txt "We are going to draw the example geometry.\nDo you want to lose your previous work?"
- set retval [tk_messageBox -default ok -icon question -message $txt -type okcancel]
- if { $retval == "cancel" } { return }
- }
- DrawDynamicBeamGeometry$::Model::SpatialDimension
- TreeAssignationDynamicBeam$::Model::SpatialDimension
-
- GiD_Process 'Redraw
- GidUtils::UpdateWindow GROUPS
- GidUtils::UpdateWindow LAYER
- GiD_Process 'Zoom Frame
-}
-
-
-# Draw Geometry
-proc Solid::examples::DrawDynamicBeamGeometry3D {args} {
- Kratos::ResetModel
- set dir [apps::getMyDir "Solid"]
- set problemfile [file join $dir examples DynamicBeam3D.gid]
- GiD_Process Mescape Files InsertGeom $problemfile
-}
-proc Solid::examples::DrawDynamicBeamGeometry2Da {args} {
- Kratos::ResetModel
-}
-proc Solid::examples::DrawDynamicBeamGeometry2D {args} {
- Kratos::ResetModel
-}
-# Mesh sizes
-
-
-# Tree assign
-proc Solid::examples::TreeAssignationDynamicBeam3D {args} {
- set nd $::Model::SpatialDimension
- set root [customlib::GetBaseRoot]
-
- set condtype point
-
- # Static solution strategy set
- spdAux::SetValueOnTreeItem v "Dynamic" SLSoluType
- spdAux::SetValueOnTreeItem v "SimoStep" SLScheme
-
- # Time parameters
- set time_parameters [list EndTime 5.0 DeltaTime 0.05]
- set time_params_path [spdAux::getRoute SLTimeParameters]
- foreach {name value} $time_parameters {
- set node [$root selectNodes "$time_params_path/value\[@n = '$name'\]"]
- if {$node ne ""} {
- $node setAttribute v $value
- } else {
- W "Couldn't find $name - Check example script"
- }
- }
-
- # Solid Parts
- set solidParts [spdAux::getRoute "SLParts"]
- set solidPartsNode [customlib::AddConditionGroupOnXPath $solidParts Solid]
- $solidPartsNode setAttribute ov line
- set props [list Element LargeDisplacementBeamElement3D ConstitutiveLaw CircularSection3D DIAMETER 0.05 YOUNG_MODULUS 206.9e8]
- foreach {prop val} $props {
- set propnode [$solidPartsNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- spdAux::RequestRefresh
- set solidConditions [spdAux::getRoute "SLNodalConditions"]
-
- # Solid Constraint
- GiD_Groups clone Constraint Total
- GiD_Groups edit parent Total Constraint
- spdAux::AddIntervalGroup Constraint "Constraint//Total"
- GiD_Groups edit state "Constraint//Total" hidden
- set solidConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintNode [customlib::AddConditionGroupOnXPath $solidConstraint "Constraint//Total"]
- $solidConstraintNode setAttribute ov point
- set props [list selector_component_X ByValue value_component_X 0.0 selector_component_Y ByValue value_component_Y 0.0 selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone AngularConstraint Total
- GiD_Groups edit parent Total AngularConstraint
- spdAux::AddIntervalGroup AngularConstraint "AngularConstraint//Total"
- GiD_Groups edit state "AngularConstraint//Total" hidden
- set solidAngularConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='ANGULAR_VELOCITY']}
- set solidAngularConstraintNode [customlib::AddConditionGroupOnXPath $solidAngularConstraint "AngularConstraint//Total"]
- $solidAngularConstraintNode setAttribute ov point
- set props [list selector_component_X ByValue value_component_X 2.0 selector_component_Y ByValue value_component_Y 0.0 selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidAngularConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Solid Loads
- GiD_Groups clone SelfWeight Total
- GiD_Groups edit parent Total SelfWeight
- spdAux::AddIntervalGroup SelfWeight "SelfWeight//Total"
- GiD_Groups edit state "SelfWeight//Total" hidden
- set solidLoad "container\[@n='Solid'\]/container\[@n='Loads'\]/condition\[@n='SelfWeight$nd'\]"
- set solidLoadNode [customlib::AddConditionGroupOnXPath $solidLoad "SelfWeight//Total"]
- $solidLoadNode setAttribute ov line
- set props [list ByFunction No modulus 9.81 direction 0.0,-1.0,0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidLoadNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Parallelism
- set time_parameters [list ParallelSolutionType OpenMP OpenMPNumberOfThreads 4]
- set time_params_path [spdAux::getRoute "Parallelization"]
- foreach {n v} $time_parameters {
- [$root selectNodes "$time_params_path/value\[@n = '$n'\]"] setAttribute v $v
- }
-
- spdAux::RequestRefresh
-}
-proc Solid::examples::TreeAssignationDynamicBeam2Da {args} {
- Kratos::ResetModel
-}
-proc Solid::examples::TreeAssignationDynamicBeam2D {args} {
- Kratos::ResetModel
-}
diff --git a/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.geo b/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.geo
deleted file mode 100644
index c8f5c092f..000000000
Binary files a/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.geo and /dev/null differ
diff --git a/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.prj b/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.prj
deleted file mode 100644
index 17cf51e35..000000000
--- a/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.prj
+++ /dev/null
@@ -1,24 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
- 1
- 3
- 3 1 4
-
-
- 1 2
- 2 2
- 1 2 1 2
-
-
-
-
diff --git a/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.vv b/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.vv
deleted file mode 100644
index d30c49831..000000000
--- a/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.vv
+++ /dev/null
@@ -1,37 +0,0 @@
-BeginZE /home/cpuigbo/GiDInterface/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.vv
- x 0.582600831985473633 3.13705992698669434
- y 0.753371059894561768 -1.3496021032333374
- z -1.89401459693908691 1.89401459693908691
- e 1.65831243991851807
- v 0.0429526552950176832 0.875547797747364354 0.149245509813539512
- r -0.457489782468801232
- m -0.577716350555419922 0.211770802736282349 -0.788287341594696045 0 -0.0613423846662044525 0.951761722564697266 0.300643950700759888 0 0.813929319381713867 0.222042351961135864 -0.536857724189758301 0 0 0 0 1
- c 1.66666662693023682 -0.333333343267440796 0
- pd 0
- pno 0
- pfo 0
- pf 4
- pv 0
- NowUse 0
- DrawingType 0
- LightVector 90 90 150 0
- OGLShadow(UseShadows) 0
- OGLShadow(RenderMode) RenderNice
- OGLShadow(ShadowBias) -0.002
- OGLShadow(AmbientShadows) 1
- OGLShadow(UseFBO) 0
- OGLShadow(FBOSize) 2048
- OGLShadow(DimmedLightFactor) 0.02
- OGLStereo(UseStereo) 0
- OGLStereo(RelativeEyeDistance) 1
- OGLStereo(FlipEyes) 0
- OGLStereo(StereoMode) AnaglyphColors
- OGLStereo(EyeDistance) 0.075
- OGLStereo(LeftEyeDistance) 1 0 0 1
- OGLStereo(RightEyeDistance) 0 1 1 1
-EndZE /home/cpuigbo/GiDInterface/kratos.gid/apps/Solid/examples/DynamicBeam3D.gid/DynamicBeam3D.vv
-
-BeginMirror
- Mirror 0 Angle 0.0 AngleFake -15.0 SizeFactor 2.0 HeightOffset 0.25 Color #d9e5f24d Backlight Off EdgeStyle No Type Scene DrawMode Mirror
-EndMirror
-
diff --git a/kratos.gid/apps/Solid/examples/DynamicRod.tcl b/kratos.gid/apps/Solid/examples/DynamicRod.tcl
deleted file mode 100644
index 90de1106f..000000000
--- a/kratos.gid/apps/Solid/examples/DynamicRod.tcl
+++ /dev/null
@@ -1,206 +0,0 @@
-
-proc ::Solid::examples::DynamicRod {args} {
- if {![Kratos::IsModelEmpty]} {
- set txt "We are going to draw the example geometry.\nDo you want to lose your previous work?"
- set retval [tk_messageBox -default ok -icon question -message $txt -type okcancel]
- if { $retval == "cancel" } { return }
- }
- DrawDynamicRodGeometry$::Model::SpatialDimension
- TreeAssignationDynamicRod$::Model::SpatialDimension
-
- GiD_Process 'Redraw
- GidUtils::UpdateWindow GROUPS
- GidUtils::UpdateWindow LAYER
- GiD_Process 'Zoom Frame
-}
-
-
-# Draw Geometry
-proc Solid::examples::DrawDynamicRodGeometry3D {args} {
- Kratos::ResetModel
- set dir [apps::getMyDir "Solid"]
- set problemfile [file join $dir examples DynamicRod3D.gid]
- GiD_Process Mescape Files InsertGeom $problemfile
-}
-proc Solid::examples::DrawDynamicRodGeometry2D {args} {
- Kratos::ResetModel
- set dir [apps::getMyDir "Solid"]
- set problemfile [file join $dir examples DynamicRod2D.gid]
- GiD_Process Mescape Files InsertGeom $problemfile
-}
-proc Solid::examples::DrawDynamicRodGeometry2Da {args} {
- Kratos::ResetModel
-}
-# Mesh sizes
-
-
-# Tree assign
-proc Solid::examples::TreeAssignationDynamicRod3D {args} {
- set nd $::Model::SpatialDimension
- set root [customlib::GetBaseRoot]
-
- set condtype line
- if {$nd eq "3D"} { set condtype surface }
-
- # Dynamic solution strategy set
- spdAux::SetValueOnTreeItem v "Dynamic" SLSoluType
-
- # Time parameters
- set time_parameters [list EndTime 1.06 DeltaTime 0.01]
- set time_params_path [spdAux::getRoute SLTimeParameters]
- foreach {name value} $time_parameters {
- set node [$root selectNodes "$time_params_path/value\[@n = '$name'\]"]
- if {$node ne ""} {
- $node setAttribute v $value
- } else {
- W "Couldn't find $name - Check example script"
- }
-
- }
-
- # Solid Parts
- set solidParts [spdAux::getRoute "SLParts"]
- set solidPartsNode [customlib::AddConditionGroupOnXPath $solidParts Solid]
- $solidPartsNode setAttribute ov volume
- set props [list Element TotalLagrangianElement$nd ConstitutiveLaw LargeStrain3DLaw.SaintVenantKirchhoffModel]
- foreach {prop val} $props {
- set propnode [$solidPartsNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- set solidConditions [spdAux::getRoute "SLNodalConditions"]
-
- # Solid Constraint
- GiD_Groups clone Constraint Total
- GiD_Groups edit parent Total Constraint
- spdAux::AddIntervalGroup Constraint "Constraint//Total"
- GiD_Groups edit state "Constraint//Total" hidden
- set solidConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintNode [customlib::AddConditionGroupOnXPath $solidConstraint "Constraint//Total"]
- $solidConstraintNode setAttribute ov line
- set props [list selector_component_X ByValue value_component_X 0.0 selector_component_Y ByValue value_component_Y 0.0 selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Solid Loads
- GiD_Groups clone SelfWeight Total
- GiD_Groups edit parent Total SelfWeight
- spdAux::AddIntervalGroup SelfWeight "SelfWeight//Total"
- GiD_Groups edit state "SelfWeight//Total" hidden
- set solidLoad "container\[@n='Solid'\]/container\[@n='Loads'\]/condition\[@n='SelfWeight$nd'\]"
- set solidLoadNode [customlib::AddConditionGroupOnXPath $solidLoad "SelfWeight//Total"]
- $solidLoadNode setAttribute ov volume
- set props [list ByFunction No modulus 9.81 direction 0.0,-1.0,0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidLoadNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Parallelism
- set time_parameters [list ParallelSolutionType OpenMP OpenMPNumberOfThreads 4]
- set time_params_path [spdAux::getRoute "Parallelization"]
- foreach {n v} $time_parameters {
- [$root selectNodes "$time_params_path/value\[@n = '$n'\]"] setAttribute v $v
- }
-
-
- spdAux::RequestRefresh
-}
-proc Solid::examples::TreeAssignationDynamicRod2D {args} {
- set nd $::Model::SpatialDimension
- set root [customlib::GetBaseRoot]
-
- set condtype line
- if {$nd eq "3D"} { set condtype surface }
-
- # Dynamic solution strategy set
- spdAux::SetValueOnTreeItem v "Dynamic" SLSoluType
-
- # Time parameters
- set time_parameters [list EndTime 1.06 DeltaTime 0.01]
- set time_params_path [spdAux::getRoute SLTimeParameters]
- foreach {name value} $time_parameters {
- set node [$root selectNodes "$time_params_path/value\[@n = '$name'\]"]
- if {$node ne ""} {
- $node setAttribute v $value
- } else {
- W "Couldn't find $name - Check example script"
- }
- }
-
- # Solid Parts
- set solidParts [spdAux::getRoute "SLParts"]
- set solidPartsNode [customlib::AddConditionGroupOnXPath $solidParts Solid]
- $solidPartsNode setAttribute ov surface
- set props [list Element TotalLagrangianElement$nd ConstitutiveLaw LargeStrain3DLaw.SaintVenantKirchhoffModel]
- foreach {prop val} $props {
- set propnode [$solidPartsNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- set solidConditions [spdAux::getRoute "SLNodalConditions"]
-
- # Solid Constraint
- GiD_Groups clone Constraint Total
- GiD_Groups edit parent Total Constraint
- spdAux::AddIntervalGroup Constraint "Constraint//Total"
- GiD_Groups edit state "Constraint//Total" hidden
- set solidConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintNode [customlib::AddConditionGroupOnXPath $solidConstraint "Constraint//Total"]
- $solidConstraintNode setAttribute ov point
- set props [list selector_component_X ByValue value_component_X 0.0 selector_component_Y ByValue value_component_Y 0.0 selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Solid Loads
- GiD_Groups clone SelfWeight Total
- GiD_Groups edit parent Total SelfWeight
- spdAux::AddIntervalGroup SelfWeight "SelfWeight//Total"
- GiD_Groups edit state "SelfWeight//Total" hidden
- set solidLoad "container\[@n='Solid'\]/container\[@n='Loads'\]/condition\[@n='SelfWeight$nd'\]"
- set solidLoadNode [customlib::AddConditionGroupOnXPath $solidLoad "SelfWeight//Total"]
- $solidLoadNode setAttribute ov surface
- set props [list ByFunction No modulus 9.81 direction 0.0,-1.0,0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidLoadNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Parallelism
- set time_parameters [list ParallelSolutionType OpenMP OpenMPNumberOfThreads 4]
- set time_params_path [spdAux::getRoute "Parallelization"]
- foreach {n v} $time_parameters {
- [$root selectNodes "$time_params_path/value\[@n = '$n'\]"] setAttribute v $v
- }
-}
-proc Solid::examples::TreeAssignationDynamicRod2Da {args} {
- Kratos::ResetModel
-}
diff --git a/kratos.gid/apps/Solid/examples/DynamicRod2D.gid/DynamicRod2D.geo b/kratos.gid/apps/Solid/examples/DynamicRod2D.gid/DynamicRod2D.geo
deleted file mode 100644
index 27f7e44aa..000000000
Binary files a/kratos.gid/apps/Solid/examples/DynamicRod2D.gid/DynamicRod2D.geo and /dev/null differ
diff --git a/kratos.gid/apps/Solid/examples/DynamicRod2D.gid/DynamicRod2D.prj b/kratos.gid/apps/Solid/examples/DynamicRod2D.gid/DynamicRod2D.prj
deleted file mode 100644
index bb151ffae..000000000
--- a/kratos.gid/apps/Solid/examples/DynamicRod2D.gid/DynamicRod2D.prj
+++ /dev/null
@@ -1,24 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
- 85
- 1
- 4
-
-
- 1:3
- 2x3
- 2 3 2 3 2 3
-
-
-
-
diff --git a/kratos.gid/apps/Solid/examples/DynamicRod2D.gid/DynamicRod2D.vv b/kratos.gid/apps/Solid/examples/DynamicRod2D.gid/DynamicRod2D.vv
deleted file mode 100644
index bb19ca5af..000000000
--- a/kratos.gid/apps/Solid/examples/DynamicRod2D.gid/DynamicRod2D.vv
+++ /dev/null
@@ -1,37 +0,0 @@
-BeginZE /home/jmaria/Tests/DynamicRod2D.gid/DynamicRod2D.vv
- x -0.0860478430986404419 0.338547825813293457
- y 0.147866189479827881 -0.147866189479827881
- z -0.443598568439483643 0.443598568439483643
- e 0.147866189479827881
- v 0 0 0
- r 1
- m 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1
- c 0.126249998807907104 0 -6.32091712304827524e-09
- pd 0
- pno 0
- pfo 0
- pf 4
- pv 0
- NowUse 0
- DrawingType 1
- LightVector 90 90 150 0
- OGLShadow(UseShadows) 0
- OGLShadow(RenderMode) RenderNice
- OGLShadow(ShadowBias) -0.002
- OGLShadow(AmbientShadows) 1
- OGLShadow(UseFBO) 1
- OGLShadow(FBOSize) 2048
- OGLShadow(DimmedLightFactor) 0.02
- OGLStereo(UseStereo) 0
- OGLStereo(RelativeEyeDistance) 1
- OGLStereo(FlipEyes) 0
- OGLStereo(StereoMode) AnaglyphColors
- OGLStereo(EyeDistance) 0.075
- OGLStereo(LeftEyeDistance) 1 0 0 1
- OGLStereo(RightEyeDistance) 0 1 1 1
-EndZE /home/jmaria/Tests/DynamicRod2D.gid/DynamicRod2D.vv
-
-BeginMirror
- Mirror 0 Angle 0.0 AngleFake -15.0 SizeFactor 2.0 HeightOffset 0.25 Color #d9e5f24d Backlight Off EdgeStyle No Type Scene DrawMode Mirror
-EndMirror
-
diff --git a/kratos.gid/apps/Solid/examples/DynamicRod3D.gid/DynamicRod3D.geo b/kratos.gid/apps/Solid/examples/DynamicRod3D.gid/DynamicRod3D.geo
deleted file mode 100644
index bf48e089e..000000000
Binary files a/kratos.gid/apps/Solid/examples/DynamicRod3D.gid/DynamicRod3D.geo and /dev/null differ
diff --git a/kratos.gid/apps/Solid/examples/DynamicRod3D.gid/DynamicRod3D.prj b/kratos.gid/apps/Solid/examples/DynamicRod3D.gid/DynamicRod3D.prj
deleted file mode 100644
index 310a40a41..000000000
--- a/kratos.gid/apps/Solid/examples/DynamicRod3D.gid/DynamicRod3D.prj
+++ /dev/null
@@ -1,29 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
- 116
- 1
- 2
-
-
- 8:19 31:33 40 53:56
- 1x20
- 1x20
-
-
- 1
- 2
- 3 4
-
-
-
-
diff --git a/kratos.gid/apps/Solid/examples/DynamicRod3D.gid/DynamicRod3D.vv b/kratos.gid/apps/Solid/examples/DynamicRod3D.gid/DynamicRod3D.vv
deleted file mode 100644
index dacde8124..000000000
--- a/kratos.gid/apps/Solid/examples/DynamicRod3D.gid/DynamicRod3D.vv
+++ /dev/null
@@ -1,37 +0,0 @@
-BeginZE /home/jmaria/Tests/DynamicRod3D.gid/DynamicRod3D.vv
- x -0.0906996056437492371 0.33330225944519043
- y 0.143511354923248291 -0.152221024036407471
- z -0.418598592281341553 0.468598544597625732
- e 0.147866189479827881
- v -0.155974417924880981 0.326733916997909546 0.115599974989891052
- r 0.924961388111114502
- m 0.759763181209564209 -0.315775305032730103 0.568371236324310303 0 0.111926771700382233 0.924617230892181396 0.364081501960754395 0 -0.640493810176849365 -0.21299976110458374 0.737833857536315918 0 0 0 0 1
- c 0.110273361206054688 6.73620590418977372e-08 -0.0249999910593032837
- pd 0
- pno 0
- pfo 0
- pf 4
- pv 0
- NowUse 0
- DrawingType 1
- LightVector 90 90 150 0
- OGLShadow(UseShadows) 0
- OGLShadow(RenderMode) RenderNice
- OGLShadow(ShadowBias) -0.002
- OGLShadow(AmbientShadows) 1
- OGLShadow(UseFBO) 1
- OGLShadow(FBOSize) 2048
- OGLShadow(DimmedLightFactor) 0.02
- OGLStereo(UseStereo) 0
- OGLStereo(RelativeEyeDistance) 1
- OGLStereo(FlipEyes) 0
- OGLStereo(StereoMode) AnaglyphColors
- OGLStereo(EyeDistance) 0.075
- OGLStereo(LeftEyeDistance) 1 0 0 1
- OGLStereo(RightEyeDistance) 0 1 1 1
-EndZE /home/jmaria/Tests/DynamicRod3D.gid/DynamicRod3D.vv
-
-BeginMirror
- Mirror 0 Angle 0.0 AngleFake -15.0 SizeFactor 2.0 HeightOffset 0.25 Color #d9e5f24d Backlight Off EdgeStyle No Type Scene DrawMode Mirror
-EndMirror
-
diff --git a/kratos.gid/apps/Solid/examples/EccentricColumn.tcl b/kratos.gid/apps/Solid/examples/EccentricColumn.tcl
deleted file mode 100644
index f6301d3f2..000000000
--- a/kratos.gid/apps/Solid/examples/EccentricColumn.tcl
+++ /dev/null
@@ -1,181 +0,0 @@
-
-proc ::Solid::examples::EccentricColumn {args} {
- if {![Kratos::IsModelEmpty]} {
- set txt "We are going to draw the example geometry.\nDo you want to lose your previous work?"
- set retval [tk_messageBox -default ok -icon question -message $txt -type okcancel]
- if { $retval == "cancel" } { return }
- }
- DrawEccentricColumnGeometry$::Model::SpatialDimension
- TreeAssignationEccentricColumn$::Model::SpatialDimension
-
- GiD_Process 'Redraw
- GidUtils::UpdateWindow GROUPS
- GidUtils::UpdateWindow LAYER
- GiD_Process 'Zoom Frame
-}
-
-
-# Draw Geometry
-proc Solid::examples::DrawEccentricColumnGeometry3D {args} {
- Kratos::ResetModel
- set dir [apps::getMyDir "Solid"]
- set problemfile [file join $dir examples EccentricColumn3D.gid]
- GiD_Process Mescape Files InsertGeom $problemfile
-}
-proc Solid::examples::DrawEccentricColumnGeometry2Da {args} {
- Kratos::ResetModel
-}
-proc Solid::examples::DrawEccentricColumnGeometry2D {args} {
- Kratos::ResetModel
-}
-# Mesh sizes
-
-
-# Tree assign
-proc Solid::examples::TreeAssignationEccentricColumn3D {args} {
- set nd $::Model::SpatialDimension
- set root [customlib::GetBaseRoot]
-
- set condtype line
- if {$nd eq "3D"} { set condtype surface }
-
- # Static solution strategy set
- spdAux::SetValueOnTreeItem v "Static" SLSoluType
-
- # Time parameters
- set time_parameters [list EndTime 1.0 DeltaTime 1.0]
- set time_params_path [spdAux::getRoute SLTimeParameters]
- foreach {name value} $time_parameters {
- set node [$root selectNodes "$time_params_path/value\[@n = '$name'\]"]
- if {$node ne ""} {
- $node setAttribute v $value
- } else {
- W "Couldn't find $name - Check example script"
- }
- }
-
- # Solid Parts
- set solidParts [spdAux::getRoute "SLParts"]
- set solidPartsNode [customlib::AddConditionGroupOnXPath $solidParts Solid]
- $solidPartsNode setAttribute ov volume
- set props [list Element SmallDisplacementElement$nd ConstitutiveLaw SmallStrain3DLaw.LinearElasticModel]
- foreach {prop val} $props {
- set propnode [$solidPartsNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- set solidConditions [spdAux::getRoute "SLNodalConditions"]
-
- # Solid Constraint
- GiD_Groups clone ConstraintX Total
- GiD_Groups edit parent Total ConstraintX
- spdAux::AddIntervalGroup ConstraintX "ConstraintX//Total"
- GiD_Groups edit state "ConstraintX//Total" hidden
- set solidConstraintX {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintXNode [customlib::AddConditionGroupOnXPath $solidConstraintX "ConstraintX//Total"]
- $solidConstraintXNode setAttribute ov line
- set props [list selector_component_X ByValue value_component_X 0.0 selector_component_Y Not selector_component_Z Not Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintXNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone ConstraintZ Total
- GiD_Groups edit parent Total ConstraintZ
- spdAux::AddIntervalGroup ConstraintZ "ConstraintZ//Total"
- GiD_Groups edit state "ConstraintZ//Total" hidden
- set solidConstraintZ {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintZNode [customlib::AddConditionGroupOnXPath $solidConstraintZ "ConstraintZ//Total"]
- $solidConstraintZNode setAttribute ov line
- set props [list selector_component_X Not selector_component_Y Not selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintZNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Solid Loads
- GiD_Groups clone SelfWeight Total
- GiD_Groups edit parent Total SelfWeight
- spdAux::AddIntervalGroup SelfWeight "SelfWeight//Total"
- GiD_Groups edit state "SelfWeight//Total" hidden
- set solidLoad "container\[@n='Solid'\]/container\[@n='Loads'\]/condition\[@n='SelfWeight$nd'\]"
- set solidLoadNode [customlib::AddConditionGroupOnXPath $solidLoad "SelfWeight//Total"]
- $solidLoadNode setAttribute ov volume
- set props [list ByFunction No modulus 9.81 direction 0.0,-1.0,0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidLoadNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone Load Total
- GiD_Groups edit parent Total Load
- spdAux::AddIntervalGroup Load "Load//Total"
- GiD_Groups edit state "Load//Total" hidden
- set solidLoad "container\[@n='Solid'\]/container\[@n='Loads'\]/condition\[@n='Load$nd'\]"
- set solidLoadNode [customlib::AddConditionGroupOnXPath $solidLoad "Load//Total"]
- $solidLoadNode setAttribute ov surface
- set props [list ByFunction No modulus 4.44e6 direction 0.0,-1.0,0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidLoadNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone Spring Total
- GiD_Groups edit parent Total Spring
- spdAux::AddIntervalGroup Spring "Spring//Total"
- GiD_Groups edit state "Spring//Total" hidden
- set solidSpring "container\[@n='Solid'\]/container\[@n='Loads'\]/condition\[@n='Spring$nd'\]"
- set solidSpringNode [customlib::AddConditionGroupOnXPath $solidSpring "Spring//Total"]
- $solidSpringNode setAttribute ov surface
- set props [list ByFunction No modulus 50e6 direction 0.0,1.0,0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidSpringNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Parallelism
- set time_parameters [list ParallelSolutionType OpenMP OpenMPNumberOfThreads 4]
- set time_params_path [spdAux::getRoute "Parallelization"]
- foreach {n v} $time_parameters {
- [$root selectNodes "$time_params_path/value\[@n = '$n'\]"] setAttribute v $v
- }
-
- # Solver
- set solver_parameters [list Solver amgcl max_iteration 2000 tolerance 1e-6 krylov_type cg]
- set solver_params_path [spdAux::getRoute "SLStaticlinear_solver_settings"]
- foreach {n v} $solver_parameters {
- [$root selectNodes "$solver_params_path/value\[@n = '$n'\]"] setAttribute v $v
- }
-
- spdAux::RequestRefresh
-}
-proc Solid::examples::TreeAssignationEccentricColumn2Da {args} {
- Kratos::ResetModel
-}
-proc Solid::examples::TreeAssignationEccentricColumn2D {args} {
- Kratos::ResetModel
-}
diff --git a/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.geo b/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.geo
deleted file mode 100644
index 59e6badc1..000000000
Binary files a/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.geo and /dev/null differ
diff --git a/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.prj b/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.prj
deleted file mode 100644
index 29a1ac92a..000000000
--- a/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.prj
+++ /dev/null
@@ -1,31 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- 10 12
- 1 1
- 6 5
-
-
- 4 6 7 25 35
- 1x5
- 4x4 2
-
-
- 2:9
- 2x8
- 1 3 1 3 1 3 1 3 1 3 1 3 1 3 1 3
-
-
-
-
diff --git a/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.vv b/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.vv
deleted file mode 100644
index 97c55a377..000000000
--- a/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.vv
+++ /dev/null
@@ -1,37 +0,0 @@
-BeginZE /home/cpuigbo/GiDInterface/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.vv
- x -3.94726991653442383 5.74480867385864258
- y 6.39163064956665039 -1.58742785453796387
- z -2.95716428756713867 3.97514200210571289
- e 2.76385402679443359
- v -0.0793274012290671182 0.899682501223218134 0.174501511325530018
- r 0.392208881101695939
- m -0.679758787155151367 -0.279621034860610962 0.678041458129882812 0 -0.00585686462000012398 0.926512777805328369 0.37621772289276123 0 -0.733412444591522217 0.251766085624694824 -0.631442904472351074 0 0 0 0 1
- c 0.508988738059997559 1.8859550952911377 -0.508988738059997559
- pd 0
- pno 0
- pfo 0
- pf 4
- pv 0
- NowUse 0
- DrawingType 1
- LightVector 90 90 150 0
- OGLShadow(UseShadows) 0
- OGLShadow(RenderMode) RenderNice
- OGLShadow(ShadowBias) -0.002
- OGLShadow(AmbientShadows) 1
- OGLShadow(UseFBO) 0
- OGLShadow(FBOSize) 2048
- OGLShadow(DimmedLightFactor) 0.02
- OGLStereo(UseStereo) 0
- OGLStereo(RelativeEyeDistance) 1
- OGLStereo(FlipEyes) 0
- OGLStereo(StereoMode) AnaglyphColors
- OGLStereo(EyeDistance) 0.075
- OGLStereo(LeftEyeDistance) 1 0 0 1
- OGLStereo(RightEyeDistance) 0 1 1 1
-EndZE /home/cpuigbo/GiDInterface/kratos.gid/apps/Solid/examples/EccentricColumn3D.gid/EccentricColumn3D.vv
-
-BeginMirror
- Mirror 0 Angle 0.0 AngleFake -15.0 SizeFactor 2.0 HeightOffset 0.25 Color #d9e5f24d Backlight Off EdgeStyle No Type Scene DrawMode Mirror
-EndMirror
-
diff --git a/kratos.gid/apps/Solid/examples/NotchedBeam.tcl b/kratos.gid/apps/Solid/examples/NotchedBeam.tcl
deleted file mode 100644
index acd3a3688..000000000
--- a/kratos.gid/apps/Solid/examples/NotchedBeam.tcl
+++ /dev/null
@@ -1,164 +0,0 @@
-
-proc ::Solid::examples::NotchedBeam {args} {
- if {![Kratos::IsModelEmpty]} {
- set txt "We are going to draw the example geometry.\nDo you want to lose your previous work?"
- set retval [tk_messageBox -default ok -icon question -message $txt -type okcancel]
- if { $retval == "cancel" } { return }
- }
- DrawNotchedBeamGeometry$::Model::SpatialDimension
- TreeAssignationNotchedBeam$::Model::SpatialDimension
-
- GiD_Process 'Redraw
- GidUtils::UpdateWindow GROUPS
- GidUtils::UpdateWindow LAYER
- GiD_Process 'Zoom Frame
-}
-
-
-# Draw Geometry
-proc Solid::examples::DrawNotchedBeamGeometry3D {args} {
- Kratos::ResetModel
-}
-proc Solid::examples::DrawNotchedBeamGeometry2D {args} {
- Kratos::ResetModel
- set dir [apps::getMyDir "Solid"]
- set problemfile [file join $dir examples NotchedBeam2D.gid]
- GiD_Process Mescape Files InsertGeom $problemfile
-}
-proc Solid::examples::DrawNotchedBeamGeometry2Da {args} {
- Kratos::ResetModel
-}
-# Mesh sizes
-
-
-# Tree assign
-proc Solid::examples::TreeAssignationNotchedBeam3D {args} {
- Kratos::ResetModel
-}
-proc Solid::examples::TreeAssignationNotchedBeam2D {args} {
- set nd $::Model::SpatialDimension
- set root [customlib::GetBaseRoot]
-
- set condtype line
- if {$nd eq "3D"} { set condtype surface }
-
- # Quasi-static solution strategy set
- spdAux::SetValueOnTreeItem v "Quasi-static" SLSoluType
- spdAux::SetValueOnTreeItem v "Non-linear" SLAnalysisType
-
- # Time parameters
- set time_parameters [list EndTime 200 DeltaTime 1]
- set time_params_path [spdAux::getRoute SLTimeParameters]
- foreach {name value} $time_parameters {
- set node [$root selectNodes "$time_params_path/value\[@n = '$name'\]"]
- if {$node ne ""} {
- $node setAttribute v $value
- } else {
- W "Couldn't find $name - Check example script"
- }
- }
-
- # Solid Parts
- set solidParts [spdAux::getRoute "SLParts"]
- set solidPartsNode [customlib::AddConditionGroupOnXPath $solidParts Solid]
- $solidPartsNode setAttribute ov surface
- set props [list Element SmallDisplacementElement$nd ConstitutiveLaw SmallStrainPlaneStress2DLaw.SimoJuExponentialDamageModel DENSITY 2500 YOUNG_MODULUS 2.8e10 POISSON_RATIO 0.1 THICKNESS 0.1 DAMAGE_THRESHOLD 19.1237 STRENGTH_RATIO 10.9375 FRACTURE_ENERGY 140]
- foreach {prop val} $props {
- set propnode [$solidPartsNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- set solidConditions [spdAux::getRoute "SLNodalConditions"]
-
- # Solid Constraint
- GiD_Groups clone ConstraintXY Total
- GiD_Groups edit parent Total ConstraintXY
- spdAux::AddIntervalGroup ConstraintXY "ConstraintXY//Total"
- GiD_Groups edit state "ConstraintXY//Total" hidden
- set solidConstraintXY {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintXYNode [customlib::AddConditionGroupOnXPath $solidConstraintXY "ConstraintXY//Total"]
- $solidConstraintXYNode setAttribute ov line
- set props [list selector_component_X ByValue value_component_X 0.0 selector_component_Y ByValue value_component_Y 0.0 selector_component_Z Not Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintXYNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Solid Constraint
- GiD_Groups clone ConstraintY Total
- GiD_Groups edit parent Total ConstraintY
- spdAux::AddIntervalGroup ConstraintY "ConstraintY//Total"
- GiD_Groups edit state "ConstraintY//Total" hidden
- set solidConstraintY {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintYNode [customlib::AddConditionGroupOnXPath $solidConstraintY "ConstraintY//Total"]
- $solidConstraintYNode setAttribute ov line
- set props [list selector_component_X Not selector_component_Y Not selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintYNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Solid Loads
- GiD_Groups clone LoadY Total
- GiD_Groups edit parent Total LoadY
- spdAux::AddIntervalGroup LoadY "LoadY//Total"
- GiD_Groups edit state "LoadY//Total" hidden
- set solidLoadY "container\[@n='Solid'\]/container\[@n='Loads'\]/condition\[@n='Load$nd'\]"
- set solidLoadYNode [customlib::AddConditionGroupOnXPath $solidLoadY "LoadY//Total"]
- $solidLoadYNode setAttribute ov line
- set props [list ByFunction Yes function_modulus "3000*t" direction 0.0,-1.0,0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidLoadYNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone LoadYY Total
- GiD_Groups edit parent Total LoadYY
- spdAux::AddIntervalGroup LoadYY "LoadYY//Total"
- GiD_Groups edit state "LoadYY//Total" hidden
- set solidLoadYY "container\[@n='Solid'\]/container\[@n='Loads'\]/condition\[@n='Load$nd'\]"
- set solidLoadYYNode [customlib::AddConditionGroupOnXPath $solidLoadYY "LoadYY//Total"]
- $solidLoadYYNode setAttribute ov line
- set props [list ByFunction Yes function_modulus "30000*t" direction 0.0,-1.0,0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidLoadYYNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Parallelism
- set time_parameters [list ParallelSolutionType OpenMP OpenMPNumberOfThreads 4]
- set time_params_path [spdAux::getRoute "Parallelization"]
- foreach {n v} $time_parameters {
- [$root selectNodes "$time_params_path/value\[@n = '$n'\]"] setAttribute v $v
- }
- # Output
- set output_parameters [list DAMAGE_VARIABLE Yes]
- set output_params_path [spdAux::getRoute "ElementResults"]
- foreach {n v} $output_parameters {
- [$root selectNodes "$output_params_path/value\[@n = '$n'\]"] setAttribute v $v
- }
- spdAux::RequestRefresh
-}
-proc Solid::examples::TreeAssignationNotchedBeam2Da {args} {
- Kratos::ResetModel
-}
diff --git a/kratos.gid/apps/Solid/examples/NotchedBeam2D.gid/NotchedBeam2D.geo b/kratos.gid/apps/Solid/examples/NotchedBeam2D.gid/NotchedBeam2D.geo
deleted file mode 100644
index 4ee2b07dd..000000000
Binary files a/kratos.gid/apps/Solid/examples/NotchedBeam2D.gid/NotchedBeam2D.geo and /dev/null differ
diff --git a/kratos.gid/apps/Solid/examples/NotchedBeam2D.gid/NotchedBeam2D.prj b/kratos.gid/apps/Solid/examples/NotchedBeam2D.gid/NotchedBeam2D.prj
deleted file mode 100644
index 0da43773f..000000000
--- a/kratos.gid/apps/Solid/examples/NotchedBeam2D.gid/NotchedBeam2D.prj
+++ /dev/null
@@ -1,25 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
- 21 24 27 30
- 1x4
- 3 2 4 5
-
-
- 3:5
- 1x3
- 1x3
-
-
-
-
diff --git a/kratos.gid/apps/Solid/examples/NotchedBeam2D.gid/NotchedBeam2D.vv b/kratos.gid/apps/Solid/examples/NotchedBeam2D.gid/NotchedBeam2D.vv
deleted file mode 100644
index b1e32bd49..000000000
--- a/kratos.gid/apps/Solid/examples/NotchedBeam2D.gid/NotchedBeam2D.vv
+++ /dev/null
@@ -1,37 +0,0 @@
-BeginZE /home/josep_maria/Desktop/damage/NotchedBeam2D.gid/NotchedBeam2D.vv
- x -0.387526094913482666 1.22752606868743896
- y 0.564327478408813477 -0.364327490329742432
- z -1.39298248291015625 1.39298248291015625
- e 0.464327484369277954
- v -0 -0 -8.74227765734758577e-08
- r -1
- m 1 -1.74845553146951715e-07 0 0 1.74845553146951715e-07 1 0 0 0 0 1 0 0 0 0 1
- c 0.419999986886978149 0.118095241487026215 0
- pd 0
- pno 0
- pfo 0
- pf 4
- pv 0
- NowUse 0
- DrawingType 1
- LightVector 90 90 150 0
- OGLShadow(UseShadows) 0
- OGLShadow(RenderMode) RenderNice
- OGLShadow(ShadowBias) -0.002
- OGLShadow(AmbientShadows) 1
- OGLShadow(UseFBO) 0
- OGLShadow(FBOSize) 2048
- OGLShadow(DimmedLightFactor) 0.02
- OGLStereo(UseStereo) 0
- OGLStereo(RelativeEyeDistance) 1
- OGLStereo(FlipEyes) 0
- OGLStereo(StereoMode) AnaglyphColors
- OGLStereo(EyeDistance) 0.075
- OGLStereo(LeftEyeDistance) 1 0 0 1
- OGLStereo(RightEyeDistance) 0 1 1 1
-EndZE /home/josep_maria/Desktop/damage/NotchedBeam2D.gid/NotchedBeam2D.vv
-
-BeginMirror
- Mirror 0 Angle 0.0 AngleFake -15.0 SizeFactor 2.0 HeightOffset 0.25 Color #d9e5f24d Backlight Off EdgeStyle No Type Scene DrawMode Mirror
-EndMirror
-
diff --git a/kratos.gid/apps/Solid/examples/StaticBeamLattice.gid/StaticBeamLattice.geo b/kratos.gid/apps/Solid/examples/StaticBeamLattice.gid/StaticBeamLattice.geo
deleted file mode 100644
index 5f3a05b9f..000000000
Binary files a/kratos.gid/apps/Solid/examples/StaticBeamLattice.gid/StaticBeamLattice.geo and /dev/null differ
diff --git a/kratos.gid/apps/Solid/examples/StaticBeamLattice.gid/StaticBeamLattice.prj b/kratos.gid/apps/Solid/examples/StaticBeamLattice.gid/StaticBeamLattice.prj
deleted file mode 100644
index d92ec5512..000000000
--- a/kratos.gid/apps/Solid/examples/StaticBeamLattice.gid/StaticBeamLattice.prj
+++ /dev/null
@@ -1,28 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- 1:6 18 27:32 100018
- 1x14
- 19 20 19 19 16 19 17 15x4 18 15 17
-
-
- 1:24 100001:100024 1000007:1000018 1000020:1000025
- 1x66
- 1x48 14x18
-
-
-
-
diff --git a/kratos.gid/apps/Solid/examples/StaticBeamLattice.gid/StaticBeamLattice.vv b/kratos.gid/apps/Solid/examples/StaticBeamLattice.gid/StaticBeamLattice.vv
deleted file mode 100644
index f545aaa7e..000000000
--- a/kratos.gid/apps/Solid/examples/StaticBeamLattice.gid/StaticBeamLattice.vv
+++ /dev/null
@@ -1,37 +0,0 @@
-BeginZE /home/jmaria/Desktop/StaticBeamLattice.gid/StaticBeamLattice.vv
- x -6.89991378784179688 6.89991378784179688
- y 15.3079414367675781 -4.42514467239379883
- z -20.6997413635253906 20.6997413635253906
- e 6.89991378784179688
- v 0.257072094239774285 -0.00642424184424369993 0.00395524515450007726
- r -0.966362780489641304
- m 0.999886155128479004 0.00434141699224710464 0.0144498627632856369 0 -0.0109473904594779015 0.867796599864959717 0.496798992156982422 0 -0.0103827305138111115 -0.496900618076324463 0.867745339870452881 0 0 0 0 1
- c 0 5.44139814376831055 0
- pd 0
- pno 0
- pfo 0
- pf 4
- pv 0
- NowUse 0
- DrawingType 0
- LightVector 90 90 150 0
- OGLShadow(UseShadows) 0
- OGLShadow(RenderMode) RenderNice
- OGLShadow(ShadowBias) -0.002
- OGLShadow(AmbientShadows) 1
- OGLShadow(UseFBO) 0
- OGLShadow(FBOSize) 2048
- OGLShadow(DimmedLightFactor) 0.02
- OGLStereo(UseStereo) 0
- OGLStereo(RelativeEyeDistance) 1
- OGLStereo(FlipEyes) 0
- OGLStereo(StereoMode) AnaglyphColors
- OGLStereo(EyeDistance) 0.075
- OGLStereo(LeftEyeDistance) 1 0 0 1
- OGLStereo(RightEyeDistance) 0 1 1 1
-EndZE /home/jmaria/Desktop/StaticBeamLattice.gid/StaticBeamLattice.vv
-
-BeginMirror
- Mirror 0 Angle 0.0 AngleFake -15.0 SizeFactor 2.0 HeightOffset 0.25 Color #d9e5f24d Backlight Off EdgeStyle No Type Scene DrawMode Mirror
-EndMirror
-
diff --git a/kratos.gid/apps/Solid/examples/StaticBeamLattice.tcl b/kratos.gid/apps/Solid/examples/StaticBeamLattice.tcl
deleted file mode 100644
index bffb42d84..000000000
--- a/kratos.gid/apps/Solid/examples/StaticBeamLattice.tcl
+++ /dev/null
@@ -1,204 +0,0 @@
-
-proc ::Solid::examples::StaticBeamLattice {args} {
- if {![Kratos::IsModelEmpty]} {
- set txt "We are going to draw the example geometry.\nDo you want to lose your previous work?"
- set retval [tk_messageBox -default ok -icon question -message $txt -type okcancel]
- if { $retval == "cancel" } { return }
- }
- DrawStaticBeamLatticeGeometry$::Model::SpatialDimension
- TreeAssignationStaticBeamLattice$::Model::SpatialDimension
-
- GiD_Process 'Redraw
- GidUtils::UpdateWindow GROUPS
- GidUtils::UpdateWindow LAYER
- GiD_Process 'Zoom Frame
-}
-
-
-# Draw Geometry
-proc Solid::examples::DrawStaticBeamLatticeGeometry3D {args} {
- Kratos::ResetModel
- set dir [apps::getMyDir "Solid"]
- set problemfile [file join $dir examples StaticBeamLattice.gid]
- GiD_Process Mescape Files InsertGeom $problemfile
-}
-proc Solid::examples::DrawStaticBeamLatticeGeometry2Da {args} {
- Kratos::ResetModel
-}
-proc Solid::examples::DrawStaticBeamLatticeGeometry2D {args} {
- Kratos::ResetModel
-}
-# Mesh sizes
-
-
-# Tree assign
-proc Solid::examples::TreeAssignationStaticBeamLattice3D {args} {
- set nd $::Model::SpatialDimension
- set root [customlib::GetBaseRoot]
-
- set condtype point
-
- # Static solution strategy set
- spdAux::SetValueOnTreeItem v "Quasi-static" SLSoluType
- spdAux::SetValueOnTreeItem v "StaticStep" SLScheme
-
- # Time parameters
- set time_parameters [list EndTime 1.6e2 DeltaTime 5.0]
- set time_params_path [spdAux::getRoute SLTimeParameters]
- foreach {name value} $time_parameters {
- set node [$root selectNodes "$time_params_path/value\[@n = '$name'\]"]
- if {$node ne ""} {
- $node setAttribute v $value
- } else {
- W "Couldn't find $name - Check example script"
- }
- }
-
- # Solid Parts
- set solidParts [spdAux::getRoute "SLParts"]
- set solidPartsNode [customlib::AddConditionGroupOnXPath $solidParts Wires]
- $solidPartsNode setAttribute ov line
- set props [list Element LargeDisplacementBeamElement3D ConstitutiveLaw UserDefined3D DENSITY 2650 CROSS_SECTION_AREA 7.85e-4 YOUNG_MODULUS 83.0e15 INERTIA_X 4.9E-6 INERTIA_Y 4.9E-6]
- foreach {prop val} $props {
- set propnode [$solidPartsNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- set solidPartsNode [customlib::AddConditionGroupOnXPath $solidParts Connectors]
- $solidPartsNode setAttribute ov line
- set props [list Element LargeDisplacementBeamElement3D ConstitutiveLaw UserDefined3D DENSITY 2650 CROSS_SECTION_AREA 7.85e-4 YOUNG_MODULUS 83.0e15 INERTIA_X 1.0E-6 INERTIA_Y 1.0E-6]
- foreach {prop val} $props {
- set propnode [$solidPartsNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- spdAux::RequestRefresh
- set solidConditions [spdAux::getRoute "SLNodalConditions"]
-
- # Solid Constraint
- GiD_Groups clone Displacement1 Total
- GiD_Groups edit parent Total Displacement1
- spdAux::AddIntervalGroup Displacement1 "Displacement1//Total"
- GiD_Groups edit state "Displacement1//Total" hidden
- set solidConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintNode [customlib::AddConditionGroupOnXPath $solidConstraint "Displacement1//Total"]
- $solidConstraintNode setAttribute ov point
- set props [list selector_component_X ByValue value_component_X 0.0 selector_component_Y ByValue value_component_Y 0.0 selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone Displacement2 Total
- GiD_Groups edit parent Total Displacement2
- spdAux::AddIntervalGroup Displacement2 "Displacement2//Total"
- GiD_Groups edit state "Displacement2//Total" hidden
- set solidConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintNode [customlib::AddConditionGroupOnXPath $solidConstraint "Displacement2//Total"]
- $solidConstraintNode setAttribute ov point
- set props [list selector_component_X Not selector_component_Y ByFunction function_component_Y "1.0e-2*t" selector_component_Z Not Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone Displacement3 Total
- GiD_Groups edit parent Total Displacement3
- spdAux::AddIntervalGroup Displacement3 "Displacement3//Total"
- GiD_Groups edit state "Displacement3//Total" hidden
- set solidConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintNode [customlib::AddConditionGroupOnXPath $solidConstraint "Displacement3//Total"]
- $solidConstraintNode setAttribute ov point
- set props [list selector_component_X ByValue value_component_X 0.0 selector_component_Y ByValue value_component_Y 0.0 selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone Displacement4 Total
- GiD_Groups edit parent Total Displacement4
- spdAux::AddIntervalGroup Displacement4 "Displacement4//Total"
- GiD_Groups edit state "Displacement4//Total" hidden
- set solidConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintNode [customlib::AddConditionGroupOnXPath $solidConstraint "Displacement4//Total"]
- $solidConstraintNode setAttribute ov point
- set props [list selector_component_X ByValue value_component_X 0.0 selector_component_Y ByFunction function_component_Y "1.0e-2*t" selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone Displacement5 Total
- GiD_Groups edit parent Total Displacement5
- spdAux::AddIntervalGroup Displacement5 "Displacement5//Total"
- GiD_Groups edit state "Displacement5//Total" hidden
- set solidConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintNode [customlib::AddConditionGroupOnXPath $solidConstraint "Displacement5//Total"]
- $solidConstraintNode setAttribute ov point
- set props [list selector_component_X Not value_component_X 0.0 selector_component_Y ByValue value_component_Y 0.0 selector_component_Z Not Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- GiD_Groups clone Displacement6 Total
- GiD_Groups edit parent Total Displacement6
- spdAux::AddIntervalGroup Displacement6 "Displacement6//Total"
- GiD_Groups edit state "Displacement6//Total" hidden
- set solidConstraint {container[@n='Solid']/container[@n='Boundary Conditions']/condition[@n='DISPLACEMENT']}
- set solidConstraintNode [customlib::AddConditionGroupOnXPath $solidConstraint "Displacement6//Total"]
- $solidConstraintNode setAttribute ov point
- set props [list selector_component_X Not selector_component_Y ByValue value_component_Y 0.0 selector_component_Z ByValue value_component_Z 0.0 Interval Total]
- foreach {prop val} $props {
- set propnode [$solidConstraintNode selectNodes "./value\[@n = '$prop'\]"]
- if {$propnode ne "" } {
- $propnode setAttribute v $val
- } else {
- W "Warning - Couldn't find property Solid $prop"
- }
- }
-
- # Parallelism
- set time_parameters [list ParallelSolutionType OpenMP OpenMPNumberOfThreads 4]
- set time_params_path [spdAux::getRoute "Parallelization"]
- foreach {n v} $time_parameters {
- [$root selectNodes "$time_params_path/value\[@n = '$n'\]"] setAttribute v $v
- }
-
-
- spdAux::RequestRefresh
-}
-proc Solid::examples::TreeAssignationStaticBeamLattice2Da {args} {
- Kratos::ResetModel
-}
-proc Solid::examples::TreeAssignationStaticBeamLattice2D {args} {
- Kratos::ResetModel
-}
diff --git a/kratos.gid/apps/Solid/examples/examples.tcl b/kratos.gid/apps/Solid/examples/examples.tcl
deleted file mode 100644
index 046f1c732..000000000
--- a/kratos.gid/apps/Solid/examples/examples.tcl
+++ /dev/null
@@ -1,41 +0,0 @@
-namespace eval Solid::examples {
-
-}
-
-proc Solid::examples::Init { } {
- uplevel #0 [list source [file join $::Solid::dir examples DynamicBeam.tcl]]
- uplevel #0 [list source [file join $::Solid::dir examples CircularTank.tcl]]
- uplevel #0 [list source [file join $::Solid::dir examples EccentricColumn.tcl]]
- uplevel #0 [list source [file join $::Solid::dir examples DynamicRod.tcl]]
- uplevel #0 [list source [file join $::Solid::dir examples NotchedBeam.tcl]]
- uplevel #0 [list source [file join $::Solid::dir examples StaticBeamLattice.tcl]]
-}
-
-proc Solid::examples::UpdateMenus3D { } {
- set menu_id 7
- GiDMenu::InsertOption "Kratos" [list "DynamicBeam" ] [incr menu_id] PRE [list ::Solid::examples::DynamicBeam] "" "" insertbefore =
- GiDMenu::InsertOption "Kratos" [list "CircularTank" ] [incr menu_id] PRE [list ::Solid::examples::CircularTank] "" "" insertbefore =
- GiDMenu::InsertOption "Kratos" [list "EccentricColumn" ] [incr menu_id] PRE [list ::Solid::examples::EccentricColumn] "" "" insertbefore =
- GiDMenu::InsertOption "Kratos" [list "DynamicRod" ] [incr menu_id] PRE [list ::Solid::examples::DynamicRod] "" "" insertbefore =
- GiDMenu::InsertOption "Kratos" [list "StaticBeamLattice" ] [incr menu_id] PRE [list ::Solid::examples::StaticBeamLattice] "" "" insertbefore =
- GiDMenu::InsertOption "Kratos" [list "---"] [incr menu_id] PRE "" "" "" insertbefore =
- GiDMenu::UpdateMenus
-}
-
-proc Solid::examples::UpdateMenus2D { } {
- set menu_id 7
- GiDMenu::InsertOption "Kratos" [list "NotchedBeam" ] [incr menu_id] PRE [list ::Solid::examples::NotchedBeam] "" "" insertbefore =
- GiDMenu::InsertOption "Kratos" [list "DynamicRod" ] [incr menu_id] PRE [list ::Solid::examples::DynamicRod] "" "" insertbefore =
- GiDMenu::InsertOption "Kratos" [list "---"] [incr menu_id] PRE "" "" "" insertbefore =
- GiDMenu::UpdateMenus
-}
-
-proc Solid::examples::UpdateMenus2Da { } {
- set menu_id 7
- GiDMenu::InsertOption "Kratos" [list "CircularTank" ] [incr menu_id] PRE [list ::Solid::examples::CircularTank] "" "" insertbefore =
- GiDMenu::InsertOption "Kratos" [list "---"] [incr menu_id] PRE "" "" "" insertbefore =
- GiDMenu::UpdateMenus
-}
-
-
-Solid::examples::Init
diff --git a/kratos.gid/apps/Solid/images/2D.png b/kratos.gid/apps/Solid/images/2D.png
deleted file mode 100644
index b7ea880e0..000000000
Binary files a/kratos.gid/apps/Solid/images/2D.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/2Da.png b/kratos.gid/apps/Solid/images/2Da.png
deleted file mode 100644
index 177ed86fc..000000000
Binary files a/kratos.gid/apps/Solid/images/2Da.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/3D.png b/kratos.gid/apps/Solid/images/3D.png
deleted file mode 100644
index 6b418ad8e..000000000
Binary files a/kratos.gid/apps/Solid/images/3D.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/analysis_type.png b/kratos.gid/apps/Solid/images/Black/analysis_type.png
deleted file mode 100644
index e9518e1c7..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/analysis_type.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/beam_example.png b/kratos.gid/apps/Solid/images/Black/beam_example.png
deleted file mode 100644
index a63274eab..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/beam_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/bodies.png b/kratos.gid/apps/Solid/images/Black/bodies.png
deleted file mode 100644
index d25725f10..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/bodies.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/boundaryConditions.png b/kratos.gid/apps/Solid/images/Black/boundaryConditions.png
deleted file mode 100644
index 7a53439e5..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/boundaryConditions.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/cancelProcess.png b/kratos.gid/apps/Solid/images/Black/cancelProcess.png
deleted file mode 100644
index 6f0580957..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/cancelProcess.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/column_example.png b/kratos.gid/apps/Solid/images/Black/column_example.png
deleted file mode 100644
index c79c11f1e..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/column_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/contactStrategy.png b/kratos.gid/apps/Solid/images/Black/contactStrategy.png
deleted file mode 100644
index e5fec1056..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/contactStrategy.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/data.png b/kratos.gid/apps/Solid/images/Black/data.png
deleted file mode 100644
index 0a9012afb..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/data.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/doRestart.png b/kratos.gid/apps/Solid/images/Black/doRestart.png
deleted file mode 100644
index 4f5a443ac..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/doRestart.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/folder.png b/kratos.gid/apps/Solid/images/Black/folder.png
deleted file mode 100644
index 9b967fc38..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/folder.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/groupCreated.png b/kratos.gid/apps/Solid/images/Black/groupCreated.png
deleted file mode 100644
index f174a291e..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/groupCreated.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/linear_solver.png b/kratos.gid/apps/Solid/images/Black/linear_solver.png
deleted file mode 100644
index 80f0f7307..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/linear_solver.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/meshingStrategies.png b/kratos.gid/apps/Solid/images/Black/meshingStrategies.png
deleted file mode 100644
index 194b27976..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/meshingStrategies.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/modelProperties.png b/kratos.gid/apps/Solid/images/Black/modelProperties.png
deleted file mode 100644
index 5bd3d0c2c..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/modelProperties.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/notched_example.png b/kratos.gid/apps/Solid/images/Black/notched_example.png
deleted file mode 100644
index f1237083b..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/notched_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/parallel_type.png b/kratos.gid/apps/Solid/images/Black/parallel_type.png
deleted file mode 100644
index 32ddaae50..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/parallel_type.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/rod_example.png b/kratos.gid/apps/Solid/images/Black/rod_example.png
deleted file mode 100644
index aba87579f..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/rod_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/runSimulation.png b/kratos.gid/apps/Solid/images/Black/runSimulation.png
deleted file mode 100644
index 37a16063a..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/runSimulation.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/seeResults.png b/kratos.gid/apps/Solid/images/Black/seeResults.png
deleted file mode 100644
index 0137561eb..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/seeResults.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/select.png b/kratos.gid/apps/Solid/images/Black/select.png
deleted file mode 100644
index 5e245deeb..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/select.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/setLoad.png b/kratos.gid/apps/Solid/images/Black/setLoad.png
deleted file mode 100644
index 066f81048..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/setLoad.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/setUnits.png b/kratos.gid/apps/Solid/images/Black/setUnits.png
deleted file mode 100644
index f9d191505..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/setUnits.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/sheets.png b/kratos.gid/apps/Solid/images/Black/sheets.png
deleted file mode 100644
index d1d70413c..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/sheets.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/solid.png b/kratos.gid/apps/Solid/images/Black/solid.png
deleted file mode 100644
index 29241370a..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/solid.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/solvers.png b/kratos.gid/apps/Solid/images/Black/solvers.png
deleted file mode 100644
index 72773b5db..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/solvers.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/tank_example.png b/kratos.gid/apps/Solid/images/Black/tank_example.png
deleted file mode 100644
index ae08e734a..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/tank_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/timeIntervals.png b/kratos.gid/apps/Solid/images/Black/timeIntervals.png
deleted file mode 100644
index 5555fa5d7..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/timeIntervals.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/timeParameters.png b/kratos.gid/apps/Solid/images/Black/timeParameters.png
deleted file mode 100644
index 2400bd6a5..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/timeParameters.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/tree.png b/kratos.gid/apps/Solid/images/Black/tree.png
deleted file mode 100644
index c3839cc21..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/tree.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/Black/view.png b/kratos.gid/apps/Solid/images/Black/view.png
deleted file mode 100644
index 84569e82d..000000000
Binary files a/kratos.gid/apps/Solid/images/Black/view.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/analysis_type.png b/kratos.gid/apps/Solid/images/analysis_type.png
deleted file mode 100644
index cdb4a00a4..000000000
Binary files a/kratos.gid/apps/Solid/images/analysis_type.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/beam_example.png b/kratos.gid/apps/Solid/images/beam_example.png
deleted file mode 100644
index ceaadf8df..000000000
Binary files a/kratos.gid/apps/Solid/images/beam_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/column_example.png b/kratos.gid/apps/Solid/images/column_example.png
deleted file mode 100644
index 7be554b56..000000000
Binary files a/kratos.gid/apps/Solid/images/column_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/conditions/arrow.msh b/kratos.gid/apps/Solid/images/conditions/arrow.msh
deleted file mode 100644
index 1b1accda0..000000000
--- a/kratos.gid/apps/Solid/images/conditions/arrow.msh
+++ /dev/null
@@ -1,53 +0,0 @@
-MESH dimension 3 ElemType Triangle Nnode 3
-Coordinates
- 1 1 0 0
- 2 0.625 -0.0999999958 3.47613295e-08
- 3 0.625 0.0999999958 3.47613296e-08
- 4 0.625 0.07071064 0.0707107146
- 5 0.625 -0.07071064 0.0707107146
- 6 0.625 -0.0707106906 -0.0707106655
- 7 0.625 0.0707106906 -0.0707106655
- 8 0.625 0 0.1
- 9 0.625 2.32452946e-16 -0.1
- 10 0.625 -0.2 2.34324128e-10
- 11 0.625 0.141421356 -0.141421356
- 12 0.625 0.141421357 0.141421356
- 13 0.625 -0.141421356 -0.141421356
- 14 0.625 -0.141421356 0.141421356
- 15 0.625 0 -0.2
- 16 0.625 0 0.2
- 17 0.625 0.2 -2.31773376e-10
- 18 0 0.0707106781 -0.0707106782
- 19 0 -0.0707106781 0.0707106782
- 20 0 -0.1 1.1713931e-10
- 21 0 -0.0707106781 -0.0707106782
- 22 0 4.38538095e-14 -0.1
- 23 0 0.0707106783 0.070710678
- 24 0 0.1 -1.15863951e-10
- 25 0 0 0.1
-End Coordinates
-
-Elements
-1 1 15 13
-2 1 13 10
-3 1 10 14
-4 1 14 16
-5 1 16 12
-6 1 12 17
-7 1 17 11
-8 1 11 15
-End Elements
-MESH dimension 3 ElemType Quadrilateral Nnode 4
-Coordinates
-End Coordinates
-
-Elements
-9 8 4 23 25
-10 4 3 24 23
-11 3 7 18 24
-12 7 9 22 18
-13 25 19 5 8
-14 19 20 2 5
-15 20 21 6 2
-16 21 22 9 6
-End Elements
diff --git a/kratos.gid/apps/Solid/images/conditions/displacement.png b/kratos.gid/apps/Solid/images/conditions/displacement.png
deleted file mode 100644
index 0760c9778..000000000
Binary files a/kratos.gid/apps/Solid/images/conditions/displacement.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/conditions/selfweight.msh b/kratos.gid/apps/Solid/images/conditions/selfweight.msh
deleted file mode 100644
index 7d29f3f3a..000000000
--- a/kratos.gid/apps/Solid/images/conditions/selfweight.msh
+++ /dev/null
@@ -1,38 +0,0 @@
-MESH dimension 3 ElemType Quadrilateral Nnode 4
-Coordinates
- 1 1 -1 0
- 2 0.7 -0.7 1.8
- 3 1 1 0
- 4 -1 -1 0
- 5 0.0866025404 -0.05 1.8
- 6 -0 -0.1 1.8
- 7 0.0866025404 0.05 1.8
- 8 -0.0866025404 -0.05 1.8
- 9 0 0.1 1.8
- 10 -0.0866025404 0.05 1.8
- 11 0.0866025404 -0.05 2
- 12 -0 -0.1 2
- 13 0.0866025404 0.05 2
- 14 -0.0866025404 -0.05 2
- 15 0 0.1 2
- 16 -0.7 -0.7 1.8
- 17 0.7 0.7 1.8
- 18 -0.0866025404 0.05 2
- 19 -1 1 0
- 20 -0.7 0.7 1.8
-End Coordinates
-
-Elements
-1 1 3 19 4
-2 2 17 20 16
-3 19 20 16 4
-4 3 17 20 19
-5 1 2 17 3
-6 4 16 2 1
-7 15 18 10 9
-8 18 14 8 10
-9 14 12 6 8
-10 12 11 5 6
-11 11 13 7 5
-12 13 15 9 7
-End Elements
diff --git a/kratos.gid/apps/Solid/images/conditions/spring.msh b/kratos.gid/apps/Solid/images/conditions/spring.msh
deleted file mode 100644
index c975aff16..000000000
--- a/kratos.gid/apps/Solid/images/conditions/spring.msh
+++ /dev/null
@@ -1,430 +0,0 @@
-MESH dimension 3 ElemType Quadrilateral Nnode 4
-Coordinates
- 1 -0.473042225 0.0999999574 -0.000170817993
- 2 -0.451464987 0.0600173227 0.0355144756
- 3 -0.494619463 0.0599264309 -0.0357540131
- 4 -0.446077782 5.68310897e-05 0.044487789
- 5 -0.500006668 -5.67536713e-05 -0.0445743572
- 6 -0.451464987 -0.0599263528 0.0356674452
- 7 -0.494619463 -0.0600172453 -0.0356010438
- 8 -0.473042225 -0.09999988 8.42504496e-05
- 9 -0.412394709 -0.00113413693 -0.213688722
- 10 -0.409445417 -0.0592214763 -0.188921007
- 11 -0.433604215 0.0418324251 -0.252658609
- 12 -0.417370829 -0.116691352 -0.181507101
- 13 -0.455434501 -1.26195103e-05 -0.286058594
- 14 -0.463340162 -0.0573199773 -0.278729349
- 15 -0.460063768 -0.116378948 -0.255930246
- 16 -0.439268564 -0.158903572 -0.214478378
- 17 -0.0215911123 0.059917595 -0.0356329607
- 18 -0.0269718282 -5.67573843e-05 -0.0444817637
- 19 -7.38465577e-06 0.0999999537 -7.82245153e-05
- 20 -0.0606358858 -0.000948653155 0.213547484
- 21 -0.0636006475 -0.0591854703 0.189004673
- 22 -0.0215773059 -0.0600122514 -0.0355658013
- 23 -0.37337435 -0.171656331 -0.403069876
- 24 -0.373149861 -0.225228592 -0.363051339
- 25 0.021562222 0.0600288617 0.0356385962
- 26 -0.0556585388 -0.116653213 0.181606496
- 27 -0.039444155 0.0420875477 0.252545177
- 28 -0.393620517 -0.121087381 -0.453968101
- 29 0.0269570586 5.68273767e-05 0.0445803825
- 30 -0.3842853 -0.272577396 -0.340851864
- 31 7.38465577e-06 -0.0999999537 7.82245153e-05
- 32 0.0215771528 -0.0599314731 0.0357027744
- 33 -0.0176140688 0.000343668135 0.286029257
- 34 -0.0337644928 -0.15886067 0.214681884
- 35 -0.415740216 -0.164604661 -0.483835788
- 36 -0.42643651 -0.213064782 -0.462972731
- 37 -0.406366932 -0.317525081 -0.370950942
- 38 -0.00970907278 -0.0570286489 0.278847491
- 39 -0.425367901 -0.270085052 -0.426806687
- 40 -0.0129562193 -0.116110437 0.255986295
- 41 0.0394310248 0.0418312677 -0.252568382
- 42 0.0176001717 -1.30127824e-05 -0.285965809
- 43 0.0096946778 -0.057319981 -0.278636756
- 44 0.0606386744 -0.00112840734 -0.21359164
- 45 0.0129747094 -0.116385161 -0.255876988
- 46 0.0635894223 -0.0592214756 -0.188828406
- 47 0.0570944384 -0.119110851 -0.18777369
- 48 0.0337814184 -0.158905961 -0.214486298
- 49 -0.0996725106 -0.171754298 0.402851357
- 50 -0.0998904615 -0.22542601 0.362957017
- 51 -0.0887478591 -0.272799308 0.340840483
- 52 -0.0794294675 -0.121067189 0.453710987
- 53 -0.0573211882 -0.164489981 0.483741677
- 54 -0.0666616739 -0.317669264 0.371015636
- 55 -0.0466153205 -0.212990249 0.462968146
- 56 -0.047681739 -0.270135826 0.426891665
- 57 -0.338488232 -0.457382298 -0.42603612
- 58 -0.334977314 -0.411203146 -0.481037789
- 59 -0.353427848 -0.487914552 -0.400412032
- 60 -0.352511307 -0.357214916 -0.559383112
- 61 0.0794150955 -0.121092142 -0.453878125
- 62 0.0996575196 -0.171638636 -0.402972733
- 63 0.0998849765 -0.22522858 -0.362958736
- 64 0.0465983302 -0.213064786 -0.462880138
- 65 0.0572948107 -0.164604909 -0.483743612
- 66 0.0476651991 -0.270064767 -0.42675719
- 67 0.0938215271 -0.281554921 -0.351420516
- 68 -0.374968338 -0.532141031 -0.433146924
- 69 0.0666831242 -0.317534634 -0.370954973
- 70 -0.138061265 -0.411292895 0.480774053
- 71 -0.374688258 -0.39880045 -0.589090912
- 72 -0.134541177 -0.457593352 0.425854272
- 73 -0.388592327 -0.432869969 -0.562490944
- 74 -0.390088361 -0.486209383 -0.513177315
- 75 -0.119595378 -0.488150825 0.400318117
- 76 -0.120542192 -0.357198975 0.559113819
- 77 -0.0980587022 -0.532299625 0.43316728
- 78 -0.0983814859 -0.398696685 0.589014167
- 79 -0.0844658746 -0.432802896 0.562494008
- 80 -0.0829618617 -0.486255616 0.513226926
- 81 -0.299887102 -0.650760846 -0.421597649
- 82 -0.308932953 -0.688635726 -0.35691224
- 83 -0.326572534 -0.709502552 -0.348795823
- 84 -0.31002423 -0.614104467 -0.537520165
- 85 -0.173174882 -0.651128332 0.421096386
- 86 0.412396525 -0.000949502319 0.213676024
- 87 0.409434193 -0.059185474 0.189097266
- 88 -0.164071947 -0.688820081 0.35665983
- 89 0.446063012 -5.67610974e-05 -0.0443891702
- 90 0.451441779 0.0599315362 -0.0355039438
- 91 0.134546605 -0.457382274 -0.425943527
- 92 0.138053521 -0.411171996 -0.480954632
- 93 0.417376267 -0.116652992 0.181699004
- 94 0.120524351 -0.357225216 -0.559286613
- 95 0.451457534 -0.0600122552 -0.0354732078
- 96 -0.146442431 -0.709764408 0.348643443
- 97 0.128630875 -0.498887238 -0.404784827
- 98 0.433575511 0.0420855371 0.252738563
- 99 -0.163030166 -0.614081539 0.537199725
- 100 0.473012668 0.10000001 0.000113108598
- 101 -0.344560295 -0.753486953 -0.397872419
- 102 0.0844425131 -0.432869973 -0.562398351
- 103 0.0980810985 -0.532156977 -0.433138183
- 104 0.0829462731 -0.486192169 -0.513126121
- 105 0.0983480298 -0.398802175 -0.588999427
- 106 -0.330985601 -0.653639058 -0.579177229
- 107 -0.348317953 -0.673801888 -0.561076895
- 108 0.473042225 -0.0999999574 0.000170817993
- 109 0.494596229 0.0600123027 0.0357646773
- 110 -0.352868828 -0.720611868 -0.5016491
- 111 0.439269952 -0.158862031 0.214776764
- 112 -0.274900805 -0.820446363 -0.248531483
- 113 0.373363863 -0.171734839 0.402989248
- 114 0.373144379 -0.225426014 0.36304961
- 115 0.455395836 0.000355312578 0.286191626
- 116 0.499991881 5.68139203e-05 0.0446730962
- 117 0.494611984 -0.0599314881 0.0357954135
- 118 0.463325751 -0.0570287037 0.278940183
- 119 0.459481525 -0.117946413 0.259850196
- 120 -0.19817499 -0.821240456 0.247007149
- 121 0.384286575 -0.272799195 0.340933614
- 122 -0.28870327 -0.865818588 -0.189273912
- 123 -0.128472371 -0.753644554 0.397883775
- 124 0.393589959 -0.121076401 0.453901555
- 125 -0.142097664 -0.653552425 0.579086719
- 126 -0.268756751 -0.81693285 -0.379841954
- 127 -0.124752422 -0.673742894 0.56108214
- 128 -0.120153443 -0.720430402 0.501746642
- 129 -0.184280607 -0.866033948 0.189059171
- 130 -0.204276682 -0.816838585 0.379430693
- 131 -0.241621748 -0.895542188 -0.132166509
- 132 -0.231335348 -0.89542053 0.131725534
- 133 -0.302836178 -0.899902838 -0.210551459
- 134 0.406372461 -0.317674347 0.371110275
- 135 -0.262206008 -0.920097307 -0.0263224918
- 136 0.415690374 -0.164499826 0.483877335
- 137 -0.210821413 -0.920697436 0.0250368073
- 138 0.426419504 -0.212990334 0.463060801
- 139 0.424443109 -0.275353464 0.429527343
- 140 -0.170196318 -0.900247296 0.210355413
- 141 0.334972742 -0.411280534 0.480912204
- 142 0.338493663 -0.457593356 0.425946866
- 143 0.164101884 -0.688635698 -0.356819666
- 144 0.17314504 -0.650727979 -0.42154059
- 145 -0.283417205 -0.8680931 -0.449027016
- 146 0.353438022 -0.488152288 0.400411104
- 147 0.138673136 -0.729419174 -0.357349791
- 148 -0.311192642 -0.946607623 -0.284209629
- 149 0.163010619 -0.614116175 -0.537409528
- 150 0.35247749 -0.357216518 0.559291629
- 151 -0.302840309 -0.889384979 -0.456454205
- 152 -0.189667257 -0.867892778 0.448916899
- 153 -0.266906185 -0.990705034 0.0208958101
- 154 -0.236140511 -0.964443951 0.222073821
- 155 -0.236924796 -0.964723405 -0.222342918
- 156 -0.31021076 -0.930036797 -0.396189325
- 157 0.128487815 -0.753503113 -0.397846833
- 158 -0.206131501 -0.991011297 -0.021034935
- 159 0.124716888 -0.673801891 -0.560984302
- 160 -0.161866047 -0.946765629 0.284229888
- 161 0.120167395 -0.72059883 -0.501590978
- 162 -0.170251488 -0.889310267 0.456419446
- 163 0.142052542 -0.653643493 -0.579082364
- 164 0.37497559 -0.532309247 0.433255289
- 165 -0.162722433 -0.92948335 0.396684989
- 166 0.374629196 -0.398730009 0.589125558
- 167 0.299856433 -0.651121872 0.421226097
- 168 -0.269557034 -1.04009122 -0.0177181561
- 169 0.388568951 -0.432802991 0.562586621
- 170 0.389355802 -0.492391604 0.509606991
- 171 0.198136704 -0.820421257 -0.248493613
- 172 0.308962894 -0.688820085 0.356752424
- 173 -0.25039504 -1.01710589 -0.257607059
- 174 -0.203426714 -1.04012434 0.0181121216
- 175 -0.222705459 -1.01690784 0.257489987
- 176 0.184331567 -0.865818563 -0.189181356
- 177 0.309990774 -0.614100004 0.537356532
- 178 0.326589871 -0.709767156 0.348732078
- 179 -0.257065464 -1.0609955 -0.207917643
- 180 0.204275823 -0.816938024 -0.379717709
- 181 -0.265516969 -1.07904774 -0.107450925
- 182 -0.215798893 -1.06064012 0.20881164
- 183 0.274855286 -0.821231407 0.247127018
- 184 -0.207593148 -1.07913758 0.10743992
- 185 0.167191199 -0.915681151 -0.221671401
- 186 0.231407908 -0.895542307 -0.132037047
- 187 0.210831929 -0.920062444 -0.0262869274
- 188 0.241692108 -0.895421096 0.131857788
- 189 0.268747136 -0.816847195 0.379569335
- 190 0.288754234 -0.866033951 0.189151765
- 191 0.330916882 -0.653572052 0.579166873
- 192 0.344562759 -0.753655117 0.397960279
- 193 0.189622237 -0.868095684 -0.448922696
- 194 0.161853775 -0.946618482 -0.284169106
- 195 0.262211399 -0.920681391 0.0251523726
- 196 0.348282404 -0.673742979 0.561174716
- 197 0.170194531 -0.889384982 -0.456361612
- 198 0.353466204 -0.722983512 0.490511355
- 199 0.16282617 -0.930025323 -0.396125314
- 200 0.302835637 -0.900246128 0.210435879
- 201 0.206128648 -0.990705017 0.020988352
- 202 0.236113216 -0.964714087 -0.222229423
- 203 0.236885241 -0.964411558 0.222105725
- 204 0.283349894 -0.867897879 0.44896634
- 205 0.266903339 -0.991011301 -0.0209423415
- 206 0.203083676 -1.04701111 -0.0298928952
- 207 0.302783337 -0.889310327 0.456511992
- 208 0.311170489 -0.946772698 0.284294692
- 209 0.2226398 -1.01710589 -0.257514466
- 210 0.314417853 -0.926780626 0.381055841
- 211 0.250329367 -1.01690785 0.257582518
- 212 0.269606095 -1.04012325 0.0181882818
- 213 0.207526808 -1.07905034 -0.107399913
- 214 0.215971109 -1.06098421 -0.207847507
- 215 0.271839979 -1.06232372 0.194937089
- 216 0.265446036 -1.07913868 0.107495949
-End Coordinates
-
-Elements
-1 6 12 16 8
-2 4 10 12 6
-3 12 30 37 16
-4 10 24 30 12
-5 30 59 68 37
-6 24 57 59 30
-7 59 83 101 68
-8 57 82 83 59
-9 83 133 148 101
-10 82 122 133 83
-11 133 168 181 148
-12 122 153 168 133
-13 168 182 184 181
-14 153 175 182 168
-15 182 165 160 184
-16 175 162 165 182
-17 165 128 123 160
-18 162 127 128 165
-19 128 80 77 123
-20 127 79 80 128
-21 80 56 54 77
-22 79 55 56 80
-23 56 40 34 54
-24 55 38 40 56
-25 40 32 31 34
-26 38 29 32 40
-27 2 9 10 4
-28 1 11 9 2
-29 9 23 24 10
-30 11 28 23 9
-31 23 58 57 24
-32 28 60 58 23
-33 58 81 82 57
-34 60 84 81 58
-35 81 112 122 82
-36 84 126 112 81
-37 112 135 153 122
-38 126 131 135 112
-39 135 154 175 153
-40 131 132 154 135
-41 154 152 162 175
-42 132 130 152 154
-43 152 125 127 162
-44 130 99 125 152
-45 125 78 79 127
-46 99 76 78 125
-47 78 53 55 79
-48 76 52 53 78
-49 53 33 38 55
-50 52 27 33 53
-51 33 25 29 38
-52 27 19 25 33
-53 7 15 14 5
-54 8 16 15 7
-55 15 39 36 14
-56 16 37 39 15
-57 39 74 73 36
-58 37 68 74 39
-59 74 110 107 73
-60 68 101 110 74
-61 110 156 151 107
-62 101 148 156 110
-63 156 179 173 151
-64 148 181 179 156
-65 179 174 158 173
-66 181 184 174 179
-67 174 140 129 158
-68 184 160 140 174
-69 140 96 88 129
-70 160 123 96 140
-71 96 75 72 88
-72 123 77 75 96
-73 75 51 50 72
-74 77 54 51 75
-75 51 26 21 50
-76 54 34 26 51
-77 26 22 18 21
-78 34 31 22 26
-79 3 13 11 1
-80 5 14 13 3
-81 13 35 28 11
-82 14 36 35 13
-83 35 71 60 28
-84 36 73 71 35
-85 71 106 84 60
-86 73 107 106 71
-87 106 145 126 84
-88 107 151 145 106
-89 145 155 131 126
-90 151 173 155 145
-91 155 137 132 131
-92 173 158 137 155
-93 137 120 130 132
-94 158 129 120 137
-95 120 85 99 130
-96 129 88 85 120
-97 85 70 76 99
-98 88 72 70 85
-99 70 49 52 76
-100 72 50 49 70
-101 49 20 27 52
-102 50 21 20 49
-103 20 17 19 27
-104 21 18 17 20
-105 32 47 48 31
-106 29 46 47 32
-107 47 67 69 48
-108 46 63 67 47
-109 67 97 103 69
-110 63 91 97 67
-111 97 147 157 103
-112 91 143 147 97
-113 147 185 194 157
-114 143 176 185 147
-115 185 206 213 194
-116 176 201 206 185
-117 206 215 216 213
-118 201 211 215 206
-119 215 210 208 216
-120 211 207 210 215
-121 210 198 192 208
-122 207 196 198 210
-123 198 170 164 192
-124 196 169 170 198
-125 170 139 134 164
-126 169 138 139 170
-127 139 119 111 134
-128 138 118 119 139
-129 119 117 108 111
-130 118 116 117 119
-131 25 44 46 29
-132 19 41 44 25
-133 44 62 63 46
-134 41 61 62 44
-135 62 92 91 63
-136 61 94 92 62
-137 92 144 143 91
-138 94 149 144 92
-139 144 171 176 143
-140 149 180 171 144
-141 171 187 201 176
-142 180 186 187 171
-143 187 203 211 201
-144 186 188 203 187
-145 203 204 207 211
-146 188 189 204 203
-147 204 191 196 207
-148 189 177 191 204
-149 191 166 169 196
-150 177 150 166 191
-151 166 136 138 169
-152 150 124 136 166
-153 136 115 118 138
-154 124 98 115 136
-155 115 109 116 118
-156 98 100 109 115
-157 22 45 43 18
-158 31 48 45 22
-159 45 66 64 43
-160 48 69 66 45
-161 66 104 102 64
-162 69 103 104 66
-163 104 161 159 102
-164 103 157 161 104
-165 161 199 197 159
-166 157 194 199 161
-167 199 214 209 197
-168 194 213 214 199
-169 214 212 205 209
-170 213 216 212 214
-171 212 200 190 205
-172 216 208 200 212
-173 200 178 172 190
-174 208 192 178 200
-175 178 146 142 172
-176 192 164 146 178
-177 146 121 114 142
-178 164 134 121 146
-179 121 93 87 114
-180 134 111 93 121
-181 93 95 89 87
-182 111 108 95 93
-183 17 42 41 19
-184 18 43 42 17
-185 42 65 61 41
-186 43 64 65 42
-187 65 105 94 61
-188 64 102 105 65
-189 105 163 149 94
-190 102 159 163 105
-191 163 193 180 149
-192 159 197 193 163
-193 193 202 186 180
-194 197 209 202 193
-195 202 195 188 186
-196 209 205 195 202
-197 195 183 189 188
-198 205 190 183 195
-199 183 167 177 189
-200 190 172 167 183
-201 167 141 150 177
-202 172 142 141 167
-203 141 113 124 150
-204 142 114 113 141
-205 113 86 98 124
-206 114 87 86 113
-207 86 90 100 98
-208 87 89 90 86
-End Elements
diff --git a/kratos.gid/apps/Solid/images/lattice_example.png b/kratos.gid/apps/Solid/images/lattice_example.png
deleted file mode 100644
index 3ef6589e8..000000000
Binary files a/kratos.gid/apps/Solid/images/lattice_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/logo.png b/kratos.gid/apps/Solid/images/logo.png
deleted file mode 100644
index 1f9a4c9fb..000000000
Binary files a/kratos.gid/apps/Solid/images/logo.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/logo_beam.png b/kratos.gid/apps/Solid/images/logo_beam.png
deleted file mode 100644
index c832c4af9..000000000
Binary files a/kratos.gid/apps/Solid/images/logo_beam.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/notched_example.png b/kratos.gid/apps/Solid/images/notched_example.png
deleted file mode 100644
index ac4cab58c..000000000
Binary files a/kratos.gid/apps/Solid/images/notched_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/parallel_type.png b/kratos.gid/apps/Solid/images/parallel_type.png
deleted file mode 100644
index 21cd04c90..000000000
Binary files a/kratos.gid/apps/Solid/images/parallel_type.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/rod_example.png b/kratos.gid/apps/Solid/images/rod_example.png
deleted file mode 100644
index 8288474ff..000000000
Binary files a/kratos.gid/apps/Solid/images/rod_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/solid.png b/kratos.gid/apps/Solid/images/solid.png
deleted file mode 100644
index 23573a2e1..000000000
Binary files a/kratos.gid/apps/Solid/images/solid.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/solvers.png b/kratos.gid/apps/Solid/images/solvers.png
deleted file mode 100644
index 9ae99faee..000000000
Binary files a/kratos.gid/apps/Solid/images/solvers.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/tank_example.png b/kratos.gid/apps/Solid/images/tank_example.png
deleted file mode 100644
index 5e6d01ae5..000000000
Binary files a/kratos.gid/apps/Solid/images/tank_example.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/timeIntervals.png b/kratos.gid/apps/Solid/images/timeIntervals.png
deleted file mode 100644
index 1f167f758..000000000
Binary files a/kratos.gid/apps/Solid/images/timeIntervals.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/images/tree.png b/kratos.gid/apps/Solid/images/tree.png
deleted file mode 100644
index 51156d9a0..000000000
Binary files a/kratos.gid/apps/Solid/images/tree.png and /dev/null differ
diff --git a/kratos.gid/apps/Solid/python/RunSolid.py b/kratos.gid/apps/Solid/python/RunSolid.py
deleted file mode 100644
index ebc2c9f39..000000000
--- a/kratos.gid/apps/Solid/python/RunSolid.py
+++ /dev/null
@@ -1,8 +0,0 @@
-import KratosMultiphysics
-import KratosMultiphysics.ExternalSolversApplication
-import KratosMultiphysics.SolidMechanicsApplication
-import KratosMultiphysics.ConstitutiveModelsApplication
-import KratosMultiphysics.SolidMechanicsApplication.MainSolid as MainSolid
-
-MainSolid.Solution(KratosMultiphysics.Model()).Run()
-
diff --git a/kratos.gid/apps/Solid/start.tcl b/kratos.gid/apps/Solid/start.tcl
deleted file mode 100644
index 44f387284..000000000
--- a/kratos.gid/apps/Solid/start.tcl
+++ /dev/null
@@ -1,84 +0,0 @@
-namespace eval ::Solid {
- # Variable declaration
- variable dir
- variable attributes
- variable kratos_name
-}
-
-proc ::Solid::Init { } {
- # Variable initialization
- variable dir
- variable attributes
- variable kratos_name
- set kratos_name SolidMechanicsApplication
-
- set dir [apps::getMyDir "Solid"]
- set ::Model::ValidSpatialDimensions [list 2D 2Da 3D]
- set attributes [dict create]
-
- # Intervals
- dict set attributes UseIntervals 1
-
- # Restart available
- dict set attributes UseRestart 1
- # Allow to open the tree
- set ::spdAux::TreeVisibility 1
- LoadMyFiles
- #::spdAux::CreateDimensionWindow
-}
-
-proc ::Solid::LoadMyFiles { } {
- variable dir
- uplevel #0 [list source [file join $dir xml XmlController.tcl]]
- uplevel #0 [list source [file join $dir write write.tcl]]
- uplevel #0 [list source [file join $dir write validation.tcl]]
- uplevel #0 [list source [file join $dir write writeProjectParameters.tcl]]
- uplevel #0 [list source [file join $dir symbols symbols.tcl]]
- uplevel #0 [list source [file join $dir examples examples.tcl]]
-}
-
-proc ::Solid::GetAttribute {name} {
- variable attributes
- set value ""
- if {[dict exists $attributes $name]} {set value [dict get $attributes $name]}
- return $value
-}
-
-proc ::Solid::CustomToolbarItems { } {
- variable dir
- # Reset the left toolbar
- set Kratos::kratos_private(MenuItems) [dict create]
- set img_dir [file join $dir images]
- if {[gid_themes::GetCurrentTheme] eq "GiD_black"} {
- set img_dir [file join $img_dir Black]
- }
- Kratos::ToolbarAddItem "Model" [file join $img_dir "modelProperties.png"] [list -np- gid_groups_conds::open_conditions menu] [= "Define the model properties"]
- Kratos::ToolbarAddItem "Spacer" "" "" ""
- Kratos::ToolbarAddItem "Run" [file join $img_dir "runSimulation.png"] {Utilities Calculate} [= "Run the simulation"]
- Kratos::ToolbarAddItem "Output" [file join $img_dir "view.png"] [list -np- PWViewOutput] [= "View process info"]
- Kratos::ToolbarAddItem "Stop" [file join $img_dir "cancelProcess.png"] {Utilities CancelProcess} [= "Cancel process"]
- Kratos::ToolbarAddItem "Spacer" "" "" ""
- # Add examples
- if { $::Model::SpatialDimension eq "2Da" } {
- Kratos::ToolbarAddItem "Example" [file join $img_dir "tank_example.png"] [list -np- ::Solid::examples::CircularTank] [= "Example\nCircular water tank"]
- }
- if { $::Model::SpatialDimension eq "2D" } {
- Kratos::ToolbarAddItem "Example" [file join $img_dir "notched_example.png"] [list -np- ::Solid::examples::NotchedBeam] [= "Example\nNotched beam damage"]
- Kratos::ToolbarAddItem "Example" [file join $img_dir "rod_example.png"] [list -np- ::Solid::examples::DynamicRod] [= "Example\nDynamic rod pendulus"]
- }
- if { $::Model::SpatialDimension eq "3D" } {
- Kratos::ToolbarAddItem "Example" [file join $img_dir "beam_example.png"] [list -np- ::Solid::examples::DynamicBeam] [= "Example\nDynamic beam rotating"]
- Kratos::ToolbarAddItem "Example" [file join $img_dir "tank_example.png"] [list -np- ::Solid::examples::CircularTank] [= "Example\nCircular water tank"]
- Kratos::ToolbarAddItem "Example" [file join $img_dir "column_example.png"] [list -np- ::Solid::examples::EccentricColumn] [= "Example\nEccentric column"]
- Kratos::ToolbarAddItem "Example" [file join $img_dir "rod_example.png"] [list -np- ::Solid::examples::DynamicRod] [= "Example\nDynamic rod pendulus"]
- Kratos::ToolbarAddItem "Example" [file join $img_dir "lattice_example.png"] [list -np- ::Solid::examples::StaticBeamLattice] [= "Example\nStatic beam lattice"]
- }
- Kratos::ToolbarAddItem "Spacer" "" "" ""
-
-}
-
-proc ::Solid::CustomMenus { } {
- Solid::examples::UpdateMenus$::Model::SpatialDimension
-}
-
-::Solid::Init
diff --git a/kratos.gid/apps/Solid/symbols/symbols.tcl b/kratos.gid/apps/Solid/symbols/symbols.tcl
deleted file mode 100644
index 160590c70..000000000
--- a/kratos.gid/apps/Solid/symbols/symbols.tcl
+++ /dev/null
@@ -1,393 +0,0 @@
-package require gid_draw_opengl
-
-namespace eval Solid::symbols {
-}
-
-#to be used directly as symbol proc (to draw a condition as a 3D shape without take into account any direction to be oriented)
-#valuesList is unused, but necessary because it is automatically added when invokind the symbol proc
-#e.g
-proc Solid::symbols::draw_file_mesh { filename color_lines color_surfaces valuesList } {
- set full_filename [file join $Solid::dir $filename]
- if { [info procs gid_draw_opengl::create_opengl_list_from_file_mesh] != "" } {
- set list_id [gid_draw_opengl::create_opengl_list_from_file_mesh $full_filename $color_lines $color_surfaces ""]
- } else {
- set list_id [Solid::symbols::create_opengl_list_from_file_mesh $full_filename $color_lines $color_surfaces ""]
- }
- return $list_id
-}
-
-#valuesList will be like: {ByFunction No {}} {modulus 9.81 m/s^2} {direction 0.0,-1.0,0.0 {}} {compound_assignment direct {}} {Interval Total {}}
-proc Solid::symbols::draw_selfweight { valuesList } {
- set full_filename [file join $Solid::dir images conditions selfweight.msh]
- set color_lines black
- set color_surfaces blue
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set modulus $data(modulus)
- if { $modulus == 0 } {
- #the value could be set by other function field, intead as modulus, consider like positive modulus
- set modulus 1.0
- }
- set direction [split $data(direction) ,]
- if { [llength $direction] == 2 } {
- lappend direction 0.0
- }
- set opposite_direction [math::linearalgebra::scale_vect -1.0 $direction]
- if { [info procs gid_draw_opengl::create_opengl_list_from_file_mesh_oriented_z_direction] != "" } {
- set list_id [gid_draw_opengl::create_opengl_list_from_file_mesh_oriented_z_direction $full_filename $color_lines $color_surfaces $opposite_direction]
- } else {
- #to allow use it before the proc is available in next GiD 14.1.1d
- set list_id [Solid::symbols::create_opengl_list_from_file_mesh_oriented_z_direction $full_filename $color_lines $color_surfaces $opposite_direction]
- }
- return $list_id
-}
-
-#valuesList will be like: {ByFunction No {}} {modulus 2.0 N} {direction 1.0,0.0,0.0 {}} {compound_assignment direct {}} {Interval Total {}}
-proc Solid::symbols::draw_load { valuesList } {
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set modulus $data(modulus)
- if { $modulus == 0 } {
- #the value could be set by other function field, intead as modulus, consider like positive modulus
- set modulus 1.0
- }
- set direction [split $data(direction) ,]
- if { [llength $direction] == 2 } {
- lappend direction 0.0
- }
- set force [MathUtils::ScalarByVectorProd $modulus $direction]
- set x_axis [math::linearalgebra::unitLengthVector $force]
- lassign [MathUtils::CalculateLocalAxisFromXAxis $x_axis] y_axis z_axis
- set transform_matrix [concat $x_axis 0 $y_axis 0 $z_axis 0 0 0 0 1]
- if { [info procs gid_draw_opengl::create_opengl_list_drawing] != "" } {
- set list_id [gid_draw_opengl::create_opengl_list_drawing gid_draw_opengl::draw_point_load $transform_matrix]
- } else {
- #to allow use it before the proc is available in next GiD 14.1.1d
- set list_id [Solid::symbols::create_opengl_list_drawing Solid::symbols::draw_point_load $transform_matrix]
- }
- return $list_id
-}
-
-proc Solid::symbols::draw_arrow { valuesList } {
- set full_filename [file join $Solid::dir images conditions arrow.msh]
- set color_lines black
- set color_surfaces blue
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set modulus $data(modulus)
- if { $modulus == 0 } {
- #the value could be set by other function field, intead as modulus, consider like positive modulus
- set modulus 1.0
- }
- set direction [split $data(direction) ,]
- if { [llength $direction] == 2 } {
- lappend direction 0.0
- }
- set force [math::linearalgebra::scale_vect $modulus $direction]
- set x_axis [math::linearalgebra::unitLengthVector $force]
- lassign [MathUtils::CalculateLocalAxisFromXAxis $x_axis] y_axis z_axis
- set transform_matrix [concat $x_axis 0 $y_axis 0 $z_axis 0 0 0 0 1]
- if { [info procs gid_draw_opengl::create_opengl_list_from_file_mesh] != "" } {
- set list_id [gid_draw_opengl::create_opengl_list_from_file_mesh $full_filename $color_lines $color_surfaces $transform_matrix]
- } else {
- #to allow use it before the proc is available in next GiD 14.1.1d
- set list_id [Solid::symbols::create_opengl_list_from_file_mesh $full_filename $color_lines $color_surfaces $transform_matrix]
- }
- return $list_id
-}
-
-#valuesList will be like: {{ByFunction No {}} {value 4 Pa} {compound_assignment direct {}} {Interval Total {}}}
-proc Solid::symbols::draw_surface_pressure { valuesList } {
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set modulus $data(value)
- if { $modulus > 0 } {
- set load_local_direction [list 0 0 -1] ;#considered positive pointing oposite to local normal
- } elseif { $modulus < 0 } {
- set load_local_direction [list 0 0 1] ;#considered positive pointing oposite to local normal
- } else {
- #the value could be set by other function field, intead as modulus, consider like positive modulus
- set load_local_direction [list 0 0 -1]
- }
- set x_axis $load_local_direction
- lassign [MathUtils::CalculateLocalAxisFromXAxis $x_axis] y_axis z_axis
- set transform_matrix [concat $x_axis 0 $y_axis 0 $z_axis 0 0 0 0 1]
- if { [info procs gid_draw_opengl::create_opengl_list_drawing] != "" } {
- set list_id [gid_draw_opengl::create_opengl_list_drawing gid_draw_opengl::draw_point_load $transform_matrix]
- } else {
- #to allow use it before the proc is available in next GiD 14.1.1d
- set list_id [Solid::symbols::create_opengl_list_drawing Solid::symbols::draw_point_load $transform_matrix]
- }
- return $list_id
-}
-
-#draw_loads mean that is returning a dictionary but real draw is made native inside GiD based on this dict
-#in this case the XML declare orientation="loads", a special value to say GiD how to draw
-#valuesList will be like: {{ByFunction No {}} {value 4 Pa} {compound_assignment direct {}} {Interval Total {}}}
-#but to work well by now it is necessary to assign to surfaces the surface_Local_axes, else is drawn with wrong direction (eulerangles==NULL)
-proc Solid::symbols::draw_loads_surface_pressure { valuesList } {
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set modulus $data(value)
- if { $modulus > 0 } {
- set load_local_direction [list 0 0 -1] ;#considered positive pointing oposite to local normal
- } elseif { $modulus < 0 } {
- set load_local_direction [list 0 0 1] ;#considered positive pointing oposite to local normal
- } else {
- #the value could be set by other function field, intead as modulus, consider like positive modulus
- set load_local_direction [list 0 0 -1]
- }
- set dictionary [dict create load_type local load_vector $load_local_direction]
- return $dictionary
-}
-
-proc Solid::symbols::draw_moment { valuesList } {
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set modulus $data(modulus)
- if { $modulus == 0 } {
- #the value could be set by other function field, intead as modulus, consider like positive modulus
- set modulus 1.0
- }
- set direction [split $data(direction) ,]
- if { [llength $direction] == 2 } {
- lappend direction 0.0
- }
- set force [MathUtils::ScalarByVectorProd $modulus $direction]
- set x_axis [math::linearalgebra::unitLengthVector $force]
- lassign [MathUtils::CalculateLocalAxisFromXAxis $x_axis] y_axis z_axis
- set transform_matrix [concat $x_axis 0 $y_axis 0 $z_axis 0 0 0 0 1]
- if { [info procs gid_draw_opengl::create_opengl_list_drawing] != "" } {
- set list_id [gid_draw_opengl::create_opengl_list_drawing gid_draw_opengl::draw_point_momentum $transform_matrix]
- } else {
- #to allow use it before the proc is available in next GiD 14.1.1d
- set list_id [Solid::symbols::create_opengl_list_drawing Solid::symbols::draw_point_momentum $transform_matrix]
- }
- return $list_id
-}
-
-proc Solid::symbols::draw_spring { valuesList } {
- set full_filename [file join $Solid::dir images conditions spring.msh]
- set color_lines black
- set color_surfaces blue
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set modulus $data(modulus)
- if { $modulus == 0 } {
- #the value could be set by other function field, intead as modulus, consider like positive modulus
- set modulus 1.0
- }
- set direction [split $data(direction) ,]
- if { [llength $direction] == 2 } {
- lappend direction 0.0
- }
- set momentum [math::linearalgebra::scale_vect $modulus $direction]
- set x_axis [math::linearalgebra::unitLengthVector $momentum]
- lassign [MathUtils::CalculateLocalAxisFromXAxis $x_axis] y_axis z_axis
- set transform_matrix [concat $x_axis 0 $y_axis 0 $z_axis 0 0 0 0 1]
- if { [info procs gid_draw_opengl::create_opengl_list_from_file_mesh] != "" } {
- set list_id [gid_draw_opengl::create_opengl_list_from_file_mesh $full_filename $color_lines $color_surfaces $transform_matrix]
- } else {
- #to allow use it before the proc is available in next GiD 14.1.1d
- set list_id [Solid::symbols::create_opengl_list_from_file_mesh $full_filename $color_lines $color_surfaces $transform_matrix]
- }
- return $list_id
-}
-
-proc Solid::symbols::draw_surface_ballast { valuesList } {
- set full_filename [file join $Solid::dir images conditions spring.msh]
- set color_lines black
- set color_surfaces blue
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set modulus $data(value)
- if { $modulus > 0 } {
- set load_local_direction [list 0 0 1]
- } elseif { $modulus < 0 } {
- set load_local_direction [list 0 0 -1]
- } else {
- #the value could be set by other function field, intead as modulus, consider like positive modulus
- set load_local_direction [list 0 0 1]
- }
- set x_axis $load_local_direction
- lassign [MathUtils::CalculateLocalAxisFromXAxis $x_axis] y_axis z_axis
- set transform_matrix [concat $x_axis 0 $y_axis 0 $z_axis 0 0 0 0 1]
- if { [info procs gid_draw_opengl::create_opengl_list_from_file_mesh] != "" } {
- set list_id [gid_draw_opengl::create_opengl_list_from_file_mesh $full_filename $color_lines $color_surfaces $transform_matrix]
- } else {
- #to allow use it before the proc is available in next GiD 14.1.1d
- set list_id [Solid::symbols::create_opengl_list_from_file_mesh $full_filename $color_lines $color_surfaces $transform_matrix]
- }
- return $list_id
-}
-
-#cannot be used because now parts are for all types: shells, beams and solids,
-#and cannot set at design time orientation='shell_thickness', 'section' and the appropriated proc for each case
-#orientation='[some_proc]' cannot be used because the xml_node provided to some_proc is the one of
-#that does not contain the element type
-proc Solid::symbols::draw_parts_shell { valuesList } {
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set thickness $data(THICKNESS)
- return [dict create thickness $thickness]
-}
-
-proc Solid::symbols::draw_thickness { thickness } {
- set z_max [expr $thickness*0.5]
- set z_min [expr -1.0*$z_max]
- GiD_OpenGL draw -color $::gid_draw_opengl::rgb(black)
- GiD_OpenGL draw -polygonmode frontandback line
- GiD_OpenGL draw -begin quads -vertex [list 0 -0.5 $z_min] -vertex [list 0 0.5 $z_min] -vertex [list 1 0.5 $z_min] -vertex [list 1 -0.5 $z_min] -end
- GiD_OpenGL draw -begin quads -vertex [list 0 -0.5 $z_max] -vertex [list 0 0.5 $z_max] -vertex [list 1 0.5 $z_max] -vertex [list 1 -0.5 $z_max] -end
- GiD_OpenGL draw -color $::gid_draw_opengl::rgb(green)
- GiD_OpenGL draw -polygonmode frontandback fill
- GiD_OpenGL draw -begin quads -vertex [list 0 -0.5 $z_min] -vertex [list 0 0.5 $z_min] -vertex [list 1 0.5 $z_min] -vertex [list 1 -0.5 $z_min] -end
- GiD_OpenGL draw -begin quads -vertex [list 0 -0.5 $z_max] -vertex [list 0 0.5 $z_max] -vertex [list 1 0.5 $z_max] -vertex [list 1 -0.5 $z_max] -end
-}
-
-proc Solid::symbols::draw_parts { valuesList } {
- set list_id ""
- foreach item $valuesList {
- lassign $item key value unit
- set data($key) $value
- #set unit($key) $unit
- }
- set beam_elements { LargeDisplacementBeamElement3D LargeDisplacementBeamEMCElement3D }
- set shell_elemenst { ShellThinElement ShellThickElement ShellThinCorotationalElement ShellThickCorotationalElement }
- if { [lsearch $shell_elemenst $data(Element)] != -1 } {
- set thickness $data(THICKNESS)
- set drawing_procedure [list Solid::symbols::draw_thickness $thickness]
- } elseif { [lsearch $beam_elements $data(Element)] != -1 } {
-
- #the kind of data depends on $data(ConstitutiveLaw) that is storing the kind of profile: UserDefined3D, RectangularSection3D, ...
- set profile $data(ConstitutiveLaw)
- set rotate_90 1
- if { $profile== "UserDefined3D" } {
- #set area $data(AREA)
- if { $data(INERTIA_Y) > $data(INERTIA_X) } {
- set rotate_90 0
- }
- } elseif { $profile== "RectangularSection3D" } {
- if { $data(SECTION_WIDTH) > $data(SECTION_HEIGHT) } {
- set rotate_90 0
- }
- } else {
- set rotate_90 1
- }
- #draw a double t profile
- set drawing_procedure [list gid_draw_opengl::draw_symbol_section_properties {0.0 0.0 0.0} {1.0 0.0 0.0} $rotate_90 1.0 1.0]
- } else {
- #assumed solid
- return ""
- }
- set transform_matrix ""
- if { [info procs gid_draw_opengl::create_opengl_list_drawing] != "" } {
- set list_id [gid_draw_opengl::create_opengl_list_drawing $drawing_procedure $transform_matrix]
- } else {
- #to allow use it before the proc is available in next GiD 14.1.1d
- set list_id [Solid::symbols::create_opengl_list_drawing $drawing_procedure $transform_matrix]
- }
- return $list_id
-}
-
-#only to show how is called, without drawing nothing
-proc Solid::symbols::draw_parts_free { valuesList geom_mesh ov num pnts points ent_type center scale } {
- W "valuesList=$valuesList geom_mesh=$geom_mesh ov=$ov num=$num pnts=$pnts points=$points ent_type=$ent_type center=$center scale=$scale"
- return ""
-}
-
-######## START procs temporary defined copied from gid_draw_opengl package
-#to allow use it before the proc is available in next GiD 14.1.1d
-#to be deleted when this problemtype require this version or higher (and off course this version is available)
-
-#transform_matrix could be "" for identity
-proc Solid::symbols::create_opengl_list_drawing { drawing_procedure transform_matrix } {
- set list_id [GiD_OpenGL draw -genlists 1]
- GiD_OpenGL draw -newlist $list_id compile
- if { [llength $transform_matrix] } {
- GiD_OpenGL draw -pushmatrix -multmatrix $transform_matrix
- }
- {*}$drawing_procedure
- if { [llength $transform_matrix] } {
- GiD_OpenGL draw -popmatrix
- }
- GiD_OpenGL draw -endlist
- return $list_id
-}
-
-#e.g. to draw a condition as a 3D shape defined in a GiD ASCII mesh file
-#transform_matrix could be "" for the identity or a list with 16 values (representing a 4x4 opengl_matrix)
-proc Solid::symbols::create_opengl_list_from_file_mesh { full_filename color_lines color_surfaces transform_matrix } {
- package require customLib
- set drawing_procedure [list gid_groups_conds::import_gid_mesh_as_openGL $full_filename $color_lines $color_surfaces]
- return [Solid::symbols::create_opengl_list_drawing $drawing_procedure $transform_matrix]
-}
-
-proc Solid::symbols::create_opengl_list_from_file_mesh_oriented_z_direction { full_filename color_lines color_surfaces z_direction } {
- package require customLib
- lassign [gid_groups_conds::calc_xy_shell $z_direction] x_axis y_axis z_axis
- set transform_matrix [concat $x_axis 0 $y_axis 0 $z_axis 0 0 0 0 1]
- return [Solid::symbols::create_opengl_list_from_file_mesh $full_filename $color_lines $color_surfaces $transform_matrix]
-}
-
-#arrow size 1 pointing to +x (arrow cone height 0.3, radius 0.05)
-proc Solid::symbols::draw_point_load { } {
- #GiD_OpenGL draw -linewidth 2.0
- GiD_OpenGL draw -begin lines -vertex [list 0 0 0] -vertex [list 1 0 0] -end
- GiD_OpenGL draw -begin trianglefan -vertex [list 1 0 0]
- foreach angle [GidUtils::GetRange 0.0 $MathUtils::2PI 9] {
- GiD_OpenGL draw -vertex [list 0.7 [expr {0.05*cos($angle)}] [expr {0.05*sin($angle)}]]
- }
- GiD_OpenGL draw -end
- #GiD_OpenGL draw -linewidth 1.0
-}
-
-#arc and double-arrow size 1 pointing to +x (arrow cone height 0.1, radius 0.05)
-proc Solid::symbols::draw_point_momentum { } {
- GiD_OpenGL draw -begin lines -vertex [list 0 0 0] -vertex [list 1 0 0] -end
- foreach x_cone_start {0.9 0.7} x_cone_end {1 0.8} {
- GiD_OpenGL draw -begin trianglefan -vertex [list $x_cone_end 0 0]
- foreach angle [GidUtils::GetRange 0.0 [expr {2.0*$MathUtils::Pi}] 9] {
- GiD_OpenGL draw -vertex [list $x_cone_start [expr {0.05*cos($angle)}] [expr {0.05*sin($angle)}]]
- }
- GiD_OpenGL draw -end
- }
- GiD_OpenGL draw -begin linestrip
- foreach angle [GidUtils::GetRange 0.0 [expr {1.5*$MathUtils::Pi}] 13] {
- GiD_OpenGL draw -vertex [list 0 [expr {0.5*cos($angle)}] [expr {0.5*sin($angle)}]]
- }
- GiD_OpenGL draw -end
- GiD_OpenGL draw -begin trianglefan -vertex [list 0 0 -0.5]
- foreach angle [GidUtils::GetRange 0.0 [expr {2.0*$MathUtils::Pi}] 9] {
- GiD_OpenGL draw -vertex [list [expr {0.05*sin($angle)}] -0.1 [expr {-0.5+0.05*cos($angle)}] ]
- }
- GiD_OpenGL draw -end
-}
-######## END procs temporary defined copied from gid_draw_opengl package
diff --git a/kratos.gid/apps/Solid/write/validation.tcl b/kratos.gid/apps/Solid/write/validation.tcl
deleted file mode 100644
index c2d1004b3..000000000
--- a/kratos.gid/apps/Solid/write/validation.tcl
+++ /dev/null
@@ -1,137 +0,0 @@
-
-# return 0 means ok; return [list 1 "Error message to be displayed"]
-proc Solid::write::writeValidateEvent { } {
- set problem_message [list ]
-
- # Entities assigned to parts validation
- lappend problem_message {*}[Solid::write::validatePartsMesh]
-
- # Entities assigned to parts validation
- lappend problem_message {*}[Solid::write::validateNodalConditionsMesh]
-
- # Entities assigned to parts validation
- #lappend problem_message {*}[Solid::write::validateLoadsMesh]
-
- # Add more tests here
-
- return [list [llength $problem_message] $problem_message]
-}
-
-proc Solid::write::validatePartsMesh {} {
- set problem_messages [list ]
- # Get the Parts node
- set parts_un "SLParts"
- set root [customlib::GetBaseRoot]
- set xp1 "[spdAux::getRoute $parts_un]/group"
- # Foreach group assigned
- foreach gNode [$root selectNodes $xp1] {
- # Get group name
- set group_name [$gNode @n]
- # Get the assigned element
- set element [write::getValueByNode [$gNode selectNodes "./value\[@n = 'Element'\]"]]
- # Get the element available topologies
- set topologies [Solid::write::GetTopologies [::Model::getElement $element]]
- # Validate if the group has any of the valid topologies assigned
- set has_any [Solid::write::ValidateGroupNotEmpty $group_name $topologies]
- if {$has_any == 0} {
- # Get the topologies to show the message
- set valid_topologies [list ]
- foreach topology $topologies {
- lappend valid_topologies [$topology getGeometry]
- }
- # Add the message to the list of problems
- lappend problem_messages "Parts > group: $group_name must have one of this elements assigned: $valid_topologies. Assign something in geometry and remesh"
- }
- }
- return $problem_messages
-}
-proc Solid::write::validateNodalConditionsMesh {} {
- set problem_messages [list ]
- # Get the Nodal conditions node
- set nodal_conditions_un "SLNodalConditions"
- set root [customlib::GetBaseRoot]
- set xp1 "[spdAux::getRoute $nodal_conditions_un]/condition/group"
- # Foreach group assigned
- foreach gNode [$root selectNodes $xp1] {
- # Get group name
- set group_name [write::GetWriteGroupName [$gNode @n]]
- # Get the assigned nodal condition
- set nodal_condition [[$gNode parent] @n]
- # Get the nodal condition available topologies
- set topologies [list [::Model::Topology new "Point" 1 ""]]
- # TODO: validate ov
- # Validate if the group has any of the valid topologies assigned
- set has_any [Solid::write::ValidateGroupNotEmpty $group_name $topologies]
- if {$has_any == 0} {
- # Get the topologies to show the message
- set valid_topologies [list ]
- foreach topology $topologies {
- lappend valid_topologies [$topology getGeometry]
- }
- # Add the message to the list of problems
- lappend problem_messages "Conditions > group: $group_name must have one of this elements assigned: $valid_topologies. Assign something in geometry and remesh"
- }
- }
- return $problem_messages
-}
-
-proc Solid::write::validateLoadsMesh {} {
- set problem_messages [list ]
- # Get the Conditions node
- set conditions_un "SLLoads"
- set root [customlib::GetBaseRoot]
- set xp1 "[spdAux::getRoute $conditions_un]/condition/group"
- # Foreach group assigned
- foreach gNode [$root selectNodes $xp1] {
- # Get group name
- set group_name [write::GetWriteGroupName [$gNode @n]]
- # Get the assigned nodal condition
- set condition [[$gNode parent] @n]
- # Get the entity selected condition
- if {[$gNode hasAttribute ov]} {set ov [$gNode getAttribute ov]} {set ov [[$gNode parent ] getAttribute ov]}
- # Get the nodal condition available topologies
- set topologies [Solid::write::GetTopologies [Model::getCondition $condition] ]
- if {$topologies eq ""} {set topologies [list [::Model::Topology new "Point" 1 ""]]; set ov ""}
- # Validate if the group has any of the valid topologies assigned
- set has_any [Solid::write::ValidateGroupNotEmpty $group_name $topologies $ov]
- if {$has_any == 0} {
- # Get the topologies to show the message
- set valid_topologies [list ]
- foreach topology $topologies {
- lappend valid_topologies [$topology getGeometry]
- }
- # Add the message to the list of problems
- lappend problem_messages "Loads > group: $group_name must have one of this elements assigned: $valid_topologies. Assign something in geometry and remesh"
- }
- }
- return $problem_messages
-}
-
-proc Solid::write::GetTopologies { entity } {
- if {$entity eq ""} {return [list ]}
- return [$entity getTopologyFeatures]
-}
-proc Solid::write::ValidateGroupNotEmpty { group_name topologies {ov ""} } {
- set any 0
- set isquadratic [write::isquadratic]
- # W "$group_name ov: $ov topo: [llength $topologies] $topologies"
- foreach topology $topologies {
- set geo [$topology getGeometry]
- if {$ov ne "" && [string tolower $geo] ne $ov} {continue}
- if {$geo == "Point"} {
- # W "Checking $group_name nodes: [GiD_EntitiesGroups get $group_name nodes -count]"
- if {[GiD_EntitiesGroups get $group_name nodes -count] > 0} {
- # TODO: check number of nodes if quadratic
- set any 1
- break
- }
- } else {
- if {[GiD_EntitiesGroups get $group_name elements -count -element_type $geo] > 0} {
- # TODO: check number of nodes if quadratic
- set any 1
- break
- }
- }
- }
- return $any
-}
\ No newline at end of file
diff --git a/kratos.gid/apps/Solid/write/write.tcl b/kratos.gid/apps/Solid/write/write.tcl
deleted file mode 100644
index fc2f7bbec..000000000
--- a/kratos.gid/apps/Solid/write/write.tcl
+++ /dev/null
@@ -1,377 +0,0 @@
-namespace eval Solid::write {
- variable mat_dict
- variable validApps
- variable ConditionsDictGroupIterators
- variable NodalConditionsGroup
- variable writeCoordinatesByGroups
-}
-
-proc Solid::write::Init { } {
- # Namespace variables inicialization
- variable mat_dict
- set mat_dict ""
- variable ConditionsDictGroupIterators
- variable NodalConditionsGroup
- set ConditionsDictGroupIterators [dict create]
- set NodalConditionsGroup [list ]
-
- variable validApps
- set validApps [list "Solid"]
-
- variable writeCoordinatesByGroups
- set writeCoordinatesByGroups 0
-}
-
-proc Solid::write::AddValidApps {appList} {
- variable validApps
-
- lappend validApps $appList
-}
-
-proc Solid::write::writeCustomFilesEvent { } {
- WriteMaterialsFile
-
- write::CopyFileIntoModel "python/RunSolid.py"
- set paralleltype [write::getValue ParallelType]
- set orig_name "RunSolid.py"
-
- write::RenameFileInModel $orig_name "MainKratos.py"
-}
-
-proc Solid::write::SetCoordinatesByGroups {value} {
- variable writeCoordinatesByGroups
- set writeCoordinatesByGroups $value
-}
-
-# MDPA Blocks
-
-proc Solid::write::writeModelPartEvent { } {
- variable writeCoordinatesByGroups
- variable validApps
- variable ConditionsDictGroupIterators
- write::initWriteData "SLParts" "SLMaterials"
-
- write::writeModelPartData
- write::WriteString "Begin Properties 0"
- write::WriteString "End Properties"
- write::writeMaterials $validApps
- #write::writeTables
- if {$writeCoordinatesByGroups} {write::writeNodalCoordinatesOnParts} {write::writeNodalCoordinates}
- write::writeElementConnectivities
- writeConditions
- set basicConds [write::writeBasicSubmodelParts [getLastConditionId]]
- set ConditionsDictGroupIterators [dict merge $ConditionsDictGroupIterators $basicConds]
- writeMeshes
- # W $ConditionsDictGroupIterators
- #writeCustomBlock
-}
-
-
-proc Solid::write::writeConditions { } {
- variable ConditionsDictGroupIterators
- set ConditionsDictGroupIterators [write::writeConditions "SLLoads"]
-}
-
-proc Solid::write::writeMeshes { } {
-
- write::writePartSubModelPart
-
- # Solo Malla , no en conditions
- write::writeNodalConditions "SLNodalConditions"
-
- # A Condition y a meshes-> salvo lo que no tenga topologia
- writeLoads
-}
-
-proc Solid::write::writeLoads { } {
- variable ConditionsDictGroupIterators
- set root [customlib::GetBaseRoot]
- set xp1 "[spdAux::getRoute "SLLoads"]/condition/group"
- foreach group [$root selectNodes $xp1] {
- set groupid [$group @n]
- set groupid [write::GetWriteGroupName $groupid]
- #W "Writing mesh of Load $groupid"
- if {$groupid in [dict keys $ConditionsDictGroupIterators]} {
- ::write::writeGroupSubModelPart [[$group parent] @n] $groupid "Conditions" [dict get $ConditionsDictGroupIterators $groupid]
- } else {
- ::write::writeGroupSubModelPart [[$group parent] @n] $groupid "nodal"
- }
- }
-}
-
-
-proc Solid::write::writeCustomBlock { } {
- write::WriteString "Begin Custom"
- write::WriteString "Custom write for Solid, any app can call me, so be careful!"
- write::WriteString "End Custom"
- write::WriteString ""
-}
-
-proc Solid::write::getLastConditionId { } {
- variable ConditionsDictGroupIterators
- set top 1
- if {$ConditionsDictGroupIterators ne ""} {
- foreach {group iters} $ConditionsDictGroupIterators {
- set top [expr max($top,[lindex $iters 1])]
- }
- }
- return $top
-}
-
-# Custom files
-proc Solid::write::WriteMaterialsFile { } {
- variable validApps
-
- set filename "Materials.json"
- set mats_json [Solid::write::getPropertiesList SLParts]
-
- write::OpenFile $filename
- write::WriteJSON $mats_json
- write::CloseFile
-}
-
-proc Solid::write::WriteMaterialsFileOld { } {
- variable validApps
-
- set filename "Materials.json"
- set mats_json [Solid::write::getPropertiesList SLParts]
-
- write::OpenFile $filename
- write::WriteJSON $mats_json
- write::CloseFile
-
- write::OpenFile "materials.py"
-
- set str "
-from __future__ import print_function, absolute_import, division #makes KratosMultiphysics backward compatible with python 2.6 and 2.7
-# Importing the Kratos Library
-from KratosMultiphysics import *
-from KratosMultiphysics.SolidMechanicsApplication import *
-from beam_sections_python_utility import SetProperties
-from beam_sections_python_utility import SetMaterialProperties
-
-def AssignMaterial(Properties):
- # material for solid material"
- foreach {part mat} [write::getMatDict] {
- if {[dict get $mat APPID] in $validApps} {
- set law_name [dict get $mat ConstitutiveLaw]
- set law_type [[Model::getConstitutiveLaw $law_name] getAttribute "Type"]
- set public_name [[Model::getConstitutiveLaw $law_name] getAttribute "pn"]
- if {$law_type eq "1D_UR"} {
- append str "
- prop_id = [dict get $mat MID];
- prop = Properties\[prop_id\]
-"
- if {$public_name eq "Circular"} {
- append str "
- section_type = \"$public_name\"
- prop_list = \[\]
- prop_list.append([dict get $mat DIAMETER])
- prop = SetProperties(section_type,prop_list,prop)
-"
- } elseif {$public_name eq "Tubular"} {
- append str "
- section_type = \"$public_name\"
- prop_list = \[\]
- prop_list.append([dict get $mat DIAMETER])
- prop_list.append([dict get $mat THICKNESS])
- prop = SetProperties(section_type,prop_list,prop)
-"
- } elseif {$public_name eq "Rectangular"} {
- append str "
- section_type = \"$public_name\"
- prop_list = \[\]
- prop_list.append([dict get $mat HEIGHT])
- prop_list.append([dict get $mat WIDTH])
- prop = SetProperties(section_type,prop_list,prop)
-"
- } elseif {$public_name eq "UserDefined"} {
- append str "
- section_type = \"$public_name\"
- prop_list = \[\]
- prop_list.append([dict get $mat AREA])
- prop_list.append([dict get $mat INERTIA_X])
- prop_list.append([dict get $mat INERTIA_Y])
- prop = SetProperties(section_type,prop_list,prop)
-"
- } elseif {$public_name eq "UserParameters"} {
- append str "
- section_type = \"UserDefined\"
- prop_list = \[\]
- prop_list.append([dict get $mat YOUNGxAREA])
- prop_list.append([dict get $mat SHEARxREDUCED_AREA])
- prop_list.append([dict get $mat YOUNGxINERTIA_X])
- prop_list.append([dict get $mat YOUNGxINERTIA_Y])
- prop_list.append([dict get $mat SHEARxPOLAR_INERTIA])
- prop = SetMaterialProperties(section_type,prop_list,prop)
-"
- } else {
- append str "
- section_type = \"$public_name\"
- prop_list = \[\]
- prop_list.append([dict get $mat SIZE])
- prop = SetProperties(section_type,prop_list,prop)
-"
- }
- } {
- append str "
- prop_id = [dict get $mat MID];
- prop = Properties\[prop_id\]
- mat = [dict get $mat ConstitutiveLaw]()
- prop.SetValue(CONSTITUTIVE_LAW, mat.Clone())
-"
-
- }
- }
- }
-
-if 0 {
- foreach {part mat} [write::getMatDict] {
- if {[dict get $mat APPID] in $validApps} {
- append str "
- prop_id = [dict get $mat MID];
- prop = Properties\[prop_id\]
- mat = [dict get $mat ConstitutiveLaw]()
- prop.SetValue(CONSTITUTIVE_LAW, mat.Clone())
- "
- }
- }
-}
- write::WriteString $str
- write::CloseFile
-
-}
-
-
-proc Solid::write::ProcessVectorFunctionComponents { groupNode condition process} {
- set processDict [write::GetProcessHeader $groupNode $process $condition]
- set val [write::GetInputValue $groupNode [$process getInputPn component]]
- foreach i $val {
- if {$i == "null"} {
- lappend value null
- } {
- lappend value $i
- }
- }
-
- dict set processDict Parameters compound_assignment [write::GetInputValue $groupNode [$process getInputPn compound_assignment]]
- dict set processDict Parameters value $value
-
-
- return $processDict
-}
-
-proc Solid::write::getPropertiesList {parts_un} {
- set mat_dict [write::getMatDict]
- set props_dict [dict create]
- set props [list ]
- set sections [list ]
-
- set python_module "assign_materials_process"
- set process_name "AssignMaterialsProcess"
- set help "This process creates a material and assigns its properties"
-
- #set doc $gid_groups_conds::doc
- #set root [$doc documentElement]
- set root [customlib::GetBaseRoot]
-
- set xp1 "[spdAux::getRoute $parts_un]/group"
- foreach gNode [$root selectNodes $xp1] {
- set group [get_domnode_attribute $gNode n]
- set sub_model_part [write::getSubModelPartId Parts $group]
- if { [dict exists $mat_dict $group] } {
- set law_id [dict get $mat_dict $group MID]
- set law_name [dict get $mat_dict $group ConstitutiveLaw]
- set law_type [[Model::getConstitutiveLaw $law_name] getAttribute "Type"]
- set mat_name [dict get $mat_dict $group Material]
-
- if {$law_type eq "1D_UR"} {
- set python_module "assign_sections_process"
- set process_name "AssignSectionsProcess"
- set help "This process creates a section and assigns its properties"
- }
-
- set prop_dict [dict create]
- set kratos_module [[Model::getConstitutiveLaw $law_name] getAttribute "kratos_module"]
- dict set prop_dict "python_module" $python_module
- dict set prop_dict "kratos_module" $kratos_module
- dict set prop_dict "help" $help
- dict set prop_dict "process_name" $process_name
-
- set exclusionList [list "MID" "APPID" "ConstitutiveLaw" "Material" "Element"]
- set variables_dict [dict create]
- foreach prop [dict keys [dict get $mat_dict $group] ] {
- if {$prop ni $exclusionList} {
- dict set variables_list $prop [write::getFormattedValue [dict get $mat_dict $group $prop]]
- }
- }
-
- set material_dict [dict create]
- dict set material_dict "model_part_name" $sub_model_part
- dict set material_dict "properties_id" $law_id
- dict set material_dict "material_name" $mat_name
-
- if {$law_type eq "1D_UR"} {
- set public_name [[Model::getConstitutiveLaw $law_name] getAttribute "pn"]
- dict set material_dict "section_type" $public_name
- } else {
- set law_full_name [join [list "KratosMultiphysics" $kratos_module $law_name] "."]
- dict set material_dict constitutive_law [dict create name $law_full_name]
- }
- dict set material_dict variables $variables_list
- dict set material_dict tables dictnull
- dict set prop_dict Parameters $material_dict
-
- lappend props $prop_dict
- }
-
- }
-
- dict set props_dict material_models_list $props
-
- return $props_dict
-}
-
-proc Solid::write::GetUsedElements { {get "Objects"} } {
- set xp1 "[spdAux::getRoute SLParts]/group"
- set lista [list ]
- foreach gNode [[customlib::GetBaseRoot] selectNodes $xp1] {
- set elem_name [get_domnode_attribute [$gNode selectNodes ".//value\[@n='Element']"] v]
- set e [Model::getElement $elem_name]
- if {$get eq "Name"} { set e [$e getName] }
- lappend lista $e
- }
- return $lista
-}
-
-proc Solid::write::GetDefaultOutputDict { {appid ""} } {
- set outputDict [dict create]
- set resultDict [dict create]
-
- if {$appid eq ""} {set results_UN Results } {set results_UN [apps::getAppUniqueName $appid Results]}
- set GiDPostDict [dict create]
- dict set GiDPostDict GiDPostMode [write::getValue $results_UN GiDPostMode]
- dict set GiDPostDict WriteDeformedMeshFlag [write::getValue $results_UN GiDWriteMeshFlag]
- dict set GiDPostDict WriteConditionsFlag [write::getValue $results_UN GiDWriteConditionsFlag]
- dict set GiDPostDict MultiFileFlag [write::getValue $results_UN GiDMultiFileFlag]
- dict set resultDict gidpost_flags $GiDPostDict
-
- dict set resultDict file_label [write::getValue $results_UN FileLabel]
- set outputCT [write::getValue $results_UN OutputControlType]
- dict set resultDict output_control_type $outputCT
- if {$outputCT eq "time"} {set frequency [write::getValue $results_UN OutputDeltaTime]} {set frequency [write::getValue $results_UN OutputDeltaStep]}
- dict set resultDict output_frequency $frequency
-
- dict set resultDict node_output [write::getValue $results_UN NodeOutput]
-
- #dict set resultDict plane_output [write::GetCutPlanesList $results_UN]
-
- dict set resultDict nodal_results [write::GetResultsList $results_UN OnNodes]
- dict set resultDict gauss_point_results [write::GetResultsList $results_UN OnElement]
-
- dict set outputDict "result_file_configuration" $resultDict
- #dict set outputDict "point_data_configuration" [write::GetEmptyList]
- return $outputDict
-}
-
-Solid::write::Init
diff --git a/kratos.gid/apps/Solid/write/writeProjectParameters.tcl b/kratos.gid/apps/Solid/write/writeProjectParameters.tcl
deleted file mode 100644
index d1f6b228b..000000000
--- a/kratos.gid/apps/Solid/write/writeProjectParameters.tcl
+++ /dev/null
@@ -1,177 +0,0 @@
-# Project Parameters
-
-proc Solid::write::getParametersDict { } {
- set model_name "Solid_Domain"
- set projectParametersDict [dict create]
-
- # Problem data
- set problemDataDict [dict create]
-
- # Add items
- set model_name [Kratos::GetModelName]
- dict set problemDataDict problem_name $model_name
-
- # Parallelization
- set paralleltype [write::getValue ParallelType]
- #dict set problemDataDict "parallel_type" $paralleltype
- if {$paralleltype eq "OpenMP"} {
- #set nthreads [write::getValue Parallelization OpenMPNumberOfThreads]
- #dict set problemDataDict NumberofThreads $nthreads
- } else {
- #set nthreads [write::getValue Parallelization MPINumberOfProcessors]
- #dict set problemDataDict NumberofProcessors $nthreads
- }
-
- set echo_level [write::getValue Results EchoLevel]
- dict set problemDataDict echo_level $echo_level
-
- # Add ProblemData to Parameters
- dict set projectParametersDict problem_data $problemDataDict
-
- # Time settings
- set timeDataDict [dict create]
- dict set timeDataDict time_step [write::getValue SLTimeParameters DeltaTime]
- dict set timeDataDict start_time [write::getValue SLTimeParameters StartTime]
- dict set timeDataDict end_time [write::getValue SLTimeParameters EndTime]
-
- dict set projectParametersDict time_settings $timeDataDict
-
- # Model data
- # Create section
- set modelDataDict [dict create]
-
- # Add items
- dict set modelDataDict model_name $model_name
- set nDim [expr [string range [write::getValue nDim] 0 0] ]
- dict set modelDataDict dimension $nDim
-
- dict set modelDataDict domain_parts_list [write::getSubModelPartNames "SLParts"]
- dict set modelDataDict processes_parts_list [write::getSubModelPartNames "SLNodalConditions" "SLLoads"]
-
- # Add model import settings
- set importDataDict [dict create]
- #dict set importDataDict type "mdpa"
- dict set importDataDict name $model_name
- #dict set importDataDict label 0
- dict set modelDataDict input_file_settings $importDataDict
-
- # Add ModelData to Parameters
- dict set projectParametersDict model_settings $modelDataDict
-
- # Solver settings
- set solverDataDict [dict create]
-
- set currentStrategyId [write::getValue SLSolStrat]
- set strategy_write_name [[::Model::GetSolutionStrategy $currentStrategyId] getAttribute "python_module"]
- dict set solverDataDict solver_type $strategy_write_name
-
- # Solver parameters
- set solverParametersDict [dict create]
-
- # Time integration settings
- set integrationDataDict [dict create]
-
- dict set integrationDataDict solution_type [write::getValue SLSoluType]
-
- set solutiontype [write::getValue SLSoluType]
- if {$solutiontype ne "Dynamic"} {
- dict set integrationDataDict integration_method [write::getValue SLScheme]
- dict set integrationDataDict analysis_type [write::getValue SLAnalysisType]
- } else {
- dict set integrationDataDict time_integration [write::getValue SLSolStrat]
- dict set integrationDataDict integration_method [write::getValue SLScheme]
- }
-
- # Solving strategy settings
- set strategyDataDict [dict create]
-
- # Solution strategy parameters and Solvers
- set strategyDataDict [dict merge $strategyDataDict [write::getSolutionStrategyParametersDict] ]
-
- # Get integration order as term for the integration settings
- set exist_time_integration [dict exists $strategyDataDict time_integration_order]
- if {$exist_time_integration eq 1} {
- dict set integrationDataDict time_integration_order [dict get $strategyDataDict time_integration_order]
- dict unset strategyDataDict time_integration_order
- }
-
- dict set solverParametersDict time_integration_settings $integrationDataDict
-
- # Get convergence criterion settings
- set convergenceDataDict [dict create]
- set exist_convergence_criterion [dict exists $strategyDataDict convergence_criterion]
- if {$exist_convergence_criterion eq 1} {
- dict set convergenceDataDict convergence_criterion [dict get $strategyDataDict convergence_criterion]
- dict unset strategyDataDict convergence_criterion
- set exist_variable_tolerances [dict exists $strategyDataDict variable_relative_tolerance]
- if {$exist_variable_tolerances eq 1} {
- dict set convergenceDataDict variable_relative_tolerance [dict get $strategyDataDict variable_relative_tolerance]
- dict set convergenceDataDict variable_absolute_tolerance [dict get $strategyDataDict variable_absolute_tolerance]
- dict unset strategyDataDict variable_relative_tolerance
- dict unset strategyDataDict variable_absolute_tolerance
- }
- set exist_residual_tolerances [dict exists $strategyDataDict residual_relative_tolerance]
- if {$exist_residual_tolerances eq 1} {
- dict set convergenceDataDict residual_relative_tolerance [dict get $strategyDataDict residual_relative_tolerance]
- dict set convergenceDataDict residual_absolute_tolerance [dict get $strategyDataDict residual_absolute_tolerance]
- dict unset strategyDataDict residual_relative_tolerance
- dict unset strategyDataDict residual_absolute_tolerance
- }
- }
-
- dict set solverParametersDict convergence_criterion_settings $convergenceDataDict
-
- set strategy_data_size [dict size $strategyDataDict]
- if { $strategy_data_size ne 0 } {
- dict set solverParametersDict solving_strategy_settings $strategyDataDict
- }
-
- # Linear solver settings
- set solverParametersDict [dict merge $solverParametersDict [write::getSolversParametersDict Solid] ]
-
- # Add Dofs
- dict set solverParametersDict dofs [list {*}[DofsInElements] ]
-
- dict set solverDataDict Parameters $solverParametersDict
-
- dict set projectParametersDict solver_settings $solverDataDict
-
- # Lists of processes
- set nodal_conditions_dict [write::getConditionsParametersDict SLNodalConditions "Nodal"]
- dict set projectParametersDict constraints_process_list $nodal_conditions_dict
-
- dict set projectParametersDict loads_process_list [write::getConditionsParametersDict SLLoads]
-
- # GiD output configuration
- dict set projectParametersDict output_configuration [Solid::write::GetDefaultOutputDict]
-
- # restart options
- set restartDict [dict create ]
- dict set restartDict SaveRestart false
- dict set restartDict RestartFrequency 0
- dict set restartDict LoadRestart false
- dict set restartDict Restart_Step 0
- #dict set projectParametersDict restart_options $restartDict
-
- return $projectParametersDict
-}
-
-proc Solid::write::DofsInElements { } {
- set dofs [list ]
- set root [customlib::GetBaseRoot]
- set xp1 "[spdAux::getRoute SLParts]/group/value\[@n='Element'\]"
- set elements [$root selectNodes $xp1]
- foreach element_node $elements {
- set elemid [$element_node @v]
- set elem [Model::getElement $elemid]
- foreach dof [split [$elem getAttribute "Dofs"] ","] {
- if {$dof ni $dofs} {lappend dofs $dof}
- }
- }
- return {*}$dofs
-}
-
-proc Solid::write::writeParametersEvent { } {
- write::WriteJSON [getParametersDict]
- write::SetParallelismConfiguration
-}
diff --git a/kratos.gid/apps/Solid/xml/BoundaryConditions.spd b/kratos.gid/apps/Solid/xml/BoundaryConditions.spd
deleted file mode 100644
index fc68d449e..000000000
--- a/kratos.gid/apps/Solid/xml/BoundaryConditions.spd
+++ /dev/null
@@ -1,4 +0,0 @@
-
-
-
-
diff --git a/kratos.gid/apps/Solid/xml/Conditions.xml b/kratos.gid/apps/Solid/xml/Conditions.xml
deleted file mode 100644
index 43c9a5463..000000000
--- a/kratos.gid/apps/Solid/xml/Conditions.xml
+++ /dev/null
@@ -1,378 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-