Merge pull request #989 from KratosMultiphysics/embedded-migrate-geoms

Embedded migrate geoms

Author: jginternational

kratos.gid/apps/CompressibleFluid/app.json

@@ -43,7 +43,7 @@
         "properties_location": "json",
         "model_part_name": "FluidModelPart",
         "output_model_part_name": "fluid_computational_model_part",
-        "write_mdpa_mode": "entities"
+        "write_mdpa_mode": "geometries"
     },
     "main_launch_file": "python/MainKratos.py",
     "examples": "examples/examples.xml",

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

@@ -1,5 +1,6 @@
 proc ::CompressibleFluid::write::writeParametersEvent { } {
     set projectParametersDict [Fluid::write::getParametersDict]
+    set projectParametersDict [::write::GetModelersDict $projectParametersDict]
 
     set shock_capturing_type [dict get $projectParametersDict solver_settings shock_capturing_type]
     dict set projectParametersDict solver_settings shock_capturing_settings type $shock_capturing_type

kratos.gid/apps/CompressibleFluid/xml/Conditions.xml

@@ -113,7 +113,7 @@
                  unit_magnitude="M/T/L^2">
     <TopologyFeatures>
       <item GeometryType="Line" nodes="2" KratosName="WallCondition2D2N"/>
-      <item GeometryType="Point" nodes="1" KratosName="WallCondition2D1N"/>
+      <item GeometryType="Point" nodes="1" KratosName="PointCondition3D1N"/>
     </TopologyFeatures>
     <DegreesOfFreedom></DegreesOfFreedom>
     <inputs></inputs>

kratos.gid/apps/EmbeddedFluid/app.json

@@ -41,7 +41,7 @@
         "coordinates": "all",
         "materials_file": "FluidMaterials.json",
         "properties_location": "json",
-        "write_mdpa_mode": "entities"
+        "write_mdpa_mode": "geometries"
     },
     "main_launch_file": "../../exec/MainKratos.py",
     "examples": "examples/examples.xml"

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

@@ -59,6 +59,8 @@ proc ::EmbeddedFluid::write::getParametersDict { } {
     dict set solverSettingsDict distance_reading_settings $dist_settings_dict
 
     dict set param_dict solver_settings $solverSettingsDict
+
+    set param_dict [::write::GetModelersDict $param_dict]
     return $param_dict
 }