- the internal data are contiguous so can broadcast size and internals directly without an intermediate stream. ENH: split out broadcast time for profilingPstream information STYLE: minor Pstream cleanup - UPstream::commsType_ from protected to private, since it already has inlined noexcept getters/setters that should be used. - don't pass unused/unneed tag into low-level MPI reduction templates. Document where tags are not needed - had Pstream::broadcast instead of UPstream::broadcast in internals
87 lines
2.6 KiB
C
87 lines
2.6 KiB
C
/*---------------------------------------------------------------------------*\
|
|
========= |
|
|
\\ / F ield | OpenFOAM: The Open Source CFD Toolbox
|
|
\\ / O peration |
|
|
\\ / A nd | www.openfoam.com
|
|
\\/ M anipulation |
|
|
-------------------------------------------------------------------------------
|
|
Copyright (C) 2022 OpenCFD Ltd.
|
|
-------------------------------------------------------------------------------
|
|
License
|
|
This file is part of OpenFOAM.
|
|
|
|
OpenFOAM 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.
|
|
|
|
OpenFOAM 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 OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
\*---------------------------------------------------------------------------*/
|
|
|
|
#include "UPstream.H"
|
|
#include "PstreamGlobals.H"
|
|
#include "profilingPstream.H"
|
|
|
|
#include <mpi.h>
|
|
|
|
// * * * * * * * * * * * * * * * Member Functions * * * * * * * * * * * * * //
|
|
|
|
bool Foam::UPstream::broadcast
|
|
(
|
|
char* buf,
|
|
const std::streamsize bufSize,
|
|
const label communicator,
|
|
const int rootProcNo
|
|
)
|
|
{
|
|
if (!UPstream::parRun() || UPstream::nProcs(communicator) < 2)
|
|
{
|
|
// Nothing to do - ignore
|
|
return true;
|
|
}
|
|
|
|
//Needed? PstreamGlobals::checkCommunicator(communicator, rootProcNo);
|
|
|
|
if (debug)
|
|
{
|
|
Pout<< "UPstream::broadcast : root:" << rootProcNo
|
|
<< " comm:" << communicator
|
|
<< " size:" << label(bufSize)
|
|
<< Foam::endl;
|
|
}
|
|
if (UPstream::warnComm != -1 && communicator != UPstream::warnComm)
|
|
{
|
|
Pout<< "UPstream::broadcast : root:" << rootProcNo
|
|
<< " comm:" << communicator
|
|
<< " size:" << label(bufSize)
|
|
<< " warnComm:" << UPstream::warnComm
|
|
<< Foam::endl;
|
|
error::printStack(Pout);
|
|
}
|
|
|
|
profilingPstream::beginTiming();
|
|
|
|
bool failed = MPI_Bcast
|
|
(
|
|
buf,
|
|
bufSize,
|
|
MPI_BYTE,
|
|
rootProcNo,
|
|
PstreamGlobals::MPICommunicators_[communicator]
|
|
);
|
|
|
|
profilingPstream::addBroadcastTime();
|
|
|
|
return !failed;
|
|
}
|
|
|
|
|
|
// ************************************************************************* //
|