19ecc3d30e
This commit passes the run's notion of its active phases, an object of type Opm::Phases, through to the initialisation layer for the saturation functions' scaling properties. In particular, this allows us to discriminate between the phases and to not index into tables or properties that would not be appropriate (e.g., maximum gas saturation (SGU) in a simulation run without active gas). Moreover, we now have enough information to know to look for SOF2 in two-phase run using family II saturation function keywords. These changes are necessary in order to extend Flow's support for the FILLEPS output request to two-phase runs.
256 lines
7.1 KiB
C++
256 lines
7.1 KiB
C++
/*
|
|
Copyright 2019 Equinor ASA.
|
|
|
|
This file is part of the Open Porous Media project (OPM).
|
|
|
|
OPM is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
OPM is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with OPM. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include <stdexcept>
|
|
#include <algorithm>
|
|
|
|
#define BOOST_TEST_MODULE WLIST_TEST
|
|
|
|
#include <boost/test/unit_test.hpp>
|
|
|
|
#include <opm/parser/eclipse/EclipseState/Grid/FieldPropsManager.hpp>
|
|
#include <opm/parser/eclipse/EclipseState/Grid/EclipseGrid.hpp>
|
|
#include <opm/parser/eclipse/EclipseState/Schedule/Schedule.hpp>
|
|
#include <opm/parser/eclipse/EclipseState/Schedule/Well/WList.hpp>
|
|
#include <opm/parser/eclipse/EclipseState/Schedule/Well/WListManager.hpp>
|
|
|
|
#include <opm/parser/eclipse/Deck/Deck.hpp>
|
|
#include <opm/parser/eclipse/Parser/Parser.hpp>
|
|
|
|
using namespace Opm;
|
|
|
|
BOOST_AUTO_TEST_CASE(CreateWLIST) {
|
|
Opm::WList wlist;
|
|
BOOST_CHECK_EQUAL(wlist.size(), 0);
|
|
wlist.add("W1");
|
|
BOOST_CHECK_EQUAL(wlist.size(), 1);
|
|
|
|
|
|
wlist.del("NO_SUCH_WELL");
|
|
BOOST_CHECK_EQUAL(wlist.size(), 1);
|
|
|
|
wlist.del("W1");
|
|
BOOST_CHECK_EQUAL(wlist.size(), 0);
|
|
|
|
wlist.add("W1");
|
|
wlist.add("W2");
|
|
wlist.add("W3");
|
|
|
|
auto wells = wlist.wells();
|
|
BOOST_CHECK_EQUAL(wells.size(), 3);
|
|
BOOST_CHECK( std::find(wells.begin(), wells.end(), "W1") != wells.end());
|
|
BOOST_CHECK( std::find(wells.begin(), wells.end(), "W2") != wells.end());
|
|
BOOST_CHECK( std::find(wells.begin(), wells.end(), "W3") != wells.end());
|
|
|
|
std::vector<std::string> wells2;
|
|
for (const auto& well : wlist)
|
|
wells2.push_back(well);
|
|
|
|
BOOST_CHECK_EQUAL(wells2.size(), 3);
|
|
BOOST_CHECK( std::find(wells2.begin(), wells2.end(), "W1") != wells2.end());
|
|
BOOST_CHECK( std::find(wells2.begin(), wells2.end(), "W2") != wells2.end());
|
|
BOOST_CHECK( std::find(wells2.begin(), wells2.end(), "W3") != wells2.end());
|
|
}
|
|
|
|
|
|
BOOST_AUTO_TEST_CASE(WLISTManager) {
|
|
Opm::WListManager wlm;
|
|
BOOST_CHECK(!wlm.hasList("NO_SUCH_LIST"));
|
|
|
|
|
|
{
|
|
auto& wlist1 = wlm.newList("LIST1");
|
|
wlist1.add("A");
|
|
wlist1.add("B");
|
|
wlist1.add("C");
|
|
}
|
|
|
|
// If a new list is added with the same name as an existing list the old
|
|
// list is dropped and a new list is created.
|
|
{
|
|
auto& wlist1 = wlm.newList("LIST1");
|
|
BOOST_CHECK_EQUAL(wlist1.size(), 0);
|
|
}
|
|
auto& wlist1 = wlm.newList("LIST1");
|
|
auto& wlist2 = wlm.newList("LIST2");
|
|
|
|
wlist1.add("W1");
|
|
wlist1.add("W2");
|
|
wlist1.add("W3");
|
|
|
|
wlist2.add("W1");
|
|
wlist2.add("W2");
|
|
wlist2.add("W3");
|
|
|
|
// The delWell operation will work across all well lists.
|
|
wlm.delWell("W1");
|
|
BOOST_CHECK( std::find(wlist1.begin(), wlist1.end(), "W1") == wlist1.end());
|
|
BOOST_CHECK( std::find(wlist2.begin(), wlist2.end(), "W1") == wlist2.end());
|
|
}
|
|
|
|
|
|
static std::string WELSPECS() {
|
|
return
|
|
"WELSPECS\n"
|
|
" \'W1\' \'OP\' 1 1 1.0 \'OIL\' 7* /\n"
|
|
" \'W2\' \'OP\' 2 1 1.0 \'OIL\' 7* /\n"
|
|
" \'W3\' \'OP\' 3 1 1.0 \'OIL\' 7* /\n"
|
|
" \'W4\' \'OP\' 4 1 1.0 \'OIL\' 7* /\n"
|
|
"/\n";
|
|
}
|
|
|
|
static Opm::Schedule createSchedule(const std::string& schedule) {
|
|
Opm::Parser parser;
|
|
std::string input =
|
|
"START -- 0 \n"
|
|
"10 MAI 2007 / \n"
|
|
"SCHEDULE\n"+ schedule;
|
|
|
|
/*
|
|
"SCHEDULE\n"
|
|
"WELSPECS\n"
|
|
" \'W_1\' \'OP\' 30 37 3.33 \'OIL\' 7* / \n"
|
|
"/ \n"
|
|
"DATES -- 1\n"
|
|
" 10 \'JUN\' 2007 / \n"
|
|
"/\n"
|
|
"DATES -- 2,3\n"
|
|
" 10 JLY 2007 / \n"
|
|
" 10 AUG 2007 / \n"
|
|
"/\n"
|
|
"WELSPECS\n"
|
|
" \'WX2\' \'OP\' 30 37 3.33 \'OIL\' 7* / \n"
|
|
" \'W_3\' \'OP\' 20 51 3.92 \'OIL\' 7* / \n"
|
|
"/\n";
|
|
*/
|
|
|
|
auto deck = parser.parseString(input);
|
|
EclipseGrid grid(10,10,10);
|
|
TableManager table ( deck );
|
|
FieldPropsManager fp( deck, Phases{true, true, true}, grid, table);
|
|
Runspec runspec (deck);
|
|
return Schedule(deck, grid , fp, runspec );
|
|
}
|
|
|
|
|
|
BOOST_AUTO_TEST_CASE(WlistFromDeck) {
|
|
std::string no_wlist = WELSPECS();
|
|
no_wlist +=
|
|
"DATES\n"
|
|
"10 JLY 2007 /\n"
|
|
"10 AUG 2007 /\n"
|
|
"/\n";
|
|
|
|
|
|
Opm::Schedule sched = createSchedule(no_wlist);
|
|
auto& wlm = sched.getWListManager(1);
|
|
BOOST_CHECK(!wlm.hasList("LIST1"));
|
|
}
|
|
|
|
BOOST_AUTO_TEST_CASE(WlistInvalid) {
|
|
std::string wlist_invalid_well = WELSPECS() +
|
|
"WLIST\n"
|
|
" \'*LIST1\' \'NEW\' WELLX /\n"
|
|
"/\n"
|
|
"DATES\n"
|
|
"10 JLY 2007 /\n"
|
|
"10 AUG 2007 /\n"
|
|
"/\n";
|
|
|
|
std::string wlist_invalid_action = WELSPECS() +
|
|
"WLIST\n"
|
|
" \'*LIST1\' \'NEWX\' W1 /\n"
|
|
"/\n"
|
|
"DATES\n"
|
|
"10 JLY 2007 /\n"
|
|
"10 AUG 2007 /\n"
|
|
"/\n";
|
|
|
|
std::string wlist_invalid_list1 = WELSPECS() +
|
|
"WLIST\n"
|
|
" \'LIST1\' \'NEW\' W1 /\n"
|
|
"/\n"
|
|
"DATES\n"
|
|
"10 JLY 2007 /\n"
|
|
"10 AUG 2007 /\n"
|
|
"/\n";
|
|
|
|
std::string wlist_invalid_list2 = WELSPECS() +
|
|
"WLIST\n"
|
|
" \'*LIST1\' \'NEW\' W1 /\n"
|
|
" \'*LIST2\' \'ADD\' W2 /\n"
|
|
"/\n"
|
|
"DATES\n"
|
|
"10 JLY 2007 /\n"
|
|
"10 AUG 2007 /\n"
|
|
"/\n";
|
|
|
|
BOOST_CHECK_THROW( createSchedule(wlist_invalid_well), std::invalid_argument);
|
|
BOOST_CHECK_THROW( createSchedule(wlist_invalid_well), std::invalid_argument);
|
|
BOOST_CHECK_THROW( createSchedule(wlist_invalid_action), std::invalid_argument);
|
|
BOOST_CHECK_THROW( createSchedule(wlist_invalid_list1), std::invalid_argument);
|
|
BOOST_CHECK_THROW( createSchedule(wlist_invalid_list2), std::invalid_argument);
|
|
}
|
|
|
|
BOOST_AUTO_TEST_CASE(Wlist) {
|
|
std::string wlist = WELSPECS() +
|
|
"WLIST\n"
|
|
" \'*LIST1\' \'NEW\' W1 W2 /\n"
|
|
" \'*LIST1\' \'ADD\' W3 W4 /\n"
|
|
" \'*LIST2\' \'NEW\' W1 W3 /\n"
|
|
"/\n"
|
|
"DATES\n"
|
|
"10 JLY 2007 /\n"
|
|
"10 AUG 2007 /\n"
|
|
"/\n"
|
|
"WLIST\n"
|
|
" \'*LIST3\' \'NEW\' /\n"
|
|
" \'*LIST3\' \'MOV\' W1 W3 /\n"
|
|
"/\n";
|
|
|
|
auto sched = createSchedule(wlist);
|
|
{
|
|
const auto& wlm = sched.getWListManager(1);
|
|
const auto& wl1 = wlm.getList("*LIST1");
|
|
const auto& wl2 = wlm.getList("*LIST2");
|
|
|
|
BOOST_CHECK_EQUAL(wl1.wells().size(), 4 );
|
|
BOOST_CHECK_EQUAL(wl2.wells().size(), 2 );
|
|
}
|
|
{
|
|
const auto& wlm = sched.getWListManager(2);
|
|
const auto& wl1 = wlm.getList("*LIST1");
|
|
const auto& wl2 = wlm.getList("*LIST2");
|
|
const auto& wl3 = wlm.getList("*LIST3");
|
|
|
|
BOOST_CHECK_EQUAL(wl1.wells().size(), 2 );
|
|
BOOST_CHECK_EQUAL(wl2.wells().size(), 0 );
|
|
BOOST_CHECK_EQUAL(wl3.wells().size(), 2 );
|
|
|
|
BOOST_CHECK( wl1.has("W2"));
|
|
BOOST_CHECK( wl1.has("W4"));
|
|
|
|
BOOST_CHECK( !wl2.has("W1"));
|
|
BOOST_CHECK( !wl2.has("W3"));
|
|
|
|
BOOST_CHECK( wl3.has("W1"));
|
|
BOOST_CHECK( wl3.has("W3"));
|
|
}
|
|
}
|