cluster inlets

jginternational · jginternational · commit 67494aafe307 · 2021-05-31T19:58:08.000+02:00
diff --git a/kratos.gid/apps/DEM/write/writeMDPA_Inlet.tcl b/kratos.gid/apps/DEM/write/writeMDPA_Inlet.tcl
@@ -116,8 +116,8 @@ proc DEM::write::DefineInletConditions {inletProperties mid contains_clusters} {
     }
     
     write::WriteString "        IDENTIFIER $mid"
-    write::WriteString "        INJECTOR_ELEMENT_TYPE [dict get $inletProperties Material Variables InletElementType]"
-    write::WriteString "        ELEMENT_TYPE [dict get $inletProperties Material Variables InletElementType]"
+    write::WriteString "        INJECTOR_ELEMENT_TYPE SphericParticle3D"
+    write::WriteString "        ELEMENT_TYPE $inlet_element_type"
     write::WriteString "        CONTAINS_CLUSTERS $contains_clusters"
 }
 

Original file line number	Diff line number	Diff line change
`@@ -116,8 +116,8 @@ proc DEM::write::DefineInletConditions {inletProperties mid contains_clusters} {`
`116`	`116`	`}`
`117`	`117`
`118`	`118`	`write::WriteString " IDENTIFIER $mid"`
`119`		`- write::WriteString " INJECTOR_ELEMENT_TYPE [dict get $inletProperties Material Variables InletElementType]"`
`120`		`- write::WriteString " ELEMENT_TYPE [dict get $inletProperties Material Variables InletElementType]"`
	`119`	`+ write::WriteString " INJECTOR_ELEMENT_TYPE SphericParticle3D"`
	`120`	`+ write::WriteString " ELEMENT_TYPE $inlet_element_type"`
`121`	`121`	`write::WriteString " CONTAINS_CLUSTERS $contains_clusters"`
`122`	`122`	`}`
`123`	`123`