Aliasing.cpp File Reference

#include <cstdio>
#include <cstdlib>
#include <LibUtilities/BasicUtils/SessionReader.h>
#include <SolverUtils/Driver.h>
#include <SpatialDomains/MeshGraphIO.h>
#include <IncNavierStokesSolver/AdvectionTerms/NavierStokesAdvection.h>
#include <IncNavierStokesSolver/EquationSystems/IncNavierStokes.h>

Go to the source code of this file.

Functions
int	main (int argc, char *argv[])

Function Documentation

main()

int main	(	int	argc,
		char *	argv[]
	)

Definition at line 49 of file Aliasing.cpp.

{
    if (argc != 2)
    {
        fprintf(stderr, "Usage: ./Aliasing file.xml \n");
        fprintf(stderr, "\t Method will read intiial conditions section of "
                        ".xml file for input \n");
        exit(1);
    }
 
    LibUtilities::SessionReaderSharedPtr session;
    SpatialDomains::MeshGraphSharedPtr graph;
    string vDriverModule;
    DriverSharedPtr drv;
    try
    {
        // Create session reader.
        session = LibUtilities::SessionReader::CreateInstance(argc, argv);
 
        // Create MeshGraph.
        graph = SpatialDomains::MeshGraphIO::Read(session);
 
        // Create driver
        session->LoadSolverInfo("Driver", vDriverModule, "Standard");
        drv = GetDriverFactory().CreateInstance(vDriverModule, session, graph);
 
        EquationSystemSharedPtr EqSys   = drv->GetEqu()[0];
        IncNavierStokesSharedPtr IncNav = EqSys->as<IncNavierStokes>();
 
        IncNav->SetInitialConditions(0.0, false);
        Array<OneD, MultiRegions::ExpListSharedPtr> fields =
            IncNav->UpdateFields();
 
        int i;
        int nConvectiveFields = IncNav->GetNConvectiveFields();
        int nphys             = fields[0]->GetTotPoints();
        Array<OneD, Array<OneD, NekDouble>> VelFields(nConvectiveFields);
        Array<OneD, Array<OneD, NekDouble>> NonLinear(nConvectiveFields);
        Array<OneD, Array<OneD, NekDouble>> NonLinearDealiased(
            nConvectiveFields);
 
        for (i = 0; i < nConvectiveFields; ++i)
        {
            VelFields[i]          = fields[i]->UpdatePhys();
            NonLinear[i]          = Array<OneD, NekDouble>(nphys);
            NonLinearDealiased[i] = Array<OneD, NekDouble>(nphys);
        }
 
        std::shared_ptr<NavierStokesAdvection> A =
            std::dynamic_pointer_cast<NavierStokesAdvection>(
                IncNav->GetAdvObject());
 
        if (!A)
        {
            cout << "Must use non-linear Navier-Stokes advection" << endl;
            exit(-1);
        }
 
        // calculate non-linear terms without dealiasing
        A->SetSpecHPDealiasing(false);
        A->Advect(nConvectiveFields, fields, VelFields, VelFields, NonLinear,
                  0.0);
 
        // calculate non-linear terms with dealiasing
        A->SetSpecHPDealiasing(true);
        A->Advect(nConvectiveFields, fields, VelFields, VelFields,
                  NonLinearDealiased, 0.0);
 
        // Evaulate Difference and put into fields;
        for (i = 0; i < nConvectiveFields; ++i)
        {
            Vmath::Vsub(nphys, NonLinearDealiased[i], 1, NonLinear[i], 1,
                        NonLinear[i], 1);
            fields[i]->FwdTransLocalElmt(NonLinear[i],
                                         fields[i]->UpdateCoeffs());
            // Need to reset varibale name for output
            string name = "NL_Aliasing_" + session->GetVariable(i);
            session->SetVariable(i, name.c_str());
        }
 
        // Reset session name for output file
        std::string outname = IncNav->GetSessionName();
 
        outname += "_NonLinear_Aliasing";
        IncNav->ResetSessionName(outname);
        IncNav->Output();
    }
    catch (const std::runtime_error &)
    {
        return 1;
    }
    catch (const std::string &eStr)
    {
        cout << "Error: " << eStr << endl;
    }
 
    return 0;
}

References Nektar::LibUtilities::NekFactory< tKey, tBase, tParam >::CreateInstance(), Nektar::SolverUtils::GetDriverFactory(), CellMLToNektar.pycml::name, Nektar::SolverUtils::EquationSystem::SetInitialConditions(), and Vmath::Vsub().