Add support for WELLSHUT

sintefmath · Aug 25, 2024 · 9a646f5 · 9a646f5
1 parent fc748a2
commit 9a646f5
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/src/InputParser/InputParser.jl b/src/InputParser/InputParser.jl
@@ -69,6 +69,5 @@ module InputParser
         skip_kw!(:GCONINJE, Inf, PARSER_MISSING_SUPPORT)
         skip_kw!(:WTEST, Inf, PARSER_MISSING_SUPPORT)
         skip_kw!(:WLIST, Inf, PARSER_MISSING_SUPPORT)
-        skip_kw!(:WELLSHUT, Inf, PARSER_MISSING_SUPPORT)
     end
 end
diff --git a/src/InputParser/keywords/schedule.jl b/src/InputParser/keywords/schedule.jl
@@ -78,6 +78,21 @@ function parse_keyword!(data, outer_data, units, cfg, f, ::Val{:WELOPEN})
     push_and_create!(data, "WELOPEN", welopen)
 end
 
+function parse_keyword!(data, outer_data, units, cfg, f, ::Val{:WELLSHUT})
+    # WELLSHUT is recommended to be replaced with WELOPEN. For simplicity we
+    # convert WELLSHUT to the corresponding WELOPEN arguments.
+    parser_message(cfg, outer_data, "WELLSHUT", "Converting WELLSHUT to equivialent WELOPEN inputs.", color = :green)
+    d = "Default"
+    defaults = [d]
+    wells = get_wells(outer_data)
+    wellshut = parse_defaulted_group_well(f, defaults, wells, 1)
+    welopen = []
+    for w in wellshut
+        push!(welopen, [w, "SHUT"], -1, -1, -1, -1, -1)
+    end
+    push_and_create!(data, "WELOPEN", welopen)
+end
+
 function parse_keyword!(data, outer_data, units, cfg, f, ::Val{:WCONPROD})
     d = "Default"
     defaults = [