gravity and solver type

Author: miguelmaso

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

@@ -51,10 +51,10 @@ proc ::ShallowWater::write::GetProblemDataDict { } {
 proc ::ShallowWater::write::GetSolverSettingsDict { } {
     # General data
     set solverSettingsDict [dict create]
-    dict set solverSettingsDict solver_type "stabilized_shallow_water_solver"
+    dict set solverSettingsDict solver_type [write::getValue SWSolStrat]
     dict set solverSettingsDict model_part_name [GetAttribute model_part_name]
     dict set solverSettingsDict domain_size 2
-    dict set solverSettingsDict gravity 9.81
+    dict set solverSettingsDict gravity [write::getValue SWGravity]
 
     # Model import settings
     set modelImportDict [dict create]

kratos.gid/apps/ShallowWater/xml/SolutionStrategy.spd

@@ -13,8 +13,8 @@
 	</container>
 
 	<!-- Gravity -->
-	<container n="Gravity" pn="Gravity" un="SWGravity" help="It is always in the vertical direction, positive down." open_window="0" icon="gravity_vector">
-		<value n="GravityValue" pn="Gravity value" v="9.81" help="Gravity value" unit_magnitude="Acceleration" units="m/s^2" />
+	<container n="Gravity" pn="Gravity" help="It is always in the vertical direction, positive down." open_window="0" icon="gravity_vector">
+		<value n="GravityValue" pn="Gravity value" un="SWGravity" v="9.81" help="Gravity value" unit_magnitude="Acceleration" units="m/s^2" />
 	</container>
 
 	<!-- Time paremeters -->