diff --git a/kratos.gid/apps/Fluid/write/write.tcl b/kratos.gid/apps/Fluid/write/write.tcl index 57d1265a7..c11c59470 100644 --- a/kratos.gid/apps/Fluid/write/write.tcl +++ b/kratos.gid/apps/Fluid/write/write.tcl @@ -206,17 +206,28 @@ proc ::Fluid::write::writeBoundaryConditions { } { spdAux::MergeGroups $skin_group_name $groups # Write the conditions + lassign [write::_getConditionDefaultName] kname nnodes + set last_condition_iterator [write::writeGroupConditionByUniqueId $skin_group_name $kname $nnodes 0 $::Fluid::write::FluidConditionMap] + + # Clean + GiD_Groups delete $skin_group_name +} + +proc ::Fluid::write::_getConditionDefaultName { } { + set is_quadratic [write::isquadratic] if {$::Model::SpatialDimension eq "3D"} { - set kname SurfaceCondition3D3N + set nnodes 3 + if {$is_quadratic} {set nnodes 6} + + set kname SurfaceCondition3D${nnodes}N } { - set kname LineCondition2D2N set nnodes 2 + if {$is_quadratic} {set nnodes 3} + set kname LineCondition2D${nnodes}N } - set last_condition_iterator [write::writeGroupConditionByUniqueId $skin_group_name $kname $nnodes 0 $::Fluid::write::FluidConditionMap] - - # Clean - GiD_Groups delete $skin_group_name + + return [list $kname $nnodes] } proc ::Fluid::write::writeDrags { } { diff --git a/kratos.gid/apps/Fluid/xml/Elements.xml b/kratos.gid/apps/Fluid/xml/Elements.xml index efa6d9a5c..4e8d0d3dc 100644 --- a/kratos.gid/apps/Fluid/xml/Elements.xml +++ b/kratos.gid/apps/Fluid/xml/Elements.xml @@ -270,4 +270,58 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/kratos.gid/apps/Fluid/xml/Strategies.xml b/kratos.gid/apps/Fluid/xml/Strategies.xml index 1803f4ee5..2d20f0871 100644 --- a/kratos.gid/apps/Fluid/xml/Strategies.xml +++ b/kratos.gid/apps/Fluid/xml/Strategies.xml @@ -50,7 +50,7 @@ - +