checks for non written conditions

Author: jginternational

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

@@ -84,28 +84,6 @@ proc ::ConjugateHeatTransfer::write::GetProcessList { } {
     return $processes
 }
 
-
-proc write::GetDefaultOutputProcessDict { {appid ""} } {
-    # Output process must be placed inside json lists
-    set gid_output_process_list [list ]
-    set need_gid [write::getValue EnableGiDOutput]
-    if {[write::isBooleanTrue $need_gid]}  {
-        lappend gid_output_process_list [write::GetDefaultGiDOutput $appid]
-    }
-
-    set vtk_output_process_list [list ]
-    set need_vtk [write::getValue EnableVtkOutput]
-    if {[write::isBooleanTrue $need_vtk]} {
-        lappend vtk_output_process_list [write::GetDefaultVTKOutput $appid]
-    }
-
-    set outputProcessesDict [dict create]
-    dict set outputProcessesDict gid_output $gid_output_process_list
-    dict set outputProcessesDict vtk_output $vtk_output_process_list
-
-    return $outputProcessesDict
-}
-
 proc ::ConjugateHeatTransfer::write::GetOutputProcessesList { } {
     set output_process [dict create]
 

kratos.gid/scripts/Writing/WriteConditionsByUniqueId.tcl

@@ -156,12 +156,14 @@ proc write::writeGroupSubModelPartByUniqueId { cid group ConditionsMap {what "El
     variable submodelparts
     variable formats_dict
 
+
     set id_f [dict get $formats_dict ID]
 
     set mid ""
     set what [split $what "&"]
     set group [write::GetWriteGroupName $group]
     if {![dict exists $submodelparts [list $cid ${group}]]} {
+        set null_cond_warn 0
         # Add the submodelpart to the catalog
         set good_name [write::transformGroupName $group]
         set mid "${cid}_${good_name}"
@@ -204,12 +206,15 @@ proc write::writeGroupSubModelPartByUniqueId { cid group ConditionsMap {what "El
             set elems [GiD_WriteCalculationFile elements -sorted -return $gdict]
             for {set i 0} {$i <[llength $elems]} {incr i} {
                 set eid [objarray get $ConditionsMap [lindex $elems $i]]
+                if ($eid == 0) {set null_cond_warn 1}
                 WriteString "${s2}[format $id_f $eid]"
             }
         }
         WriteString "${s1}End SubModelPartConditions"
         WriteString "${s}End SubModelPart"
+        if {$null_cond_warn} {W "$mid submodelpart contains conditions that are not in the Conditions block"}
     }
+    
     return $mid
 }