dam example

Author: jginternational

kratos.gid/apps/Dam/examples/ThermoMechaDam2D.tcl

@@ -5,6 +5,11 @@ namespace eval ::Dam::examples::ThermoMechaDam2D {
 }
 
 proc ::Dam::examples::ThermoMechaDam2D::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
@@ -17,7 +22,7 @@ proc ::Dam::examples::ThermoMechaDam2D::Init {args} {
 }
 
 proc ::Dam::examples::ThermoMechaDam2D::DrawGeometry {args} {
-    
+
     Kratos::ResetModel
     GiD_Layers create Dam
     GiD_Layers edit to_use Dam
@@ -46,15 +51,15 @@ proc ::Dam::examples::ThermoMechaDam2D::DrawGeometry {args} {
     GiD_Layers create Soil
     GiD_Layers edit color Soil "#999900ff"
     GiD_Layers edit to_use Soil
-    
+
     #~ # Geometry creation
     #~ ## Points ##
     set soil_coordinates [list -5 0 0 -5 -5 0 15 -5 0 15 0 0 ]
     set soilPoints [list ]
     foreach {x y z} $soil_coordinates {
         lappend soilPoints [GiD_Geometry create point append Soil $x $y $z]
     }
-    
+
     ## Lines ##
     set soilLines [list ]
     set initial [lindex $damPoints 0]
@@ -63,60 +68,60 @@ proc ::Dam::examples::ThermoMechaDam2D::DrawGeometry {args} {
         set initial $point
     }
     lappend soilLines [GiD_Geometry create line append stline Soil $initial [lindex $damPoints 1]]
-    
-    
+
+
     lappend soilLines 1
-    
+
     ## Surface ##
     GiD_Process Mescape Geometry Create NurbsSurface {*}$soilLines escape escape
-    
+
     GiD_Process 'Zoom Frame
-        
+
 }
 
 proc ::Dam::examples::ThermoMechaDam2D::AssignGroups {args} {
-    
+
     # Create the groups
     GiD_Groups create Dam
     GiD_Groups edit color Dam "#26d1a8ff"
     GiD_EntitiesGroups assign Dam surfaces 1
-    
+
     GiD_Groups create Soil
     GiD_Groups edit color Soil "#e0210fff"
     GiD_EntitiesGroups assign Soil surfaces 2
-    
+
     GiD_Groups create Displacement
     GiD_Groups edit color Displacement "#3b3b3bff"
     GiD_EntitiesGroups assign Displacement lines 7
-      
+
     GiD_Groups create Initial
     GiD_Groups edit color Initial "#26d1a8ff"
     GiD_EntitiesGroups assign Initial surfaces {1 2}
-    
+
     GiD_Groups create Bofang
     GiD_Groups edit color Bofang "#42eb71ff"
     GiD_EntitiesGroups assign Bofang lines {4 5}
 
     GiD_Groups create Uniform
     GiD_Groups edit color Uniform "#3b3b3bff"
-    GiD_EntitiesGroups assign Uniform lines {3 2 9} 
-    
+    GiD_EntitiesGroups assign Uniform lines {3 2 9}
+
     GiD_Groups create Thermal_Parameters_1
     GiD_Groups edit color Initial "#26d1a8ff"
     GiD_EntitiesGroups assign Thermal_Parameters_1 surfaces 1
-    
+
     GiD_Groups create Thermal_Parameters_2
     GiD_Groups edit color Initial "#26d1a8ff"
     GiD_EntitiesGroups assign Thermal_Parameters_2 surfaces 2
-    
+
     GiD_Groups create Hydrostatic
     GiD_Groups edit color Hydrostatic "#26d1a8fe"
     GiD_EntitiesGroups assign Hydrostatic lines {4 5}
 
 }
 
 proc ::Dam::examples::ThermoMechaDam2D::AssignMeshSizes {args} {
-	
+
     set dam_mesh_size 0.25
     GiD_Process Mescape Meshing AssignSizes Surfaces $dam_mesh_size [GiD_EntitiesGroups get Dam surfaces] escape escape
     GiD_Process Mescape Meshing AssignSizes Surfaces $dam_mesh_size [GiD_EntitiesGroups get Soil surfaces] escape escape
@@ -137,20 +142,20 @@ proc ::Dam::examples::ThermoMechaDam2D::TreeAssignation {args} {
     set damNode [customlib::AddConditionGroupOnXPath $damParts Dam]
     set props [list Element SmallDisplacementElement2D ConstitutiveLaw ThermalLinearElastic2DPlaneStrain Material "Concrete-Dam" DENSITY 2400 YOUNG_MODULUS 1.962e10 POISSON_RATIO 0.20 THERMAL_EXPANSION 1e-05]
     spdAux::SetValuesOnBaseNode $damNode $props
-	
+
 	#Soil Part
     set soilNode [customlib::AddConditionGroupOnXPath $damParts Soil]
     set props_soil [list Element SmallDisplacementElement2D ConstitutiveLaw ThermalLinearElastic2DPlaneStrain Material Soil DENSITY 3000 YOUNG_MODULUS 4.9e10 POISSON_RATIO 0.25 THERMAL_EXPANSION 1e-05]
     spdAux::SetValuesOnBaseNode $soilNode $props_soil
 
 	# Dirichlet Conditions
-	
+
 		# Displacements
 		set damDirichletConditions [spdAux::getRoute "DamNodalConditions"]
 		set displacement "$damDirichletConditions/condition\[@n='DISPLACEMENT'\]"
 		set displacemnetnode [customlib::AddConditionGroupOnXPath $displacement Displacement]
-		
-		# Surface Temperature 
+
+		# Surface Temperature
 		set initial "$damDirichletConditions/condition\[@n='INITIALTEMPERATURE'\]"
 		set initialnode [customlib::AddConditionGroupOnXPath $initial Initial]
 		set props_initial [list is_fixed 0 value 7.5 ]
@@ -161,36 +166,36 @@ proc ::Dam::examples::ThermoMechaDam2D::TreeAssignation {args} {
 		set bofangnode [customlib::AddConditionGroupOnXPath $bofang Bofang]
 		set props_bofang [list is_fixed 1 Gravity_Direction Y Reservoir_Bottom_Coordinate_in_Gravity_Direction 0.0 Surface_Temp 15.19 Bottom_Temp 9.35 Height_Dam 30.0 Temperature_Amplitude 6.51 Day_Ambient_Temp 201 Water_level 20.0 Month 7 ]
 		spdAux::SetValuesOnBaseNode $bofangnode $props_bofang
-		
+
 		# Uniform Temperature
 		set uniform "$damDirichletConditions/condition\[@n='INITIALTEMPERATURE'\]"
 		set uniformnode [customlib::AddConditionGroupOnXPath $uniform Uniform]
 		set props_uniform [list is_fixed 1 value 10.0 ]
         spdAux::SetValuesOnBaseNode $uniformnode $props_uniform
-	
-	
+
+
 	# Thermal Load Conditions
-	
+
 		# Thermal Parameters 1
 		set damThermalLoadConditions [spdAux::getRoute "DamThermalLoads"]
 		set thermalparameter "$damThermalLoadConditions/condition\[@n='ThermalParameters2D'\]"
 		set thermalparameternode1 [customlib::AddConditionGroupOnXPath $thermalparameter Thermal_Parameters_1]
-		
+
 		# Thermal Parameters 2
 		set thermalparameternode2 [customlib::AddConditionGroupOnXPath $thermalparameter Thermal_Parameters_2]
 		set props_thermal_2 [list ThermalDensity 3000 ]
         spdAux::SetValuesOnBaseNode $thermalparameternode2 $props_thermal_2
-		
+
 	# Load Conditions
-   
+
 		# Hydrostatic Load
         set damLoadConditions [spdAux::getRoute "DamLoads"]
 		set hydro "$damLoadConditions/condition\[@n='HydroLinePressure2D'\]"
 		set hydronode [customlib::AddConditionGroupOnXPath $hydro Hydrostatic]
 		set props_hydro [list Modify 0 Gravity_Direction Y Reservoir_Bottom_Coordinate_in_Gravity_Direction 0.0 Spe_weight 10000 Water_level 20.0]
 		spdAux::SetValuesOnBaseNode $hydronode $props_hydro
-        
-		
+
+
 	# Solution
 	spdAux::SetValueOnTreeItem v "Days" DamTimeScale
 

kratos.gid/apps/Dam/xml/Processes.xml

@@ -8,7 +8,7 @@
     <inputs>
 		    <parameter n="is_fixed" pn="Imposed" type="vector" vectorType="bool" v="1,1,1"/>
         <parameter n="value" pn="Value" type="vector" v="0.0,0.0,0.0"/>
-        <parameter n="Value_Table" pn="Value table filename" type="vector" vectorType="tablefile" v=""/>
+        <parameter n="Value_Table" pn="Value table filename" type="tablefile" v=""/>
     </inputs>
   </Process>