fixed cdem inlet name

Author: jginternational

kratos.gid/apps/CDEM/start.tcl

@@ -40,7 +40,7 @@ proc ::CDEM::LoadMyFiles { } {
     uplevel #0 [list source [file join $dir write write.tcl]]
     uplevel #0 [list source [file join $dir write writeMDPA_Parts.tcl]]
     uplevel #0 [list source [file join $dir write writeMDPA_Walls.tcl]]
-    # uplevel #0 [list source [file join $dir write writeMDPA_Inlet.tcl]]
+    uplevel #0 [list source [file join $dir write writeMDPA_Inlet.tcl]]
     uplevel #0 [list source [file join $dir write writeProjectParameters.tcl]]
     uplevel #0 [list source [file join $dir examples examples.tcl]]
 }

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

@@ -0,0 +1,7 @@
+
+proc DEM::write::GetInletElementType {} {
+    return SphericContinuumParticle3D
+}
+proc DEM::write::GetInjectorElementType {} {
+    return SphericContinuumParticle3D
+}

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

@@ -100,7 +100,7 @@ proc DEM::write::GetUsedClusters { } {
 }
 
 proc DEM::write::DefineInletConditions {inletProperties mid contains_clusters} {
-    set inlet_element_type SphericParticle3D
+    set inlet_element_type [DEM::write::GetInletElementType]
     if {[dict get $inletProperties Material Variables InletElementType] eq "Cluster3D"} {
         set contains_clusters 1
         if {[dict get $inletProperties Material Variables ClusterType] eq "FromFile"} {
@@ -116,11 +116,18 @@ proc DEM::write::DefineInletConditions {inletProperties mid contains_clusters} {
     }
 
     write::WriteString "        IDENTIFIER $mid"
-    write::WriteString "        INJECTOR_ELEMENT_TYPE SphericParticle3D"
+    write::WriteString "        INJECTOR_ELEMENT_TYPE [DEM::write::GetInjectorElementType]"
     write::WriteString "        ELEMENT_TYPE $inlet_element_type"
     write::WriteString "        CONTAINS_CLUSTERS $contains_clusters"
 }
 
+proc DEM::write::GetInletElementType {} {
+    return SphericParticle3D
+}
+proc DEM::write::GetInjectorElementType {} {
+    return SphericParticle3D
+}
+
 proc DEM::write::writeInletMeshes { } {
     variable inletProperties