fix sol strat

Author: jginternational

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

@@ -68,7 +68,7 @@ proc ::ShallowWater::write::GetSolverSettingsDict { } {
     dict set solverSettingsDict material_import_settings $materialsDict
 
     # Strategy, scheme and linear solver settings
-    set solverSettingsDict [dict merge $solverSettingsDict [write::getSolutionStrategyParametersDict SWSolutionStrat SWScheme SWStrategyParams] ]
+    set solverSettingsDict [dict merge $solverSettingsDict [write::getSolutionStrategyParametersDict SWSolStrat SWScheme SWStrategyParams] ]
     set solverSettingsDict [dict merge $solverSettingsDict [write::getSolversParametersDict ShallowWater] ]
 
     # Time stepping settings

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

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
 <container n="Physics" pn="Physics" help="Physics and analysis information" icon="analysis" state="normal" open_window="0">
-        <value n="SolStrat" pn="Solution type" un="SWSolutionStrat" v="" values="" dict="[GetSolutionStrategies App ShallowWater]" actualize_tree="1"/>
+        <value n="SolStrat" pn="Solution type" un="SWSolStrat" v="" values="" dict="[GetSolutionStrategies App ShallowWater]" actualize_tree="1"/>
         <value n="Scheme" pn="Scheme" un="SWScheme" v="" values="" dict="[GetSchemes]" actualize_tree="1"/>
 </container>

kratos.gid/scripts/Controllers/CommonProcs.tcl

@@ -101,14 +101,8 @@ proc spdAux::ProcGetSchemes {domNode args} {
     set nodeApp [GetAppIdFromNode $domNode]
     # W $nodeApp
     set sol_stratUN [apps::getAppUniqueName $nodeApp SolStrat]
-    set sol_stat_path [spdAux::getRoute $sol_stratUN]
 
-    #if {[get_domnode_attribute [$domNode selectNodes $sol_stat_path] v] eq ""} {
-        #W "entra"
-        get_domnode_attribute [$domNode selectNodes $sol_stat_path] dict
-        get_domnode_attribute [$domNode selectNodes $sol_stat_path] values
-        #}
-    set solStratName [::write::getValue $sol_stratUN]
+    set solStratName [::write::getValue $sol_stratUN "" force]
     if {$solStratName eq "" } {error "No solution strategy"}
     #W "Unique name: $sol_stratUN - Nombre $solStratName"
     set schemes [::Model::GetAvailableSchemes $solStratName {*}$args]