fixed names of element in injector

Author: jginternational

kratos.gid/apps/CDEM/examples/ContinuumDrop2D.tcl

@@ -15,8 +15,6 @@ proc ::CDEM::examples::ContinuumDrop2D {args} {
     GidUtils::UpdateWindow LAYER
     GiD_Process 'Zoom Frame
 
-    MeshGenerationOKDo 1.0
-
 }
 
 proc ::CDEM::examples::DrawGeometryContinuumDrop { } {

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

@@ -1,7 +1,8 @@
 
 proc DEM::write::GetInletElementType {} {
-    return SphericContinuumParticle3D
+    set elem_name SphericContinuumParticle3D
+    if {$::Model::SpatialDimension eq "2D"} {
+        set elem_name CylinderContinuumParticle2D
+    }
+    return $elem_name
 }
-proc DEM::write::GetInjectorElementType {} {
-    return SphericContinuumParticle3D
-}

kratos.gid/apps/DEM/examples/CirclesDrop.tcl

@@ -15,16 +15,6 @@ proc ::DEM::examples::CirclesDrop {args} {
     GidUtils::UpdateWindow LAYER
     GiD_Process 'Zoom Frame
 
-    # MESH
-    # TODO: Remove this once the Granular mesher works fine with multiple surfaces
-    ## Remember the old mesher
-    set prev_mesher [GiD_Set CircleMesher]
-    ## Set RBall as circle mesher
-    GiD_Set CircleMesher 0
-    ## Mesh
-    MeshGenerationOKDo 1.0
-    ## Restore previous circle mesher preference
-    GiD_Set CircleMesher $prev_mesher
 }
 
 proc ::DEM::examples::DrawGeometryCirclesDrop { } {

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

@@ -122,10 +122,15 @@ proc DEM::write::DefineInletConditions {inletProperties mid contains_clusters} {
 }
 
 proc DEM::write::GetInletElementType {} {
-    return SphericParticle3D
+    set elem_name SphericParticle3D
+    if {$::Model::SpatialDimension eq "2D"} {
+        set elem_name CylinderParticle2D
+    }
+    return $elem_name
 }
+
 proc DEM::write::GetInjectorElementType {} {
-    return SphericParticle3D
+    return [DEM::write::GetInletElementType]
 }
 
 proc DEM::write::writeInletMeshes { } {