Debugging leftover

Author: rubenzorrilla

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

@@ -45,16 +45,16 @@ proc ::ConvectionDiffusion::write::writeModelPartEvent { } {
 
     # Element connectivities (Groups on CNVDFFParts)
     write::writeElementConnectivities
-    
+
     # Nodal conditions and conditions
     writeConditions
-    
+
     # Custom SubmodelParts
     write::writeBasicSubmodelParts [getLastConditionId]
-    
+
     # SubmodelParts
     writeMeshes
-    
+
 }
 
 proc ::ConvectionDiffusion::write::writeCustomFilesEvent { } {
@@ -64,13 +64,13 @@ proc ::ConvectionDiffusion::write::writeCustomFilesEvent { } {
 }
 
 proc ::ConvectionDiffusion::write::Validate {} {
-    set err ""    
+    set err ""
     set root [customlib::GetBaseRoot]
 
     return $err
 }
 
-proc ::ConvectionDiffusion::write::getLastConditionId { } { 
+proc ::ConvectionDiffusion::write::getLastConditionId { } {
     variable ConvectionDiffusionConditions
     set top 1
     # Kratos::PrintArray ConvectionDiffusionConditions
@@ -85,9 +85,6 @@ proc ::ConvectionDiffusion::write::getLastConditionId { } {
 proc ::ConvectionDiffusion::write::WriteMaterialsFile { {write_const_law True} {include_modelpart_name True} } {
     set model_part_name ""
     if {[write::isBooleanTrue $include_modelpart_name]} {set model_part_name [GetAttribute model_part_name]}
-    W [GetAttribute parts_un] 
-    W [GetAttribute materials_file] 
-    W $include_modelpart_name
     write::writePropertiesJsonFile [GetAttribute parts_un] [GetAttribute materials_file] $write_const_law $model_part_name
 }
 
@@ -140,7 +137,7 @@ proc ::ConvectionDiffusion::write::writeMeshes { } {
 
 proc ::ConvectionDiffusion::write::writeConditionsMesh { } {
     variable ConvectionDiffusionConditions
-    
+
     set root [customlib::GetBaseRoot]
     set xp1 "[spdAux::getRoute [GetAttribute conditions_un]]/condition/group"
     set grouped_conditions [list ]
@@ -175,7 +172,7 @@ proc ::ConvectionDiffusion::write::writeConditionsMesh { } {
             set end $ConvectionDiffusionConditions($groupid,final)
             dict set groups_dict $groupid what "Conditions"
             dict set groups_dict $groupid iniend [list $ini $end]
-        } 
+        }
         write::writeConditionGroupedSubmodelParts $condid $groups_dict
     }
 }