SteadyNSSimple.C

Go to the documentation of this file.

/*---------------------------------------------------------------------------*\
     ██╗████████╗██╗  ██╗ █████╗  ██████╗ █████╗       ███████╗██╗   ██╗
     ██║╚══██╔══╝██║  ██║██╔══██╗██╔════╝██╔══██╗      ██╔════╝██║   ██║
     ██║   ██║   ███████║███████║██║     ███████║█████╗█████╗  ██║   ██║
     ██║   ██║   ██╔══██║██╔══██║██║     ██╔══██║╚════╝██╔══╝  ╚██╗ ██╔╝
     ██║   ██║   ██║  ██║██║  ██║╚██████╗██║  ██║      ██║      ╚████╔╝
     ╚═╝   ╚═╝   ╚═╝  ╚═╝╚═╝  ╚═╝ ╚═════╝╚═╝  ╚═╝      ╚═╝       ╚═══╝
 
 * In real Time Highly Advanced Computational Applications for Finite Volumes
 * Copyright (C) 2017 by the ITHACA-FV authors
-------------------------------------------------------------------------------
 
  License
  This file is part of ITHACA-FV
 
  ITHACA-FV is free software: you can redistribute it and/or modify
  it under the terms of the GNU Lesser General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.
 
  ITHACA-FV 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 Lesser General Public License for more details.
 
  You should have received a copy of the GNU Lesser General Public License
  along with ITHACA-FV. If not, see <http://www.gnu.org/licenses/>.
 
\*---------------------------------------------------------------------------*/
 

 
#include "SteadyNSSimple.H"
#include "viscosityModel.H"
 
// * * * * * * * * * * * * * * * Constructors * * * * * * * * * * * * * * * * //
 
// Constructor
SteadyNSSimple::SteadyNSSimple() {}
 
SteadyNSSimple::SteadyNSSimple(int argc, char* argv[])
    :
    steadyNS(argc, argv)
{
    Info << offline << endl;
    NUmodesOut = para->ITHACAdict->lookupOrDefault<label>("NmodesUout", 15);
    NPmodesOut = para->ITHACAdict->lookupOrDefault<label>("NmodesPout", 15);
    NNutModesOut = para->ITHACAdict->lookupOrDefault<label>("NmodesNutOut", 15);
    NUmodes = para->ITHACAdict->lookupOrDefault<label>("NmodesUproj", 10);
    NPmodes = para->ITHACAdict->lookupOrDefault<label>("NmodesPproj", 10);
    NNutModes = para->ITHACAdict->lookupOrDefault<label>("NmodesNutProj", 0);
}
 
void SteadyNSSimple::getTurbRBF(label NNutModes)
{
    if (NNutModes == 0)
    {
        NNutModes = nutModes.size();
    }
 
    coeffL2 = ITHACAutilities::getCoeffs(nutFields, nutModes, NNutModes);
    samples.resize(NNutModes);
    rbfSplines.resize(NNutModes);
    Eigen::MatrixXd weights;
 
    for (label i = 0; i < NNutModes; i++) // i is the nnumber of th mode
    {
        word weightName = "wRBF_M" + name(i + 1);
 
        if (ITHACAutilities::check_file("./ITHACAoutput/weights/" + weightName))
        {
            samples[i] = new SPLINTER::DataTable(1, 1);
 
            for (label j = 0; j < coeffL2.cols();
                    j++) // j is the number of the nut snapshot
            {
                samples[i]->addSample(mu.row(j), coeffL2(i, j));
            }
 
            ITHACAstream::ReadDenseMatrix(weights, "./ITHACAoutput/weights/", weightName);
            rbfSplines[i] = new SPLINTER::RBFSpline(* samples[i],
                                                    SPLINTER::RadialBasisFunctionType::GAUSSIAN, weights);
            // Info << "Constructing RadialBasisFunction for mode " << i + 1 << endl;
            Info << "Constructing RadialBasisFunction for mode " << i + 1 << endl;
        }
        else
        {
            samples[i] = new SPLINTER::DataTable(1, 1);
 
            for (label j = 0; j < coeffL2.cols();
                    j++) // j is the number of the nut snapshot
            {
                samples[i]->addSample(mu.row(j), coeffL2(i, j));
            }
 
            rbfSplines[i] = new SPLINTER::RBFSpline(* samples[i],
                                                    SPLINTER::RadialBasisFunctionType::GAUSSIAN);
            ITHACAstream::SaveDenseMatrix(rbfSplines[i]->weights,
                                          "./ITHACAoutput/weights/", weightName);
            // Info << "Constructing RadialBasisFunction for mode " << i + 1 << endl;
            Info << "Constructing RadialBasisFunction for mode " << i + 1 << endl;
        }
    }
}
 
void SteadyNSSimple::truthSolve2(List<scalar> mu_now, word Folder)
{
    Time& runTime = _runTime();
    volScalarField& p = _p();
    volVectorField& U = _U();
    fvMesh& mesh = _mesh();
    surfaceScalarField& phi = _phi();
    simpleControl& simple = _simple();
    singlePhaseTransportModel& laminarTransport = _laminarTransport();
    scalar residual = 1;
    scalar uresidual = 1;
    Vector<double> uresidual_v(0, 0, 0);
    scalar presidual = 1;
    scalar csolve = 0;
    turbulence->read();
    std::ofstream res_os;
    std::ofstream snaps_os;
    std::ofstream iters;
    std::ofstream res_U;
    std::ofstream res_P;
    res_os.open(Folder + "/residuals", std::ios_base::app);
    snaps_os.open(Folder + "/snaps", std::ios_base::app);
    iters.open(Folder + "/iters", std::ios_base::app);
    res_U.open(Folder + name(counter) + "/res_U", std::ios_base::app);
    res_P.open(Folder + name(counter) + "/res_P", std::ios_base::app);
    folderN = 0;
    saver = 0;
    middleStep = para->ITHACAdict->lookupOrDefault<label>("middleStep", 20);
    middleExport = para->ITHACAdict->lookupOrDefault<bool>("middleExport", true);
#if defined(OFVER) && (OFVER == 6)
 
    while (simple.loop(runTime) && residual > tolerance && csolve < maxIter )
#else
    while (simple.loop() && residual > tolerance && csolve < maxIter )
#endif
    {
        csolve++;
        saver++;
        Info << "Time = " << runTime.timeName() << nl << endl;
        volScalarField nueff = turbulence->nuEff().ref();
        fvVectorMatrix UEqn
        (
            fvm::div(phi, U)
            - fvm::laplacian(nueff, U)
            - fvc::div(nueff * dev2(T(fvc::grad(U))))
        );
        UEqn.relax();
 
        if (simple.momentumPredictor())
        {
            uresidual_v = solve(UEqn == - fvc::grad(p)).initialResidual();
        }
 
        volVectorField U2(U);
        scalar C = 0;
 
        for (label i = 0; i < 3; i++)
        {
            if (C < uresidual_v[i])
            {
                C = uresidual_v[i];
            }
        }
 
        uresidual = C;
        volScalarField rAU(1.0 / UEqn.A());
        volVectorField HbyA(constrainHbyA(1.0 / UEqn.A() * UEqn.H(), U, p));
        surfaceScalarField phiHbyA("phiHbyA", fvc::flux(HbyA));
        adjustPhi(phiHbyA, U, p);
        tmp<volScalarField> rAtU(rAU);
 
        if (simple.consistent())
        {
            rAtU = 1.0 / (1.0 / rAU - UEqn.H1());
            phiHbyA +=
                fvc::interpolate(rAtU() - rAU) * fvc::snGrad(p) * mesh.magSf();
            HbyA -= (rAU - rAtU()) * fvc::grad(p);
        }
 
        label i = 0;
 
        while (simple.correctNonOrthogonal())
        {
            fvScalarMatrix pEqn
            (
                fvm::laplacian(rAtU(), p) == fvc::div(phiHbyA)
            );
            pEqn.setReference(pRefCell, pRefValue);
 
            if (i == 0)
            {
                presidual = pEqn.solve().initialResidual();
            }
            else
            {
                pEqn.solve().initialResidual();
            }
 
            if (simple.finalNonOrthogonalIter())
            {
                phi = phiHbyA - pEqn.flux();
            }
 
            i++;
        }
 
#include "continuityErrs.H"
        p.relax();
        // Momentum corrector
        U = HbyA - rAtU() * fvc::grad(p);
        U.correctBoundaryConditions();
        residual = max(presidual, uresidual);
        Info << "Time = " << runTime.timeName() << nl << endl;
        laminarTransport.correct();
        turbulence->correct();
 
        if (saver == middleStep && middleExport)
        {
            saver = 0;
            folderN++;
            // if (folderN % 2 == 0)
            // {
            ITHACAstream::exportSolution(U, name(folderN), Folder + name(counter));
            // }
            // else
            // {
            // ITHACAstream::exportSolution(U2, name(folderN), Folder + name(counter));
            // }
            ITHACAstream::exportSolution(p, name(folderN), Folder + name(counter));
            Ufield.append(U.clone());
            Pfield.append(p.clone());
            res_U << uresidual << endl;
            res_P << presidual << endl;
 
            if (ITHACAutilities::isTurbulent())
            {
                auto nut = mesh.lookupObject<volScalarField>("nut");
                ITHACAstream::exportSolution(nut, name(folderN), Folder + name(counter));
                nutFields.append(nut.clone());
            }
        }
    }
 
    snaps_os << folderN + 1 << endl;
    iters << csolve << endl;
    res_os << residual << endl;
    res_os.close();
    res_U.close();
    res_P.close();
    snaps_os.close();
    iters.close();
    runTime.setTime(runTime.startTime(), 0);
 
    if (middleExport)
    {
        ITHACAstream::exportSolution(U, name(folderN + 1), Folder + name(counter));
        ITHACAstream::exportSolution(p, name(folderN + 1), Folder + name(counter));
    }
    else
    {
        ITHACAstream::exportSolution(U, name(counter), Folder);
        ITHACAstream::exportSolution(p, name(counter), Folder);
    }
 
    if (ITHACAutilities::isTurbulent())
    {
        auto nut = mesh.lookupObject<volScalarField>("nut");
        ITHACAstream::exportSolution(nut, name(folderN + 1), Folder + name(counter));
        nutFields.append(nut.clone());
    }
 
    Ufield.append(U.clone());
    Pfield.append(p.clone());
    counter++;
    writeMu(mu_now);
    // --- Fill in the mu_samples with parameters (mu) to be used for the POD sample points
    mu_samples.conservativeResize(mu_samples.rows() + 1, mu_now.size());
 
    for (label i = 0; i < mu_now.size(); i++)
    {
        mu_samples(mu_samples.rows() - 1, i) = mu_now[i];
    }
 
    // Resize to Unitary if not initialized by user (i.e. non-parametric problem)
    if (mu.cols() == 0)
    {
        mu.resize(1, 1);
    }
 
    if (mu_samples.rows() == mu.cols())
    {
        ITHACAstream::exportMatrix(mu_samples, "mu_samples", "eigen",
                                   Folder);
    }
}