ñapa final

Author: jginternational

kratos.gid/apps/Buoyancy/write/write.tcl

@@ -54,11 +54,12 @@ proc ::Buoyancy::write::WriteMaterialsFile {{write_const_law True} {include_mode
     write::writePropertiesJsonFileDone "BuoyancyMaterials.json" $clear_mat
 }
 
-proc ::Buoyancy::write::GetBuoyancyMaterialsFile { {write_const_law True} {include_modelpart_name True}  } {
-    set model_part_name ""
-    if {[write::isBooleanTrue $include_modelpart_name]} {set model_part_name [GetModelPartName]}
+proc ::Buoyancy::write::GetBuoyancyMaterialsFile { {write_const_law True} {include_modelpart_name True} {model_part_name ""} } {
+    
+    if {[write::isBooleanTrue $include_modelpart_name] && $model_part_name eq ""} {set model_part_name [GetModelPartName]}
 
     set mats [write::getPropertiesJson [GetAttribute parts_un] $write_const_law $model_part_name]
+    
     # keep only first entry
     set clear_mat [dict get $mats properties]
     set clear_mat [lindex $clear_mat 0]

kratos.gid/apps/ConjugateHeatTransfer/write/write.tcl

@@ -100,8 +100,12 @@ proc ::ConjugateHeatTransfer::write::WriteBuoyancyMaterialsFile { {write_const_l
     write::writePropertiesJsonFileDone [::Fluid::write::GetAttribute materials_file] $fluid_materials
 
     # Write Buoyancy materials file
-    set buoyancy_material [::Buoyancy::write::GetBuoyancyMaterialsFile]
-    write::writePropertiesJsonFileDone "BuoyancyMaterials.json" $buoyancy_material
+    set buoyancy_material [::Buoyancy::write::GetBuoyancyMaterialsFile $write_const_law $include_modelpart_name FluidThermalModelPart]
+    set clear_mat [dict get $buoyancy_material properties]
+    set clear_mat [lindex $clear_mat 0]
+    dict set clear_mat model_part_name FluidThermalModelPart
+    set clear_mat [dict create properties [list $clear_mat]]
+    write::writePropertiesJsonFileDone "BuoyancyMaterials.json" $clear_mat
 }
 
 proc ::ConjugateHeatTransfer::write::GetAttribute {att} {