diff --git a/kratos.gid/apps/GeoMechanics/app.json b/kratos.gid/apps/GeoMechanics/app.json index 9422c3616..0f3e1c54d 100644 --- a/kratos.gid/apps/GeoMechanics/app.json +++ b/kratos.gid/apps/GeoMechanics/app.json @@ -19,8 +19,7 @@ "controllers/Python.tcl", "controllers/PhreaticLine.tcl", "examples/examples.tcl", - "examples/FirstExample.tcl", - "examples/SecondExample.tcl" + "examples/Simple.tcl" ], "start_script": "::GeoMechanics::Init", "requirements": { diff --git a/kratos.gid/apps/GeoMechanics/examples/SecondExample.tcl b/kratos.gid/apps/GeoMechanics/examples/Simple.tcl similarity index 95% rename from kratos.gid/apps/GeoMechanics/examples/SecondExample.tcl rename to kratos.gid/apps/GeoMechanics/examples/Simple.tcl index 7e61096f6..8d8ca736e 100644 --- a/kratos.gid/apps/GeoMechanics/examples/SecondExample.tcl +++ b/kratos.gid/apps/GeoMechanics/examples/Simple.tcl @@ -1,10 +1,10 @@ -namespace eval ::GeoMechanics::examples::SecondExample { +namespace eval ::GeoMechanics::examples::Simple { namespace path ::GeoMechanics::examples Kratos::AddNamespace [namespace current] } -proc ::GeoMechanics::examples::SecondExample::Init {args} { +proc ::GeoMechanics::examples::Simple::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] @@ -24,7 +24,7 @@ proc ::GeoMechanics::examples::SecondExample::Init {args} { GiD_Process 'Zoom Frame } -proc ::GeoMechanics::examples::SecondExample::DrawGeometry {args} { +proc ::GeoMechanics::examples::Simple::DrawGeometry {args} { Kratos::ResetModel set layer_in_use Model @@ -52,7 +52,7 @@ proc ::GeoMechanics::examples::SecondExample::DrawGeometry {args} { } -proc ::GeoMechanics::examples::SecondExample::AssignGroups {args} { +proc ::GeoMechanics::examples::Simple::AssignGroups {args} { # Fluid group creation GiD_Groups create Bottom GiD_EntitiesGroups assign Bottom lines 1 @@ -77,11 +77,11 @@ proc ::GeoMechanics::examples::SecondExample::AssignGroups {args} { } -proc ::GeoMechanics::examples::SecondExample::AssignMeshSizes {args} { +proc ::GeoMechanics::examples::Simple::AssignMeshSizes {args} { } -proc ::GeoMechanics::examples::SecondExample::TreeAssignation {args} { +proc ::GeoMechanics::examples::Simple::TreeAssignation {args} { set nd $::Model::SpatialDimension set root [customlib::GetBaseRoot] @@ -202,6 +202,12 @@ proc ::GeoMechanics::examples::SecondExample::TreeAssignation {args} { $excavation_node setAttribute ov surface set props [list deactivate_soil_part true] spdAux::SetValuesOnBaseNode $excavation_node $props + + # Set excavation line stress + set hydro_load [spdAux::getRoute "GEOMWater" $stage]/condition\[@n='WaterPressure2D'\] + set hydro_load_node [customlib::AddConditionGroupOnXPath $hydro_load "Hydrostatic_load_in_sloot"] + $hydro_load_node setAttribute ov line + spdAux::parseRoutes diff --git a/kratos.gid/apps/GeoMechanics/examples/examples.xml b/kratos.gid/apps/GeoMechanics/examples/examples.xml index 1d76fd889..267a6c412 100644 --- a/kratos.gid/apps/GeoMechanics/examples/examples.xml +++ b/kratos.gid/apps/GeoMechanics/examples/examples.xml @@ -1,11 +1,11 @@ - + + diff --git a/kratos.gid/apps/GeoMechanics/images/Simple.png b/kratos.gid/apps/GeoMechanics/images/Simple.png new file mode 100644 index 000000000..098912334 Binary files /dev/null and b/kratos.gid/apps/GeoMechanics/images/Simple.png differ diff --git a/kratos.gid/apps/GeoMechanics/xml/Conditions.xml b/kratos.gid/apps/GeoMechanics/xml/Conditions.xml index 6a0ea7c68..e7952eff7 100644 --- a/kratos.gid/apps/GeoMechanics/xml/Conditions.xml +++ b/kratos.gid/apps/GeoMechanics/xml/Conditions.xml @@ -23,7 +23,7 @@ diff --git a/kratos.gid/apps/GeoMechanics/xml/Processes.xml b/kratos.gid/apps/GeoMechanics/xml/Processes.xml index 6481cf60a..40787e238 100644 --- a/kratos.gid/apps/GeoMechanics/xml/Processes.xml +++ b/kratos.gid/apps/GeoMechanics/xml/Processes.xml @@ -11,13 +11,24 @@ - + - + + + + + + + + + + + +