Merge branch 'write-geoms-migration' into potential-geom-migration

Author: jginternational

kratos.gid/apps/Fluid/write/write.tcl

@@ -125,11 +125,12 @@ proc Fluid::write::GetMaterialsFile { {write_const_law True} {include_modelpart_
     set model_part_name ""
     if {[write::isBooleanTrue $include_modelpart_name]} {set model_part_name [GetAttribute model_part_name]}
     set parts [write::getPropertiesJson [GetAttribute parts_un] $write_const_law $model_part_name]
-    set base [dict create model_part_name [GetAttribute model_part_name] properties_id 0 Material null]
-    set old_list [dict get $parts properties]
-    set new_list [concat [list $base] $old_list]
-    set result [dict create properties $new_list]
-    return $result
+    # set base [dict create model_part_name [GetAttribute model_part_name] properties_id 0 Material null]
+    # set old_list [dict get $parts properties]
+    # set new_list [concat [list $base] $old_list]
+    # set result [dict create properties $new_list]
+    # return $result
+    return $parts
 }
 
 proc ::Fluid::write::Validate {} {

kratos.gid/scripts/Writing/WriteMaterials.tcl

@@ -171,6 +171,7 @@ proc write::getPropertiesListByConditionXPath {cnd_xpath {write_claw_name "True"
     set props [list ]
 
     # first property
+    # TODO: Remove this when gid_output_process.py is fixed
     set first [dict create "model_part_name" $model_part_name "properties_id" 0 "Material" [dict create Variables [dict create]]]
     lappend props $first