several fixes

Author: farrufat-cimne

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

@@ -31,8 +31,7 @@ proc DEM::write::WriteMDPAParts { } {
 
     # SubmodelParts
     write::writePartSubModelPart
-	if {$::Model::SpatialDimension eq "2D"} {DEM::write::writeDEMConditionMeshes2D
-    } else {DEM::write::writeDEMConditionMeshes}
+	DEM::write::writeDEMConditionMeshes
 
     # CustomSubmodelParts
     #WriteWallCustomDEMSmp not required for dem.

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

@@ -11,7 +11,7 @@ proc DEM::write::WriteMDPAWalls { } {
     write::writeNodalCoordinatesOnGroups [GetNodesForGraphs]
 
     # Nodal conditions and conditions
-    CDEM::write::writeConditions $wall_properties
+    DEM::write::writeConditions $wall_properties
 
     # SubmodelParts
     DEM::write::writeWallConditionMeshes

kratos.gid/apps/DEM/write/writeMDPA_Parts.tcl

@@ -262,7 +262,7 @@ proc DEM::write::writeDEMConditionMeshes { } {
                 write::WriteString "End SubModelPart"
                 write::WriteString ""
             }
-        } elseif {$cond eq "DEM-VelocityIC"} {
+        } elseif {$cond eq "DEM-VelocityIC" || $cond eq "DEM-VelocityIC2D"} {
             set rigid_body_motion 0
             set cnd [Model::getCondition $cond]
             foreach group $group_list {

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

@@ -137,8 +137,9 @@ proc DEM::write::GetNodesForGraphs { } {
 }
 
 proc DEM::write::writeConditions { wall_properties } {
-
-    write::writeConditionsByGiDId DEMConditions DEM-FEM-Wall $wall_properties
+    if {$::Model::SpatialDimension eq "2D"} {write::writeConditionsByGiDId DEMConditions DEM-FEM-Wall2D $wall_properties
+    } else {write::writeConditionsByGiDId DEMConditions DEM-FEM-Wall $wall_properties
+    }
 }