fixed typo, removed unused cdem proc

Author: farrufat-cimne

kratos.gid/apps/CDEM/write/writeMDPA_Walls.tcl

@@ -47,17 +47,17 @@ proc CDEM::write::WriteWallGraphsFlag { } {
     set xp1 "[spdAux::getRoute [GetAttribute graphs_un]]/group"
     #set xp1 "[spdAux::getRoute [GetAttribute conditions_un]]/condition\[@n = 'DEM-CustomSmp'\]/group"
     foreach group [[customlib::GetBaseRoot] selectNodes $xp1] {
-	set groupid [$group @n]
-	    write::WriteString  "Begin SubModelPart $groupid \/\/ Custom SubModelPart. Group name: $groupid"
-	    write::WriteString  "Begin SubModelPartData // DEM-FEM-Wall. Group name: $groupid"
-	    write::WriteString  "FORCE_INTEGRATION_GROUP 1"
-	    write::WriteString  "End SubModelPartData"
-	    write::WriteString  "Begin SubModelPartNodes"
-	    GiD_WriteCalculationFile nodes -sorted [dict create [write::GetWriteGroupName $groupid] [subst "%10i\n"]]
-	    write::WriteString  "End SubModelPartNodes"
-	    write::WriteString  "End SubModelPart"
-	    write::WriteString  ""
-    }
+        set groupid [$group @n]
+            write::WriteString  "Begin SubModelPart $groupid \/\/ Custom SubModelPart. Group name: $groupid"
+            write::WriteString  "Begin SubModelPartData // DEM-FEM-Wall. Group name: $groupid"
+            write::WriteString  "FORCE_INTEGRATION_GROUP 1"
+            write::WriteString  "End SubModelPartData"
+            write::WriteString  "Begin SubModelPartNodes"
+            GiD_WriteCalculationFile nodes -sorted [dict create [write::GetWriteGroupName $groupid] [subst "%10i\n"]]
+            write::WriteString  "End SubModelPartNodes"
+            write::WriteString  "End SubModelPart"
+            write::WriteString  ""
+        }
 }
 
 proc CDEM::write::GetNodesForGraphs { } {
@@ -66,26 +66,8 @@ proc CDEM::write::GetNodesForGraphs { } {
     #set xp1 "[spdAux::getRoute [GetAttribute graphs_un]]/condition\[@n = 'Graphs'\]/group"
     set xp1 "[spdAux::getRoute [GetAttribute graphs_un]]/group"
     foreach group [[customlib::GetBaseRoot] selectNodes $xp1] {
-	set groupid [$group @n]
-	lappend groups [write::GetWriteGroupName $groupid]
+        set groupid [$group @n]
+        lappend groups [write::GetWriteGroupName $groupid]
     }
     return $groups
-}
-
-# TODO: SHOULD NO LONGER BE REQUIRED SINCE NEW PROC IN DEM::
-proc CDEM::write::writeConditions { wall_properties } {
-    foreach group [DEM::write::GetWallsGroups] {
-        set mid [dict get $wall_properties $group]
-        if {$::Model::SpatialDimension eq "2D"} {
-            set rigid_type "RigidEdge3D2N"
-            set format [write::GetFormatDict $group $mid 2]
-        } else {
-            set rigid_type "RigidFace3D3N"
-            set format [write::GetFormatDict $group $mid 3]
-        }
-        write::WriteString "Begin Conditions $rigid_type // GUI DEM-FEM-Wall group identifier: $group"
-        GiD_WriteCalculationFile connectivities $format
-        write::WriteString "End Conditions"
-        write::WriteString ""
-    }
 }

kratos.gid/apps/DEM/xml/Processes.xml

@@ -124,7 +124,7 @@
           <parameter n="PoissonRatio" parent="false" pn="Poisson Ratio" v="0.25" show_in_window="0"/>
         </parameter>
         <parameter n="MaterialTest" parent="true" pn="Material testing" v="false" type="bool" help="Define the loading wall for material testing" show_in_window="0">
-          <parameter n="DefineTopBot" parent="true" pn="Set wall as" type="combo" v="Pressure plate" values="Top,Bottom" pvalues="Pressure plate,Base support" help="Check Y-axis is the loading axis" show_in_window="0"/>
+          <parameter n="DefineTopBot" parent="true" pn="Set wall as" type="combo" v="Pressure plate" values="top,bottom" pvalues="Pressure plate,Base support" help="Check Y-axis is the loading axis" show_in_window="0"/>
         </parameter>
       </parameter>
     </inputs>