first implementation

Author: AFranci

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

@@ -29,9 +29,9 @@ proc PfemFluid::write::getNewParametersDict { } {
     set processList [GetPFEM_ProcessList]
     dict set projectParametersDict processes $processList
 
-    ##### Restart
-    # set output_process_list [GetPFEM_OutputProcessList]
-    # dict set projectParametersDict output_process_list $output_process_list
+    ##### WaveMonitor, Restart
+    set output_processes_list [GetPFEM_OutputProcesses]
+    dict set projectParametersDict output_processes $output_processes_list
 
     ##### output_configuration
     # dict set projectParametersDict output_configuration [write::GetDefaultOutputDict]
@@ -157,11 +157,52 @@ proc PfemFluid::write::GetPFEM_SolverSettingsDict { } {
     return $solverSettingsDict
 }
 
+proc PfemFluid::write::GetPFEM_OutputProcesses { } {
+    set resultList [dict create]
+
+    set output_process_list [GetPFEM_OutputProcessList]
+    dict set resultList output_list $output_process_list
+
+    return $resultList
+}
+
+
 proc PfemFluid::write::GetPFEM_OutputProcessList { } {
+
     set resultList [list]
+    dict set resultList "python_module" "wave_height_output_process"
+    dict set resultList "kratos_module" "KratosMultiphysics.PfemFluidDynamicsApplication"
+
+    set parametersWave [GetPFEM_OutputParameters]
+    dict set resultList Parameters $parametersWave
+
     # lappend resultList [write::GetRestartProcess Restart]
     return $resultList
 }
+
+
+proc PfemFluid::write::GetPFEM_OutputParameters { } {
+    
+    set parametersWave [dict create]
+    dict set parametersWave "model_part_name" "PfemFluidModelPart"
+    dict set parametersWave "coordinates"             [write::getValue WaveMonitor Coordinates]
+
+    set WaveCalculationSetting [dict create]
+    dict set WaveCalculationSetting "mean_water_level"        [write::getValue WaveMonitor MeanWaterLevel]
+    dict set WaveCalculationSetting "relative_search_radius"  [write::getValue WaveMonitor RelativeSearchRadius]
+    dict set parametersWave wave_calculation_settings $WaveCalculationSetting
+
+    set OutputFileSettings [dict create]
+    dict set OutputFileSettings "file_name"      "pfem_<i>"
+    dict set OutputFileSettings "output_path"      "gauges"
+    dict set parametersWave output_file_settings $OutputFileSettings
+
+    dict set parametersWave "time_between_outputs"    [write::getValue WaveMonitor TimeBetweenOutputs]
+  
+    return $parametersWave 
+}
+
+
 proc PfemFluid::write::GetPFEM_ProblemProcessList { free_surface_heat_flux free_surface_thermal_face } {
     set resultList [list ]
     set problemtype [write::getValue PFEMFLUID_DomainType]

kratos.gid/apps/PfemFluid/xml/Results.spd

@@ -9,13 +9,20 @@
     <value n="BodyOutput" pn="Body output" v="Yes" values="Yes,No" help="The interior of the volume is printed" icon="data"/>
     <value n="NodeOutput" pn="Node output" v="Yes" values="Yes,No" help="The nodes are printed as a separate layer" icon="data"/>
     <value n="SkinOutput" pn="Skin output" v="No" values="Yes,No" help="" state="hidden" icon="data"/>
-    <container n="OnElement" pn="On element" un="ElementResults" icon="select" help="Activate the results you want to see in the elements" open_window="0">
+    <container n="WaveMonitor" pn="Wave Monitor" un="WaveMonitor" icon="select" help="Activate the results you want to set wave gauges" open_window="0">
+     <value n="UseWaveMonitor" pn="Add Wave Gauges" type="bool" values="true,false" v="false" icon="data" />
+     <value n="Coordinates" pn="Coordinates" icon="data" fieldtype="vector" dimensions="3" format="%.6g" v="0.0,0.0,0.0" state="[getStateFromXPathValue {string(../value[@n='UseWaveMonitor']/@v)} true]" help="Coordinates of the wave gauges"/>
+     <value n="MeanWaterLevel" pn="Mean Level" icon="data" v="0" state="[getStateFromXPathValue {string(../value[@n='UseWaveMonitor']/@v)} true]" help="Water Level"/>
+     <value n="RelativeSearchRadius" pn="Relative Search Radius" icon="data" v="2"  state="[getStateFromXPathValue {string(../value[@n='UseWaveMonitor']/@v)} true]" help="Relative versus element size"/>
+     <value n="TimeBetweenOutputs" pn="Output Time" icon="data" v="0.01" state="[getStateFromXPathValue {string(../value[@n='UseWaveMonitor']/@v)} true]" help="Time between following measures"/>
+    </container>
+    <container n="OnElement" pn="Elemental Results" un="ElementResults" icon="select" help="Activate the results you want to see in the elements" open_window="0">
         <!--<dynamicnode command="spdAux::injectElementOutputs" args=""/>-->
         <!--<dynamicnode command="spdAux::injectConstitutiveLawOutputs" args=""/>-->
         <value n="CAUCHY_STRESS_VECTOR" pn="Cauchy stress vector" v="No" values="Yes,No"/>
         <value n="YIELDED" pn="Yielded" v="No" values="Yes,No"/>
     </container>
-    <container n="OnNodes" pn="On nodes" un="NodalResults" icon="select" help="Activate the results you want to see in the nodes" open_window="0">
+    <container n="OnNodes" pn="Nodal Results" un="NodalResults" icon="select" help="Activate the results you want to see in the nodes" open_window="0">
         <value n="PARTITION_INDEX" pn="Partition index" v="Yes" values="Yes,No" help="" state="[checkStateByUniqueName ParallelType MPI]"/>
         <dynamicnode command="spdAux::injectNodalConditionsOutputs" args=""/>
         <!--<value n="ACCELERATION" pn="Acceleration" v="No" values="Yes,No" state="[checkStateByUniqueName PFEMFLUID_DomainType Fluids]"/>-->