modifications to show in gui

Author: jginternational

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

@@ -90,13 +90,12 @@ proc ::Structural::write::getOldParametersDict { } {
     dict set solverSettingsDict material_import_settings $materialsDict
 
     # Solution strategy parameters and Solvers
-    # We now added this variable as true by default (in nonlinear solids is mandatory)
-    if {[write::getValue STAnalysisType] eq "non_linear"} {
-        dict set solverSettingsDict use_old_stiffness_in_first_iteration true
-    }
     set solverSettingsDict [dict merge $solverSettingsDict [write::getSolutionStrategyParametersDict STSolStrat STScheme STStratParams] ]
     set solverSettingsDict [dict merge $solverSettingsDict [write::getSolversParametersDict Structural] ]
 
+    if {[write::getValue STAnalysisType] ne "non_linear"} {
+        dict unset solverSettingsDict use_old_stiffness_in_first_iteration
+    }
     # Submodelpart lists
 
     # There are some Conditions and nodalConditions that dont generate a submodelpart

kratos.gid/apps/Structural/xml/Strategies.xml

@@ -13,6 +13,7 @@
                 <parameter n="residual_relative_tolerance" pn="Residual relative tolerance" type="double" v="1e-4" parent="residual_criterion,and_criterion,or_criterion" help="Relative residual tolerance employed in the nonlinear iteration"/>
                 <parameter n="residual_absolute_tolerance" pn="Residual absolute tolerance" type="double" v="1e-9" parent="residual_criterion,and_criterion,or_criterion" help="Absolute residual tolerance employed in the nonlinear iteration"/></parameter>
             <parameter n="max_iteration" pn="Maximum iterations" type="integer" v="10" help="This number will break the iterative loop when reached"/>
+            <parameter n="use_old_stiffness_in_first_iteration" pn="Use old stiffness in 1st iteration" type="bool" v="true" values="false,true" />
         </parameter_list>
         <linearSolvers>
             <linearSolverItem n="linear_solver_settings" pn="Linear Solver" help="Default solver Super LU" filter="STSoluType {Static Quasi-static Dynamic formfinding}">
@@ -82,6 +83,7 @@
                 <parameter n="residual_relative_tolerance" pn="Residual relative tolerance" type="double" v="1e-4" parent="residual_criterion,and_criterion,or_criterion" help="Relative residual tolerance employed in the nonlinear iteration"/>
                 <parameter n="residual_absolute_tolerance" pn="Residual absolute tolerance" type="double" v="1e-9" parent="residual_criterion,and_criterion,or_criterion" help="Absolute residual tolerance employed in the nonlinear iteration"/></parameter>
             <parameter n="max_iteration" pn="Maximum iterations" type="integer" v="10" help="This number will break the iterative loop when reached"/>
+            <parameter n="use_old_stiffness_in_first_iteration" pn="Use old stiffness in 1st iteration" type="bool" v="true" values="false,true"/>
         </parameter_list>
         <linearSolvers>
             <linearSolverItem n="linear_solver_settings" pn="Linear Solver" filter="STSoluType {Static Quasi-static Dynamic formfinding}">

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

@@ -48,6 +48,9 @@ proc ::Structural::xml::CustomTree { args } {
     if {[[customlib::GetBaseRoot] selectNodes "$xpath/value\[@n='print_mdpa'\]"] eq ""} {
         gid_groups_conds::addF $xpath value [list n print_mdpa pn "Print modelpart" values "true,false" v true state "\[checkStateByUniqueName STSoluType formfinding\]"]
     }
+
+    spdAux::SetValueOnTreeItem state {[HideIfUniqueName STAnalysisType linear]} STStratSection use_old_stiffness_in_first_iteration
+
 }
 
 proc ::Structural::xml::ProcCheckGeometryStructural {domNode args} {