variable name

Author: jginternational

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

@@ -23,7 +23,7 @@ proc ::Buoyancy::write::writeModelPartEvent { } {
 
     set fluid_base_xpath [spdAux::getRoute Buoyancy_FL]
     set fluid_base [[customlib::GetBaseRoot] selectNodes $fluid_base_xpath]
-    set ::Fluid::write::fluid_base $fluid_base
+    set ::Fluid::write::base_root $fluid_base
 
     ::Fluid::write::writeModelPartEvent
 

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

@@ -85,6 +85,9 @@ proc ::ConjugateHeatTransfer::write::PrepareBuoyancy { } {
     Fluid::write::SetAttribute thermal_bc_un Buoyancy_CNVDFFBC
     Fluid::write::SetAttribute thermal_initial_cnd_un Buoyancy_CNVDFFNodalConditions
     Fluid::write::SetCoordinatesByGroups [GetAttribute coordinates]
+    set base_root_xpath [spdAux::getRoute CHTBuoyancy]
+    set base_root [[customlib::GetBaseRoot] selectNodes $base_root_xpath]
+    set ::Fluid::write::base_root $base_root
 }
 
 proc ::ConjugateHeatTransfer::write::WriteMaterialsFile { {write_const_law True} {include_modelpart_name True}  } {

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

@@ -9,7 +9,7 @@ namespace eval ::Fluid::write {
     # after regular conditions are written, we need this number in order to print the custom submodelpart conditions
     # only if are applied over things that are not in the skin
     variable last_condition_iterator
-    variable fluid_base
+    variable base_root
 }
 
 proc ::Fluid::write::Init { } {