Nektar::Utilities::ProcessQCriterion Class Reference

This processing module calculates the Q Criterion and adds it as an extra-field to the output file. More...

#include <ProcessQCriterion.h>

Inheritance diagram for Nektar::Utilities::ProcessQCriterion:

Collaboration diagram for Nektar::Utilities::ProcessQCriterion:

Public Member Functions
	ProcessQCriterion (FieldSharedPtr f)
virtual	~ProcessQCriterion ()
virtual void	Process (po::variables_map &vm)
	Write mesh to output file. More...
Public Member Functions inherited from Nektar::Utilities::ProcessModule
	ProcessModule ()
	ProcessModule (FieldSharedPtr p_f)
	ProcessModule (MeshSharedPtr p_m)
Public Member Functions inherited from Nektar::Utilities::Module
	Module (FieldSharedPtr p_f)
void	RegisterConfig (string key, string value)
	Register a configuration option with a module. More...
void	PrintConfig ()
	Print out all configuration options for a module. More...
void	SetDefaults ()
	Sets default configuration options for those which have not been set. More...
bool	GetRequireEquiSpaced (void)
void	SetRequireEquiSpaced (bool pVal)
void	EvaluateTriFieldAtEquiSpacedPts (LocalRegions::ExpansionSharedPtr &exp, const Array< OneD, const NekDouble > &infield, Array< OneD, NekDouble > &outfield)
	Module (MeshSharedPtr p_m)
virtual void	Process ()=0
void	RegisterConfig (string key, string value)
void	PrintConfig ()
void	SetDefaults ()
MeshSharedPtr	GetMesh ()
virtual void	ProcessVertices ()
	Extract element vertices. More...
virtual void	ProcessEdges (bool ReprocessEdges=true)
	Extract element edges. More...
virtual void	ProcessFaces (bool ReprocessFaces=true)
	Extract element faces. More...
virtual void	ProcessElements ()
	Generate element IDs. More...
virtual void	ProcessComposites ()
	Generate composites. More...
virtual void	ClearElementLinks ()

Static Public Member Functions
static boost::shared_ptr< Module >	create (FieldSharedPtr f)
	Creates an instance of this class. More...

Static Public Attributes
static ModuleKey	className

Additional Inherited Members
Protected Member Functions inherited from Nektar::Utilities::Module
	Module ()
void	ReorderPrisms (PerMap &perFaces)
	Reorder node IDs so that prisms and tetrahedra are aligned correctly. More...
void	PrismLines (int prism, PerMap &perFaces, set< int > &prismsDone, vector< ElementSharedPtr > &line)
Protected Attributes inherited from Nektar::Utilities::Module
FieldSharedPtr	m_f
	Field object. More...
map< string, ConfigOption >	m_config
	List of configuration values. More...
bool	m_requireEquiSpaced
MeshSharedPtr	m_mesh
	Mesh object. More...

Detailed Description

This processing module calculates the Q Criterion and adds it as an extra-field to the output file.

Definition at line 50 of file ProcessQCriterion.h.

Constructor & Destructor Documentation

Nektar::Utilities::ProcessQCriterion::ProcessQCriterion

(

FieldSharedPtr

f

)

Definition at line 55 of file ProcessQCriterion.cpp.

    : ProcessModule(f)
{
}

Nektar::Utilities::ProcessQCriterion::~ProcessQCriterion ( )

virtual

Definition at line 60 of file ProcessQCriterion.cpp.

{
}

Member Function Documentation

static boost::shared_ptr<Module> Nektar::Utilities::ProcessQCriterion::create ( FieldSharedPtr  f )

inlinestatic

Creates an instance of this class.

Definition at line 54 of file ProcessQCriterion.h.

References Nektar::MemoryManager< DataType >::AllocateSharedPtr().

                                                                {
            return MemoryManager<ProcessQCriterion>::AllocateSharedPtr(f);
        }

void Nektar::Utilities::ProcessQCriterion::Process ( po::variables_map &  vm )

virtual

Write mesh to output file.

Implements Nektar::Utilities::Module.

Definition at line 64 of file ProcessQCriterion.cpp.

References Nektar::iterator, Nektar::Utilities::Module::m_f, Vmath::Smul(), Vmath::Vadd(), Vmath::Vmul(), Vmath::Vsub(), and Vmath::Zero().

{
    if (m_f->m_verbose)
    {
        cout << "ProcessQCriterion: Calculating Q Criterion..." << endl;
    }

    int i, j, s;
    int expdim    = m_f->m_graph->GetMeshDimension();
    int spacedim  = expdim;
    if ((m_f->m_fielddef[0]->m_numHomogeneousDir) == 1 ||
        (m_f->m_fielddef[0]->m_numHomogeneousDir) == 2)
    {
        spacedim = 3;
    }
    int nfields = m_f->m_fielddef[0]->m_fields.size();
    if (spacedim == 1 || spacedim == 2)
    {
        cerr << "\n Error: ProcessQCriterion must be computed for a 3D"
        " (or quasi-3D) case. \n" << endl;
    }

    //For calculating Q-Criterion only 1 field must be added
    int addfields = 1;

    int npoints = m_f->m_exp[0]->GetNpoints();

    Array<OneD, Array<OneD, NekDouble> > grad(nfields * nfields);

    Array<OneD, Array<OneD, NekDouble> > omega(nfields * nfields);
    Array<OneD, Array<OneD, NekDouble> > S    (nfields * nfields);

    Array<OneD, Array<OneD, NekDouble> > outfield (addfields);
    Array<OneD, Array<OneD, NekDouble> > outfield1(addfields);
    Array<OneD, Array<OneD, NekDouble> > outfield2(addfields);
    Array<OneD, Array<OneD, NekDouble> > outfield3(addfields);

    int nstrips;

    m_f->m_session->LoadParameter("Strip_Z",nstrips,1);

    m_f->m_exp.resize(nfields*nstrips);

    for (i = 0; i < nfields*nfields; ++i)
    {
        grad[i] = Array<OneD, NekDouble>(npoints);
    }

    for (i = 0; i < addfields; ++i)
    {
        //Will store the Q-Criterion
        outfield[i] = Array<OneD, NekDouble>(npoints);
        outfield1[i] = Array<OneD, NekDouble>(npoints);
        outfield2[i] = Array<OneD, NekDouble>(npoints);
        outfield3[i] = Array<OneD, NekDouble>(npoints);

        omega[i] = Array<OneD, NekDouble>(npoints);
        S[i] = Array<OneD, NekDouble>(npoints);
    }

    vector<MultiRegions::ExpListSharedPtr> Exp(nstrips*addfields);

    for(s = 0; s < nstrips; ++s) //homogeneous strip varient
    {
        for (i = 0; i < nfields; ++i)
        {
            m_f->m_exp[s*nfields+i]->PhysDeriv(m_f->m_exp[s*nfields+i]->GetPhys(),
                                               grad[i*nfields],
                                               grad[i*nfields+1],
                                               grad[i*nfields+2]);
        }

        // W_x = Wy - Vz
        Vmath::Vsub(npoints, grad[2 * nfields + 1], 1,
                    grad[1 * nfields + 2], 1,
                    outfield1[0],          1);
        // W_x^2
        Vmath::Vmul(npoints, outfield1[0],          1,
                    outfield1[0],          1,
                    outfield1[0],          1);

        // W_y = Uz - Wx
        Vmath::Vsub(npoints, grad[0 * nfields + 2], 1,
                    grad[2 * nfields + 0], 1,
                    outfield2[0],          1);
        // W_y^2
        Vmath::Vmul(npoints, outfield2[0],          1,
                    outfield2[0],          1,
                    outfield2[0],          1);

        // W_z = Vx - Uy
        Vmath::Vsub(npoints, grad[1 * nfields + 0], 1,
                    grad[0 * nfields + 1], 1,
                    outfield3[0],          1);
        // W_z^2
        Vmath::Vmul(npoints, outfield3[0],          1,
                    outfield3[0],          1,
                    outfield3[0],          1);

        // add fields omega = 0.5*(W_x^2 + W_y^2 + W_z^2)

        NekDouble fac = 0.5;
        Vmath::Vadd(npoints, &outfield1[0][0],      1,
                    &outfield2[0][0],      1,
                    &omega[0][0],          1);
        Vmath::Vadd(npoints, &omega[0][0],          1,
                    &outfield3[0][0],      1,
                    &omega[0][0],          1);

        for (int k = 0; k < addfields; ++k)
        {
            Vmath::Smul(npoints, fac, &omega[k][0], 1, &omega[k][0], 1);
        }

        Vmath::Zero(npoints, &outfield1[0][0], 1);
        Vmath::Zero(npoints, &outfield2[0][0], 1);
        Vmath::Zero(npoints, &outfield3[0][0], 1);

        Vmath::Vmul(npoints, grad[0 * nfields + 0], 1,
                    grad[0 * nfields + 0], 1,
                    outfield1[0],          1);
        Vmath::Vmul(npoints, grad[1 * nfields + 1], 1,
                    grad[1 * nfields + 1], 1,
                    outfield2[0],          1);
        Vmath::Vmul(npoints, grad[2 * nfields + 2], 1,
                    grad[2 * nfields + 2], 1,
                    outfield3[0],          1);

        Vmath::Vadd(npoints, &outfield1[0][0], 1,
                    &outfield2[0][0], 1,
                    &S[0][0], 1);
        Vmath::Vadd(npoints, &S[0][0], 1,
                    &outfield3[0][0], 1,
                    &S[0][0], 1);

        // W_y + V_z
        Vmath::Vadd(npoints, grad[2 * nfields + 1], 1,
                    grad[1 * nfields + 2], 1,
                    outfield1[0], 1);
        Vmath::Vmul(npoints, &outfield1[0][0], 1,
                    &outfield1[0][0], 1,
                    &outfield1[0][0], 1);

        // U_z + W_x
        Vmath::Vadd(npoints, grad[0 * nfields + 2], 1,
                    grad[2 * nfields + 0], 1,
                    outfield2[0], 1);
        Vmath::Vmul(npoints, &outfield2[0][0], 1,
                    &outfield2[0][0], 1,
                    &outfield2[0][0], 1);

        // V_x + U_y
        Vmath::Vadd(npoints, grad[1 * nfields + 0], 1,
                    grad[0 * nfields + 1], 1,
                    outfield3[0], 1);
        Vmath::Vmul(npoints, &outfield3[0][0], 1,
                    &outfield3[0][0], 1,
                    &outfield3[0][0], 1);

        Vmath::Vadd(npoints, &outfield1[0][0], 1,
                    &outfield2[0][0], 1,
                    &outfield2[0][0], 1);
        Vmath::Vadd(npoints, &outfield2[0][0], 1,
                    &outfield3[0][0], 1,
                    &outfield3[0][0], 1);

        for (int k = 0; k < addfields; ++k)
        {
            Vmath::Smul(npoints, fac, &outfield3[k][0], 1,
                        &outfield3[k][0], 1);
        }

        Vmath::Vadd(npoints, &outfield3[0][0], 1, &S[0][0], 1, &S[0][0], 1);
        Vmath::Vsub(npoints, omega[0], 1, S[0], 1, outfield[0], 1);

        for (int k = 0; k < addfields; ++k)
        {
            Vmath::Smul(npoints, fac, &outfield[k][0], 1,
                        &outfield[k][0], 1);
        }


        for (i = 0; i < addfields; ++i)
        {
            int n = s*addfields + i;
            Exp[n] = m_f->AppendExpList(m_f->m_fielddef[0]->m_numHomogeneousDir);
            Exp[n]->UpdatePhys() = outfield[i];
            Exp[n]->FwdTrans(outfield[i],
                             Exp[n]->UpdateCoeffs());
        }
    }

    vector<MultiRegions::ExpListSharedPtr>::iterator it;

    for(s = 0; s < nstrips; ++s)
    {
        for(i = 0; i < addfields; ++i)
        {
            it = m_f->m_exp.begin()+s*(nfields+addfields)+nfields+i;
            m_f->m_exp.insert(it, Exp[s*addfields+i]);
        }
    }

    vector<string> outname;
    outname.push_back("Q");

    std::vector<LibUtilities::FieldDefinitionsSharedPtr> FieldDef
        = m_f->m_exp[0]->GetFieldDefinitions();
    std::vector<std::vector<NekDouble> > FieldData(FieldDef.size());

    for(s = 0; s < nstrips; ++s) //homogeneous strip varient
    {
        for (j = 0; j < nfields + addfields; ++j)
        {
            for (i = 0; i < FieldDef.size()/nstrips; ++i)
            {
                int n = s * FieldDef.size()/nstrips + i;

                if (j >= nfields)
                {
                    FieldDef[n]->m_fields.push_back(outname[j-nfields]);
                }
                else
                {
                    FieldDef[n]->m_fields.push_back(
                        m_f->m_fielddef[0]->m_fields[j]);
                }
                m_f->m_exp[s*(nfields + addfields)+j]->AppendFieldData(FieldDef[n], FieldData[n]);
            }
        }
    }

    m_f->m_fielddef = FieldDef;
    m_f->m_data     = FieldData;
}

Member Data Documentation

ModuleKey Nektar::Utilities::ProcessQCriterion::className

static

Initial value:

=
    GetModuleFactory().RegisterCreatorFunction(
        ModuleKey(eProcessModule, "QCriterion"),
        ProcessQCriterion::create, "Computes Q-Criterion.")

Definition at line 57 of file ProcessQCriterion.h.