cht mdpa write split by domain

Author: jginternational

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

@@ -20,6 +20,10 @@ proc ::Buoyancy::write::writeModelPartEvent { } {
     if {$err ne ""} {error $err}
 
     ::Fluid::write::Init
+
+    set fluid_base_xpath [spdAux::getRoute Buoyancy_FL]
+    set fluid_base [[customlib::GetBaseRoot] selectNodes $fluid_base_xpath]
+    set ::Fluid::write::fluid_base $fluid_base
 
     ::Fluid::write::writeModelPartEvent
 

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

@@ -47,6 +47,11 @@ proc ::ConjugateHeatTransfer::write::writeModelPartEvent { } {
     # Convection diffusion mdpa
     ConvectionDiffusion::write::Init
     ConvectionDiffusion::write::SetAttribute writeCoordinatesByGroups [GetAttribute coordinates]
+        
+    set base_root_xpath [spdAux::getRoute CHTCNVDFF]
+    set base_root [[customlib::GetBaseRoot] selectNodes $base_root_xpath]
+    set ::ConvectionDiffusion::write::base_root $base_root
+
     write::writeAppMDPA ConvectionDiffusion
     write::RenameFileInModel "$filename.mdpa" "${filename}_[GetAttribute solid_mdpa_suffix].mdpa"
 }

kratos.gid/apps/ConjugateHeatTransfer/xml/Main.spd

@@ -4,7 +4,7 @@
 
     <container n="Buoyancy" pn="Buoyancy" icon="app" prefix="Buoyancy_" tree_state="open" open_window="0">
 
-        <container n="Fluid" pn="Fluid" icon="units" prefix="FL" tree_state="open" open_window="0">
+        <container n="Fluid" pn="Fluid" icon="units" un="Buoyancy_FL" prefix="FL" tree_state="open" open_window="0">
             <include n="AnalysisType" active="1" path="apps/Fluid/xml/AnalysisType.spd"/>
             <include n="Parts" active="1" un="FLParts" path="apps/Fluid/xml/Parts.spd"/>
             <include n="InitialConditions" active="1" path="apps/Fluid/xml/InitialConditions.spd"/>
@@ -27,7 +27,7 @@
 
     </container>
 
-    <container n="ConvectionDiffusion" pn="Convection-diffusion" icon="heat" prefix="CNVDFF" tree_state="open" open_window="0">
+    <container n="ConvectionDiffusion" pn="Convection-diffusion" icon="heat" un="CHTCNVDFF" prefix="CNVDFF" tree_state="open" open_window="0">
         <include n="StageInfo" active="1" path="apps/ConvectionDiffusion/xml/StageInfo.spd"/>
         <include n="Parts" active="1" path="apps/ConvectionDiffusion/xml/Parts.spd"/>
         <include n="Intervals" active="1" path="apps/Common/xml/Intervals.spd"/>

kratos.gid/apps/ConvectionDiffusion/write/write.tcl

@@ -5,6 +5,7 @@ namespace eval ::ConvectionDiffusion::write {
     variable ConvectionDiffusionConditions
     variable writeCoordinatesByGroups
     variable writeAttributes
+    variable base_root
 }
 
 proc ::ConvectionDiffusion::write::Init { } {
@@ -27,10 +28,14 @@ proc ::ConvectionDiffusion::write::Init { } {
     SetAttribute output_model_part_name [::ConvectionDiffusion::GetWriteProperty output_model_part_name]
     SetAttribute write_mdpa_mode [::ConvectionDiffusion::GetWriteProperty write_mdpa_mode]
 
+
+    variable base_root
+    set base_root [customlib::GetBaseRoot]
 }
 
 # Events
 proc ::ConvectionDiffusion::write::writeModelPartEvent { } {
+    variable base_root
     # Validation
     set err [Validate]
     if {$err ne ""} {error $err}
@@ -48,7 +53,7 @@ proc ::ConvectionDiffusion::write::writeModelPartEvent { } {
     if {[GetAttribute write_mdpa_mode] eq "geometries"} {
 
         # Get the list of groups in the spd
-        set lista [::spdAux::GetListOfSubModelParts]
+        set lista [::spdAux::GetListOfSubModelParts $base_root]
 
         # Write the geometries
         set ret [::write::writeGeometryConnectivities $lista]

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

@@ -9,6 +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
 }
 
 proc ::Fluid::write::Init { } {
@@ -32,10 +33,15 @@ proc ::Fluid::write::Init { } {
 
     variable last_condition_iterator
     set last_condition_iterator 0
+
+    variable fluid_base 
+    set fluid_base ""
 }
 
 # MDPA write event
 proc ::Fluid::write::writeModelPartEvent { } {
+    variable fluid_base
+
     # Validation
     set err [Validate]
     if {$err ne ""} {error $err}
@@ -55,7 +61,7 @@ proc ::Fluid::write::writeModelPartEvent { } {
     if {[GetAttribute write_mdpa_mode] eq "geometries"} {
         # Write geometries
         # Get the list of groups in the spd
-        set lista [::Fluid::xml::GetListOfSubModelParts]
+        set lista [::Fluid::xml::GetListOfSubModelParts $fluid_base]
 
         # Write the geometries
         set ret [::write::writeGeometryConnectivities $lista]

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

@@ -97,6 +97,7 @@ proc ::Fluid::write::writeBoundaryConditions { } {
     set BCUN [GetAttribute conditions_un]
 
     # Write the conditions
+    W "Writing conditions on $BCUN"
     ::write::writeConditionsByGiDId $BCUN
 
 }