OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Correctly compute maximum in a parallel flow_ebos run.

Browse Source
This commit is contained in:
Markus Blatt
2017-04-12 13:12:36 +02:00
parent f88e527a0c
commit b72a167c76
1 changed files with 18 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
opm/autodiff/BlackoilModelEbos.hpp
View File

@@ -791,6 +791,8 @@ namespace Opm {
#if HAVE_MPI
if ( comm.size() > 1 )
{
// Initialize maxCoeff with minimum.
std::fill(maxCoeff.begin(), maxCoeff.end(), std::numeric_limits<Scalar>::lowest());
// mask[c] is 1 if we need to compute something in parallel
const auto & pinfo =
boost::any_cast<const ParallelISTLInformation&>(istlSolver().parallelInformation());
@@ -803,7 +805,22 @@ namespace Opm {
{
B_avg[idx] = accumulateMaskedValues(B[ idx ], mask) / double(ncGlobal);
R_sum[idx] = accumulateMaskedValues(R[ idx ], mask);
maxCoeff[idx] = *(std::max_element( tempV[ idx ].begin(), tempV[ idx ].end() ));
if(comm.size()>1)
{
auto mi = mask->begin();
for(auto elem = tempV[idx].begin(), end = tempV[idx].end(); elem != end; ++elem, ++mi)
{
if ( *mi )
{
maxCoeff[idx] = std::max( maxCoeff[idx], *elem);
}
}
}
else
{
maxCoeff[idx] = *(std::max_element( tempV[ idx ].begin(), tempV[ idx ].end() ));
}
assert(np >= np);
if (idx < np) {