set enable_dynamic_substepping in structural

Author: jginternational

kratos.gid/apps/Structural/app.json

@@ -50,7 +50,8 @@
         "materials_file": "StructuralMaterials.json",
         "properties_location": "json",
         "model_part_name": "Structure",
-        "output_model_part_name": ""
+        "output_model_part_name": "",
+        "enable_dynamic_substepping": true
     },
     "main_launch_file": "../../exec/MainKratos.py",
     "examples": "examples/examples.xml"

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

@@ -12,7 +12,8 @@ proc ::Structural::write::getOldParametersDict { } {
 
     # Time Parameters
     set timeSteppingDict [dict create]
-    if {$solutiontype eq "Static" || $solutiontype eq "eigen_value"} {
+    set enable_dynamic_substepping [::Structural::GetWriteProperty "enable_dynamic_substepping"]
+    if {[write::isBooleanFalse $enable_dynamic_substepping] || ($solutiontype eq "Static" || $solutiontype eq "eigen_value")} {
         set time_step "1.1"
         dict set problemDataDict start_time "0.0"
         dict set problemDataDict end_time "1.0"

kratos.gid/scripts/Applications.tcl

@@ -296,9 +296,9 @@ oo::class create App {
     method getPermission {n} {variable properties; if {[dict exists $properties permissions $n]} {return [dict get $properties permissions $n]} }
     method getPermissions {} {variable properties; return [dict get $properties permissions]}
     method getUniqueName {n} {variable properties; if {[dict exists $properties unique_names $n]} {return [dict get $properties unique_names $n]} }
-    method getUniqueNames {} {variable properties; return [dict get $properties unique_names}
+    method getUniqueNames {} {variable properties; return [dict get $properties unique_names]}
     method getWriteProperty {n} {variable properties; if {[dict exists $properties write $n]} {return [dict get $properties write $n]} }
-    method getWriteProperties {} {variable properties; return [dict get $properties write}
+    method getWriteProperties {} {variable properties; return [dict get $properties write]}
 }
 
 proc apps::LoadAppProperties {app} {