Merge branch 'master' into shallow-water-ptype

Author: miguelmaso

kratos.gid/apps/Fluid/xml/XmlController.tcl

@@ -91,10 +91,8 @@ proc ::Fluid::xml::CreateNewInlet { base_group_name {interval_data {new true nam
             W "Warning - Couldn't find property Inlet $prop"
         }
     }
-    
 }
 
-
 proc ::Fluid::xml::ClearInlets { delete_groups {fluid_conditions_UN FLBC} {inlet_condition_name_base AutomaticInlet} } {
 
     set nd $::Model::SpatialDimension

kratos.gid/apps/PfemFluid/examples/WaterDamBreak.tcl

@@ -13,7 +13,7 @@ proc ::PfemFluid::examples::WaterDamBreak::Init {args} {
 
     Kratos::ResetModel
     DrawGeometry$::Model::SpatialDimension
-    AssignGroupsGeometry$::Model::SpatialDimension
+    AssignGroups$::Model::SpatialDimension
     TreeAssignation$::Model::SpatialDimension
 
     GiD_Process 'Redraw

kratos.gid/apps/PfemFluid/write/write.tcl

@@ -64,7 +64,7 @@ proc PfemFluid::write::writeMeshes { } {
 
 
 proc PfemFluid::write::writeNodalConditions { keyword } {
-    write::writeNodalConditions $keyword
+    ::write::writeNodalConditions $keyword
 }
 
 proc PfemFluid::write::GetPartsUN { } {

kratos.gid/scripts/Controllers/TreeInjections.tcl

@@ -253,7 +253,7 @@ proc spdAux::_injectCondsToTree {basenode cond_list {cond_type "normal"} args }
             append node [GetParameterValueString $in $forcedParams $cnd]
         }
         set CondUsesIntervals [$cnd getAttribute "Interval"]
-        if {$app_uses_intervals && $CondUsesIntervals ne "False"} {
+        if {$app_uses_intervals && ![write::isBooleanFalse $CondUsesIntervals]} {
             set state normal
             if {$initial_conds_flag} {
                 set CondUsesIntervals Initial