2011-06-20 00:52:40 +00:00
|
|
|
/*---------------------------------------------------------------------------*\
|
|
|
|
|
========= |
|
2013-12-11 16:09:41 +00:00
|
|
|
\\ / F ield | foam-extend: Open Source CFD
|
2016-06-20 15:00:40 +00:00
|
|
|
\\ / O peration | Version: 4.0
|
2015-05-17 13:32:07 +00:00
|
|
|
\\ / A nd | Web: http://www.foam-extend.org
|
|
|
|
|
\\/ M anipulation | For copyright notice see file Copyright
|
2011-06-20 00:52:40 +00:00
|
|
|
-------------------------------------------------------------------------------
|
|
|
|
|
License
|
2013-12-11 16:09:41 +00:00
|
|
|
This file is part of foam-extend.
|
2011-06-20 00:52:40 +00:00
|
|
|
|
2013-12-11 16:09:41 +00:00
|
|
|
foam-extend is free software: you can redistribute it and/or modify it
|
2011-06-20 00:52:40 +00:00
|
|
|
under the terms of the GNU General Public License as published by the
|
2013-12-11 16:09:41 +00:00
|
|
|
Free Software Foundation, either version 3 of the License, or (at your
|
2011-06-20 00:52:40 +00:00
|
|
|
option) any later version.
|
|
|
|
|
|
2013-12-11 16:09:41 +00:00
|
|
|
foam-extend 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.
|
2011-06-20 00:52:40 +00:00
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
2013-12-11 16:09:41 +00:00
|
|
|
along with foam-extend. If not, see <http://www.gnu.org/licenses/>.
|
2011-06-20 00:52:40 +00:00
|
|
|
|
|
|
|
|
Application
|
|
|
|
|
multiSolver
|
|
|
|
|
|
|
|
|
|
Description
|
|
|
|
|
Post-processor utility required for working with multiSolver-enabled
|
|
|
|
|
applications. These applications store data output in a different
|
|
|
|
|
location than usual. This utility loads and unloads data from that
|
|
|
|
|
location to where post-processors expect it.
|
|
|
|
|
|
|
|
|
|
Author
|
|
|
|
|
David L. F. Gaden
|
|
|
|
|
|
|
|
|
|
\*---------------------------------------------------------------------------*/
|
|
|
|
|
|
|
|
|
|
#include "fvCFD.H"
|
|
|
|
|
#include "multiSolver.H"
|
|
|
|
|
|
|
|
|
|
void parseOptions
|
|
|
|
|
(
|
|
|
|
|
wordList * ptrSolverDomains,
|
|
|
|
|
labelList * ptrSuperLoops,
|
|
|
|
|
string options
|
|
|
|
|
)
|
|
|
|
|
{
|
|
|
|
|
IStringStream optionsStream(options);
|
|
|
|
|
label nSolverDomains(0);
|
|
|
|
|
label nSuperLoops(0);
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// Get solverDomainNames, if any
|
|
|
|
|
while (not optionsStream.eof())
|
|
|
|
|
{
|
|
|
|
|
token nextOption(optionsStream);
|
2013-08-29 22:04:32 +00:00
|
|
|
|
|
|
|
|
// Bug workaround
|
2015-06-19 15:50:25 +00:00
|
|
|
if (nextOption.type() == token::FATALERROR)
|
2013-08-29 22:04:32 +00:00
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
if (nextOption.isLabel())
|
|
|
|
|
{
|
|
|
|
|
ptrSuperLoops->setSize(++nSuperLoops);
|
|
|
|
|
ptrSuperLoops->operator[](nSuperLoops - 1)
|
|
|
|
|
= nextOption.labelToken();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
if (nextOption.isWord())
|
|
|
|
|
{
|
|
|
|
|
ptrSolverDomains->setSize(++nSolverDomains);
|
|
|
|
|
ptrSolverDomains->operator[](nSolverDomains - 1)
|
|
|
|
|
= nextOption.wordToken();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
// not word, not label, fail
|
|
|
|
|
FatalErrorIn("multiSolver::parseOptions")
|
|
|
|
|
<< "Expecting word or label. Neither found at position "
|
|
|
|
|
<< nSolverDomains - 1 << " in " << options
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
}
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// Get superLoopList
|
|
|
|
|
while (not optionsStream.eof())
|
|
|
|
|
{
|
|
|
|
|
token nextOption(optionsStream);
|
2013-08-29 22:04:32 +00:00
|
|
|
|
|
|
|
|
// Bug workaround
|
2015-06-19 15:50:25 +00:00
|
|
|
if (nextOption.type() == token::FATALERROR)
|
2013-08-29 22:04:32 +00:00
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
if (nextOption.isLabel())
|
|
|
|
|
{
|
|
|
|
|
ptrSuperLoops->setSize(++nSuperLoops);
|
|
|
|
|
ptrSuperLoops->operator[](nSuperLoops - 1)
|
|
|
|
|
= nextOption.labelToken();
|
|
|
|
|
}
|
2014-06-01 18:12:52 +00:00
|
|
|
else if (nSuperLoops > 0)
|
2011-06-20 00:52:40 +00:00
|
|
|
{
|
|
|
|
|
// might be a range -> label : label
|
|
|
|
|
|
|
|
|
|
if (nextOption.isPunctuation())
|
|
|
|
|
{
|
|
|
|
|
token::punctuationToken p(nextOption.pToken());
|
|
|
|
|
if (p == token::COLON)
|
|
|
|
|
{
|
|
|
|
|
token nextNextOption(optionsStream);
|
|
|
|
|
if (nextNextOption.isLabel())
|
|
|
|
|
{
|
|
|
|
|
label toValue(nextNextOption.labelToken());
|
|
|
|
|
label fromValue
|
|
|
|
|
(
|
|
|
|
|
ptrSuperLoops->operator[](nSuperLoops - 1)
|
|
|
|
|
);
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
if (toValue > fromValue)
|
|
|
|
|
{
|
|
|
|
|
// correct range format
|
|
|
|
|
for (label i = fromValue + 1; i <= toValue; i++)
|
|
|
|
|
{
|
|
|
|
|
ptrSuperLoops->setSize(++nSuperLoops);
|
|
|
|
|
ptrSuperLoops->operator[](nSuperLoops - 1) = i;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
// greater than / less than, range
|
|
|
|
|
FatalErrorIn("multiSolver::parseOptions")
|
|
|
|
|
<< "superLoop range incorrect order. 'from : "
|
|
|
|
|
<< "to' where 'from' should be less than "
|
|
|
|
|
<< "'to'. Values read are '" << fromValue
|
|
|
|
|
<< " : " << toValue
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
// nextNext not label
|
|
|
|
|
FatalErrorIn("multiSolver::parseOptions")
|
|
|
|
|
<< "Incorrect syntax. Expecting label after ':' "
|
|
|
|
|
<< "in " << options
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
// non : punctuation
|
|
|
|
|
FatalErrorIn("multiSolver::parseOptions")
|
|
|
|
|
<< "Incorrect syntax. Expecting label, word, or ':' "
|
|
|
|
|
<< "in " << options
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
// not punctuation
|
|
|
|
|
FatalErrorIn("multiSolver::parseOptions")
|
|
|
|
|
<< "Incorrect syntax. Expecting label, word, or ':' "
|
|
|
|
|
<< "in " << options
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
// not label, not word
|
|
|
|
|
FatalErrorIn("multiSolver::parseOptions")
|
|
|
|
|
<< "Incorrect syntax. Expecting label, word, or ':' "
|
|
|
|
|
<< "in " << options
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
|
|
|
|
|
|
|
|
|
|
int main(int argc, char *argv[])
|
|
|
|
|
{
|
|
|
|
|
argList::validOptions.insert("list","");
|
|
|
|
|
argList::validOptions.insert
|
|
|
|
|
(
|
|
|
|
|
"load","<[solverDomainName] [superLoopNumber(s)]>"
|
|
|
|
|
);
|
|
|
|
|
argList::validOptions.insert
|
|
|
|
|
(
|
|
|
|
|
"purge","<[solverDomainName] [superLoopNumber(s)]>"
|
|
|
|
|
);
|
|
|
|
|
argList::validOptions.insert("set","<solverDomainName>");
|
|
|
|
|
argList::validOptions.insert("preDecompose", "");
|
|
|
|
|
argList::validOptions.insert("postDecompose", "");
|
|
|
|
|
argList::validOptions.insert("preReconstruct", "");
|
|
|
|
|
argList::validOptions.insert("postReconstruct", "");
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
argList::validOptions.insert("global","");
|
|
|
|
|
argList::validOptions.insert("local","");
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// default behaviour is purge the case/[time] directory before '-load'
|
|
|
|
|
// command. '-noPurge' prevents this. Allows for more complicated
|
|
|
|
|
// load data selections by executing multiSolver several times
|
|
|
|
|
argList::validOptions.insert("noPurge","");
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// default behaviour is: if there is only one solverDomain specified, use
|
|
|
|
|
// setSolverDomain() on it. Same as multiSolver -set solverDomain.
|
|
|
|
|
// '-noSet' prevents this.
|
|
|
|
|
argList::validOptions.insert("noSet","");
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// default behaviour is: if there are storeFields defined, when loading, it
|
|
|
|
|
// will copy the store fields into every time instance where they are
|
|
|
|
|
// absent. '-noStore' will prevent this.
|
|
|
|
|
argList::validOptions.insert("noStore","");
|
|
|
|
|
|
|
|
|
|
# include "setRootCase.H"
|
|
|
|
|
|
|
|
|
|
enum commandType
|
|
|
|
|
{
|
|
|
|
|
list,
|
|
|
|
|
load,
|
|
|
|
|
purge,
|
|
|
|
|
set,
|
|
|
|
|
preDecompose,
|
|
|
|
|
postDecompose,
|
|
|
|
|
preReconstruct,
|
|
|
|
|
postReconstruct
|
|
|
|
|
};
|
|
|
|
|
commandType command;
|
|
|
|
|
string options;
|
|
|
|
|
bool global = false;
|
|
|
|
|
bool local = false;
|
|
|
|
|
bool all = false;
|
|
|
|
|
bool root = false;
|
|
|
|
|
bool noPurge = false;
|
|
|
|
|
bool noSet = false;
|
|
|
|
|
bool noStore = false;
|
|
|
|
|
label nCommands(0);
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// Read arguments
|
|
|
|
|
if (args.optionFound("list"))
|
|
|
|
|
{
|
|
|
|
|
nCommands++;
|
|
|
|
|
command = list;
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("load"))
|
|
|
|
|
{
|
|
|
|
|
nCommands++;
|
|
|
|
|
command = load;
|
|
|
|
|
options = args.options()["load"];
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("purge"))
|
|
|
|
|
{
|
|
|
|
|
nCommands++;
|
|
|
|
|
command = purge;
|
|
|
|
|
options = args.options()["purge"];
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("set"))
|
|
|
|
|
{
|
|
|
|
|
nCommands++;
|
|
|
|
|
command = set;
|
|
|
|
|
options = args.options()["set"];
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("preDecompose"))
|
|
|
|
|
{
|
|
|
|
|
nCommands++;
|
|
|
|
|
command = preDecompose;
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("postDecompose"))
|
|
|
|
|
{
|
|
|
|
|
nCommands++;
|
|
|
|
|
command = postDecompose;
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("preReconstruct"))
|
|
|
|
|
{
|
|
|
|
|
nCommands++;
|
|
|
|
|
command = preReconstruct;
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("postReconstruct"))
|
|
|
|
|
{
|
|
|
|
|
nCommands++;
|
|
|
|
|
command = postReconstruct;
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("global"))
|
|
|
|
|
{
|
|
|
|
|
global = true;
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("local"))
|
|
|
|
|
{
|
|
|
|
|
local = true;
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("noPurge"))
|
|
|
|
|
{
|
|
|
|
|
noPurge = true;
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("noSet"))
|
|
|
|
|
{
|
|
|
|
|
noSet = true;
|
|
|
|
|
}
|
|
|
|
|
if (args.optionFound("noStore"))
|
|
|
|
|
{
|
|
|
|
|
noStore = true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Error checking
|
|
|
|
|
if (nCommands == 0)
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "multiSolver - nothing to do. Use 'multiSolver -help' for assistance."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
else if (nCommands > 1)
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "More than one command found. Use only one of:"
|
|
|
|
|
<< "\n\t-list"
|
|
|
|
|
<< "\n\t-purge"
|
|
|
|
|
<< "\n\t-set"
|
|
|
|
|
<< "\n\t-preDecompose"
|
|
|
|
|
<< "\n\t-postDecompose"
|
|
|
|
|
<< "\n\t-preReconstruct"
|
|
|
|
|
<< "\n\t-postReconstruct\n"
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
if (global && local)
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "Options global and local both specified. Use only one or "
|
|
|
|
|
<< "none."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
if ((command != load) && (noPurge || noSet || noStore))
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "'noPurge', 'noSet' and 'noStore' can only be used with the "
|
|
|
|
|
<< "'-load' command."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
multiSolver multiRun
|
|
|
|
|
(
|
|
|
|
|
Foam::multiSolver::multiControlDictName,
|
|
|
|
|
args.rootPath(),
|
|
|
|
|
args.caseName()
|
|
|
|
|
);
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
const IOdictionary& mcd(multiRun.multiControlDict());
|
|
|
|
|
wordList solverDomains(0);
|
|
|
|
|
labelList superLoops(0);
|
|
|
|
|
if
|
|
|
|
|
(
|
|
|
|
|
(command != list)
|
|
|
|
|
&& (command != preDecompose)
|
|
|
|
|
&& (command != postDecompose)
|
|
|
|
|
&& (command != preReconstruct)
|
|
|
|
|
&& (command != postReconstruct)
|
|
|
|
|
)
|
|
|
|
|
{
|
|
|
|
|
parseOptions(&solverDomains, &superLoops, options);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Special words - all, root
|
|
|
|
|
if (solverDomains.size() == 1)
|
|
|
|
|
{
|
|
|
|
|
if (solverDomains[0] == "all")
|
|
|
|
|
{
|
|
|
|
|
all = true;
|
|
|
|
|
}
|
|
|
|
|
else if (solverDomains[0] == "root")
|
|
|
|
|
{
|
|
|
|
|
root = true;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// More error checking
|
|
|
|
|
if (root && ((command == load) || (command == set)))
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "'root' is not a valid option with '-load' or '-set'"
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
if (all && (command == set))
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "'all' is not a valid option with '-set'"
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
if ((command == set) && ((solverDomains.size() > 1) || superLoops.size()))
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "'-set' can only have a single solverDomain name as an option."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
if (all && superLoops.size())
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "'all' cannot be followed by superLoop numbers. To specify "
|
|
|
|
|
<< "a superLoop range for all solverDomains, omit the solverDomain"
|
|
|
|
|
<< " name entirely. e.g. multiSolver -load '0:4 6'"
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
if (root && superLoops.size())
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "'root' cannot be followed by superLoop numbers. 'root' refers"
|
|
|
|
|
<< " to case/[time] directories. There are no superLoops here."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Check for correct solverDomain names
|
|
|
|
|
if
|
|
|
|
|
(
|
|
|
|
|
!all
|
|
|
|
|
&& !root
|
|
|
|
|
&& (command != list)
|
|
|
|
|
&& (command != preDecompose)
|
|
|
|
|
&& (command != postDecompose)
|
|
|
|
|
&& (command != preReconstruct)
|
|
|
|
|
&& (command != postReconstruct)
|
|
|
|
|
)
|
|
|
|
|
{
|
|
|
|
|
forAll(solverDomains, i)
|
|
|
|
|
{
|
|
|
|
|
if (solverDomains[i] == "default")
|
|
|
|
|
{
|
|
|
|
|
// default not permitted
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "'default' is not a permitted solverDomain name."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
if (!mcd.subDict("solverDomains").found(solverDomains[i]))
|
|
|
|
|
{
|
|
|
|
|
// Incorrect solver domain name
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
2013-08-29 22:04:32 +00:00
|
|
|
<< "solverDomainName " << solverDomains[i] << "is not "
|
2011-06-20 00:52:40 +00:00
|
|
|
<< "found."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Load specified timeClusterLists
|
|
|
|
|
timeClusterList tclSource(0);
|
|
|
|
|
|
|
|
|
|
if (all)
|
|
|
|
|
{
|
|
|
|
|
// read all
|
|
|
|
|
tclSource = multiRun.readAllTimes();
|
|
|
|
|
forAll(tclSource, i)
|
|
|
|
|
{
|
|
|
|
|
if (tclSource[i].superLoop() == -1)
|
|
|
|
|
{
|
|
|
|
|
tclSource[i].times().clear();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
tclSource.purgeEmpties();
|
|
|
|
|
}
|
|
|
|
|
else if
|
|
|
|
|
(
|
|
|
|
|
!superLoops.size()
|
|
|
|
|
&& (command != set)
|
|
|
|
|
&& (command != list)
|
|
|
|
|
&& (command != preDecompose)
|
|
|
|
|
&& (command != postDecompose)
|
|
|
|
|
&& (command != preReconstruct)
|
|
|
|
|
&& (command != postReconstruct)
|
|
|
|
|
)
|
|
|
|
|
{
|
|
|
|
|
// no superLoops specified - read entire solverDomains
|
|
|
|
|
forAll (solverDomains, sd)
|
|
|
|
|
{
|
|
|
|
|
tclSource.append
|
|
|
|
|
(
|
|
|
|
|
multiRun.readSolverDomainTimes(solverDomains[sd])
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if
|
|
|
|
|
(
|
|
|
|
|
!root
|
|
|
|
|
&& (command != set)
|
|
|
|
|
&& (command != list)
|
|
|
|
|
&& (command != preDecompose)
|
|
|
|
|
&& (command != postDecompose)
|
|
|
|
|
&& (command != preReconstruct)
|
|
|
|
|
&& (command != postReconstruct)
|
|
|
|
|
)
|
|
|
|
|
{
|
|
|
|
|
// read individual superLoops
|
|
|
|
|
if (!solverDomains.size())
|
|
|
|
|
{
|
|
|
|
|
solverDomains = mcd.subDict("solverDomains").toc();
|
|
|
|
|
}
|
|
|
|
|
forAll(superLoops, sl)
|
|
|
|
|
{
|
|
|
|
|
forAll(solverDomains, sd)
|
|
|
|
|
{
|
|
|
|
|
if (solverDomains[sd] == "default") continue;
|
|
|
|
|
tclSource.append
|
|
|
|
|
(
|
|
|
|
|
multiRun.readSuperLoopTimes
|
|
|
|
|
(
|
|
|
|
|
solverDomains[sd],
|
|
|
|
|
superLoops[sl]
|
|
|
|
|
)
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (tclSource.size())
|
|
|
|
|
{
|
|
|
|
|
if (!tclSource.purgeEmpties())
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "No data found with specified parameters."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
2014-06-01 18:12:52 +00:00
|
|
|
}
|
2011-06-20 00:52:40 +00:00
|
|
|
|
|
|
|
|
switch (command)
|
|
|
|
|
{
|
|
|
|
|
case list:
|
|
|
|
|
{
|
|
|
|
|
Info << "Listing available data:\n" << endl;
|
|
|
|
|
Info << "superLoops by solverDomain:" << endl;
|
|
|
|
|
solverDomains = mcd.subDict("solverDomains").toc();
|
|
|
|
|
fileName listPath
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path()/"multiSolver"
|
|
|
|
|
);
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
forAll(solverDomains, i)
|
|
|
|
|
{
|
|
|
|
|
if (solverDomains[i] == "default") continue;
|
|
|
|
|
Info << solverDomains[i] << ":" << endl;
|
|
|
|
|
Info << multiRun.findSuperLoops(listPath/solverDomains[i])
|
|
|
|
|
<< endl;
|
|
|
|
|
}
|
|
|
|
|
Info << endl;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
case load:
|
|
|
|
|
{
|
|
|
|
|
// Default behaviour - use local time unless overlapping, then use
|
|
|
|
|
// global time; if global overlaps, fail. -local and -global force
|
|
|
|
|
// the behaviour
|
|
|
|
|
bool localOverlap(!multiRun.nonOverlapping(tclSource, false));
|
|
|
|
|
bool globalOverlap(!multiRun.nonOverlapping(tclSource, true));
|
|
|
|
|
if (local && localOverlap)
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "'-local' option used for data with overlapping local "
|
|
|
|
|
<< "values. Try using a single solverDomain / superLoop, "
|
|
|
|
|
<< "or leave '-local' off."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
if (globalOverlap)
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiSolver::main")
|
|
|
|
|
<< "globalTime values are overlapping. This should not "
|
|
|
|
|
<< "happen. Ensure you have not specified the same "
|
|
|
|
|
<< "solverDomain and/or superLoop more than once. If "
|
|
|
|
|
<< "that fails, try using 'multiSolver -purge all' and "
|
|
|
|
|
<< "rerunning the simulation. If the problem persists, "
|
|
|
|
|
<< "it is a bug."
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!noPurge)
|
|
|
|
|
{
|
|
|
|
|
Info << "Purging existing time directories in case root"
|
|
|
|
|
<< endl;
|
|
|
|
|
multiRun.purgeTimeDirs(multiRun.multiDictRegistry().path());
|
|
|
|
|
}
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
Info << "Loading data from multiSolver directories to case root"
|
|
|
|
|
<< endl;
|
|
|
|
|
if
|
|
|
|
|
(
|
|
|
|
|
!multiRun.loadTimeClusterList
|
|
|
|
|
(
|
|
|
|
|
tclSource,
|
|
|
|
|
global || localOverlap,
|
|
|
|
|
!noStore
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
{
|
|
|
|
|
FatalErrorIn("multiRun::main")
|
|
|
|
|
<< "loadTimeClusterList failed. timeClusterList contents: "
|
|
|
|
|
<< tclSource
|
|
|
|
|
<< abort(FatalError);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
case purge:
|
|
|
|
|
if (root)
|
|
|
|
|
{
|
|
|
|
|
Info << "Purging time directories from case root" << endl;
|
|
|
|
|
multiRun.purgeTimeDirs(multiRun.multiDictRegistry().path());
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
Info << "Purging time directories from multiSolver directories"
|
|
|
|
|
<< endl;
|
|
|
|
|
forAll(tclSource, i)
|
|
|
|
|
{
|
|
|
|
|
// do not purge 'initial' directory, even if specified
|
|
|
|
|
if (tclSource[i].superLoop() < 0) continue;
|
|
|
|
|
fileName purgePath
|
|
|
|
|
(
|
|
|
|
|
multiRun.findInstancePath(tclSource[i], 0).path()
|
|
|
|
|
);
|
|
|
|
|
rmDir(purgePath);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
case set:
|
|
|
|
|
// do nothing here
|
|
|
|
|
break;
|
|
|
|
|
case preDecompose:
|
|
|
|
|
{
|
|
|
|
|
Info << "Performing preDecompose" << endl;
|
|
|
|
|
multiRun.preCondition();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
case postDecompose:
|
|
|
|
|
{
|
|
|
|
|
Info << "Performing postDecompose" << endl;
|
|
|
|
|
|
|
|
|
|
fileNameList dirEntries
|
|
|
|
|
(
|
|
|
|
|
readDir
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path(), fileName::DIRECTORY
|
|
|
|
|
)
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
forAll(dirEntries, de)
|
|
|
|
|
{
|
|
|
|
|
if (dirEntries[de](9) == "processor")
|
|
|
|
|
{
|
|
|
|
|
Info << "Reading " << dirEntries[de] << endl;
|
|
|
|
|
|
|
|
|
|
multiRun.postCondition
|
|
|
|
|
(
|
|
|
|
|
dirEntries[de]
|
|
|
|
|
);
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// Copy system to processorN
|
|
|
|
|
cp
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path()
|
|
|
|
|
/multiRun.multiDictRegistry().system(),
|
|
|
|
|
multiRun.multiDictRegistry().path()/dirEntries[de]
|
|
|
|
|
);
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// Copy constant/files to processorN/constant
|
|
|
|
|
fileNameList constantContents
|
|
|
|
|
(
|
|
|
|
|
readDir
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path()
|
|
|
|
|
/multiRun.multiDictRegistry().constant(),
|
|
|
|
|
fileName::FILE
|
|
|
|
|
)
|
|
|
|
|
);
|
|
|
|
|
forAll(constantContents, cc)
|
|
|
|
|
{
|
|
|
|
|
cp
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path()
|
|
|
|
|
/multiRun.multiDictRegistry().constant()
|
|
|
|
|
/constantContents[cc],
|
|
|
|
|
multiRun.multiDictRegistry().path()/dirEntries[de]
|
|
|
|
|
/multiRun.multiDictRegistry().constant()
|
|
|
|
|
);
|
|
|
|
|
}
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// Copy constant/directories to processorN/constant
|
|
|
|
|
constantContents = readDir
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path()
|
|
|
|
|
/multiRun.multiDictRegistry().constant(),
|
|
|
|
|
fileName::DIRECTORY
|
|
|
|
|
);
|
|
|
|
|
forAll(constantContents, cc)
|
|
|
|
|
{
|
|
|
|
|
// Ingore mesh directory
|
|
|
|
|
if (constantContents[cc] == "polyMesh")
|
|
|
|
|
{
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
cp
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path()
|
|
|
|
|
/multiRun.multiDictRegistry().constant()
|
|
|
|
|
/constantContents[cc],
|
|
|
|
|
multiRun.multiDictRegistry().path()/dirEntries[de]
|
|
|
|
|
/multiRun.multiDictRegistry().constant()
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
multiRun.purgeTimeDirs(multiRun.multiDictRegistry().path());
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
case preReconstruct:
|
|
|
|
|
{
|
|
|
|
|
Info << "Performing preReconstruct" << endl;
|
|
|
|
|
fileNameList dirEntries
|
|
|
|
|
(
|
|
|
|
|
readDir
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path(), fileName::DIRECTORY
|
|
|
|
|
)
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
forAll(dirEntries, de)
|
|
|
|
|
{
|
|
|
|
|
if (dirEntries[de](9) == "processor")
|
|
|
|
|
{
|
|
|
|
|
Info << "Reading " << dirEntries[de] << endl;
|
|
|
|
|
multiRun.preCondition
|
|
|
|
|
(
|
|
|
|
|
dirEntries[de]
|
|
|
|
|
);
|
|
|
|
|
// Fix missing 0.00000e+00 directory if it exists
|
|
|
|
|
mkDir
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path()/dirEntries[de]/"0"
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
case postReconstruct:
|
|
|
|
|
{
|
|
|
|
|
Info << "Performing postReconstruct" << endl;
|
|
|
|
|
|
|
|
|
|
Info << "Reading preconditioned time directories" << endl;
|
|
|
|
|
multiRun.postCondition();
|
|
|
|
|
|
|
|
|
|
Info << "Purging preconditioned time directories"
|
|
|
|
|
<< endl;
|
2014-06-01 18:12:52 +00:00
|
|
|
|
2011-06-20 00:52:40 +00:00
|
|
|
// Clean up extra time directories
|
|
|
|
|
fileNameList dirEntries
|
|
|
|
|
(
|
|
|
|
|
readDir
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path(), fileName::DIRECTORY
|
|
|
|
|
)
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
forAll(dirEntries, de)
|
|
|
|
|
{
|
|
|
|
|
if (dirEntries[de](9) == "processor")
|
|
|
|
|
{
|
|
|
|
|
multiRun.purgeTimeDirs
|
|
|
|
|
(
|
|
|
|
|
multiRun.multiDictRegistry().path()/dirEntries[de]
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// Execute set command - either from an explicit '-set' or from a '-load'
|
|
|
|
|
// with only one solverDomain as an option
|
|
|
|
|
|
2014-06-01 18:12:52 +00:00
|
|
|
if
|
2011-06-20 00:52:40 +00:00
|
|
|
(
|
|
|
|
|
(command == set)
|
|
|
|
|
|| (
|
|
|
|
|
(command == load)
|
|
|
|
|
&& (solverDomains.size() == 1)
|
|
|
|
|
&& (!all)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
{
|
|
|
|
|
Info << "Changing to " << solverDomains[0] << " settings." << endl;
|
|
|
|
|
multiRun.setSolverDomainPostProcessing(solverDomains[0]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
Info << "\nCommand completed successfully.\n" << endl;
|
|
|
|
|
return(0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// ************************************************************************* //
|
