Fix fluid dem solver type

jginternational · jginternational · commit 421d55a5b4a8 · 2020-12-03T14:09:01.000+01:00
diff --git a/kratos.gid/apps/FluidDEM/write/writeProjectParameters.tcl b/kratos.gid/apps/FluidDEM/write/writeProjectParameters.tcl
@@ -235,7 +235,7 @@ proc ::FluidDEM::write::getParametersDict { } {
     set element_name {*}[FluidDEM::write::GetCurrentFluidElementName]
     dict set project_parameters_dict fluid_parameters solver_settings formulation element_type $element_name
     if { $element_name eq "qsvmsDEM" } {
-        dict set project_parameters_dict fluid_parameters solver_settings solver_type "Monolithic"
+        dict set project_parameters_dict fluid_parameters solver_settings solver_type "MonolithicDEM"
         dict unset project_parameters_dict fluid_parameters solver_settings time_scheme
     }
 

Original file line number	Diff line number	Diff line change
`@@ -235,7 +235,7 @@ proc ::FluidDEM::write::getParametersDict { } {`
`235`	`235`	`set element_name {*}[FluidDEM::write::GetCurrentFluidElementName]`
`236`	`236`	`dict set project_parameters_dict fluid_parameters solver_settings formulation element_type $element_name`
`237`	`237`	`if { $element_name eq "qsvmsDEM" } {`
`238`		`- dict set project_parameters_dict fluid_parameters solver_settings solver_type "Monolithic"`
	`238`	`+ dict set project_parameters_dict fluid_parameters solver_settings solver_type "MonolithicDEM"`
`239`	`239`	`dict unset project_parameters_dict fluid_parameters solver_settings time_scheme`
`240`	`240`	`}`
`241`	`241`