fsi copy fluid timestep to structure

Author: jginternational

kratos.gid/apps/FSI/app.json

@@ -52,7 +52,8 @@
         "coordinates": "all",
         "materials_file": "StructuralMaterials.json",
         "properties_location": "json",
-        "model_part_name": "Structure"
+        "model_part_name": "Structure",
+        "enable_dynamic_substepping": false
     },
     "main_launch_file": "../../exec/MainKratos.py",
     "examples": "examples/examples.xml"

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

@@ -93,6 +93,9 @@ proc ::FSI::write::GetSolverSettingsDict { } {
     dict set solver_settings_dict structure_solver_settings model_import_settings input_filename [dict get $mdpa_names Structural]
     dict set solver_settings_dict fluid_solver_settings model_import_settings input_filename [dict get $mdpa_names Fluid]
 
+    # Overwrite structural timestep with fluid timestep
+    dict set solver_settings_dict structure_solver_settings time_stepping [dict get $solver_settings_dict fluid_solver_settings time_stepping]
+
     # Add the MESH_DISPLACEMENT to the gid_output process
     # set gid_output [lindex [dict get $FluidParametersDict output_processes gid_output] 0]
     # set nodalresults [dict get $gid_output Parameters postprocess_parameters result_file_configuration nodal_results]
@@ -181,6 +184,7 @@ proc ::FSI::write::InitExternalProjectParameters { } {
     apps::setActiveAppSoft Structure
     Structural::write::SetAttribute time_parameters_un FLTimeParameters
     write::initWriteConfiguration [Structural::write::GetAttributes]
+    Structural::SetWriteProperty enable_dynamic_substepping [::FSI::GetWriteProperty "enable_dynamic_substepping"]
     set FSI::write::structure_project_parameters [Structural::write::getParametersDict]
 
     apps::setActiveAppSoft FSI

kratos.gid/apps/Structural/start.tcl

@@ -1,13 +1,14 @@
 namespace eval ::Structural {
     Kratos::AddNamespace [namespace current]
-    
+
     # Variable declaration
     variable dir
     variable _app
 
     proc GetAttribute {name} {variable _app; return [$_app getProperty $name]}
     proc GetUniqueName {name} {variable _app; return [$_app getUniqueName $name]}
     proc GetWriteProperty {name} {variable _app; return [$_app getWriteProperty $name]}
+    proc SetWriteProperty {name value} {variable _app; return [$_app setWriteProperty $name $value]}
 }
 
 proc ::Structural::Init { app } {
@@ -21,7 +22,7 @@ proc ::Structural::Init { app } {
     ::Structural::write::Init
 }
 
-# Create the old-gid condition relation_line_geo_mesh to link geometry and mesh entities. 
+# Create the old-gid condition relation_line_geo_mesh to link geometry and mesh entities.
 # Topic: Local axes, beams
 # TODO: remove this when GiD creates this relation automatically
 proc ::Structural::BeforeMeshGeneration { size } {

kratos.gid/scripts/Applications.tcl

@@ -298,6 +298,7 @@ oo::class create App {
     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 getWriteProperty {n} {variable properties; if {[dict exists $properties write $n]} {return [dict get $properties write $n]} }
+    method setWriteProperty {n v} {variable properties; dict set properties write $n $v} 
     method getWriteProperties {} {variable properties; return [dict get $properties write]}
 }