Nektar::Collections::PhysDeriv_SumFac_Tri Class Reference

Phys deriv operator using sum-factorisation (Tri) More...

Inheritance diagram for Nektar::Collections::PhysDeriv_SumFac_Tri:

Collaboration diagram for Nektar::Collections::PhysDeriv_SumFac_Tri:

Public Member Functions
virtual	~PhysDeriv_SumFac_Tri ()
virtual void	operator() (const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output0, Array< OneD, NekDouble > &output1, Array< OneD, NekDouble > &output2, Array< OneD, NekDouble > &wsp)
	Perform operation. More...
virtual void	operator() (int dir, const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output, Array< OneD, NekDouble > &wsp)
Public Member Functions inherited from Nektar::Collections::Operator
	Operator (std::vector< StdRegions::StdExpansionSharedPtr > pCollExp, boost::shared_ptr< CoalescedGeomData > GeomData)
	Constructor. More...
virtual COLLECTIONS_EXPORT	~Operator ()
int	GetWspSize ()
	Get the size of the required workspace. More...

Protected Attributes
int	m_coordim
const int	m_nquad0
const int	m_nquad1
Array< TwoD, const NekDouble >	m_derivFac
NekDouble *	m_Deriv0
NekDouble *	m_Deriv1
Array< OneD, NekDouble >	m_fac0
Array< OneD, NekDouble >	m_fac1
Protected Attributes inherited from Nektar::Collections::Operator
StdRegions::StdExpansionSharedPtr	m_stdExp
unsigned int	m_numElmt
unsigned int	m_wspSize

Private Member Functions
	PhysDeriv_SumFac_Tri (vector< StdRegions::StdExpansionSharedPtr > pCollExp, CoalescedGeomDataSharedPtr pGeomData)

Detailed Description

Phys deriv operator using sum-factorisation (Tri)

Definition at line 736 of file PhysDeriv.cpp.

Constructor & Destructor Documentation

virtual Nektar::Collections::PhysDeriv_SumFac_Tri::~PhysDeriv_SumFac_Tri ( )

inlinevirtual

Definition at line 741 of file PhysDeriv.cpp.

        {
        }

Nektar::Collections::PhysDeriv_SumFac_Tri::PhysDeriv_SumFac_Tri ( vector< StdRegions::StdExpansionSharedPtr >  pCollExp, CoalescedGeomDataSharedPtr  pGeomData  )

inlineprivate

Definition at line 860 of file PhysDeriv.cpp.

            : Operator (pCollExp, pGeomData),
              m_nquad0 (m_stdExp->GetNumPoints(0)),
              m_nquad1 (m_stdExp->GetNumPoints(1))
        {
            LibUtilities::PointsKeyVector PtsKey = m_stdExp->GetPointsKeys();
            m_coordim = m_stdExp->GetCoordim();

            m_derivFac = pGeomData->GetDerivFactors(pCollExp);

            const Array<OneD, const NekDouble>& z0
                                            = m_stdExp->GetBasis(0)->GetZ();
            const Array<OneD, const NekDouble>& z1
                                            = m_stdExp->GetBasis(1)->GetZ();
            m_fac0 = Array<OneD, NekDouble>(m_nquad0*m_nquad1);
            // set up geometric factor: 0.5*(1+z0)
            for (int i = 0; i < m_nquad0; ++i)
            {
                for(int j = 0; j < m_nquad1; ++j)
                {
                    m_fac0[i+j*m_nquad0] = 0.5*(1+z0[i]);
                }
            }

            m_fac1 = Array<OneD, NekDouble>(m_nquad0*m_nquad1);
            // set up geometric factor: 2/(1-z1)
            for (int i = 0; i < m_nquad0; ++i)
            {
                for(int j = 0; j < m_nquad1; ++j)
                {
                    m_fac1[i+j*m_nquad0] = 2.0/(1-z1[j]);
                }
            }


            m_Deriv0 = &((m_stdExp->GetBasis(0)->GetD())->GetPtr())[0];
            m_Deriv1 = &((m_stdExp->GetBasis(1)->GetD())->GetPtr())[0];
            m_wspSize = 2 * m_nquad0*m_nquad1*m_numElmt;
        }

Member Function Documentation

virtual void Nektar::Collections::PhysDeriv_SumFac_Tri::operator() ( const Array< OneD, const NekDouble > &  input, Array< OneD, NekDouble > &  output0, Array< OneD, NekDouble > &  output1, Array< OneD, NekDouble > &  output2, Array< OneD, NekDouble > &  wsp  )

inlinevirtual

Perform operation.

Implements Nektar::Collections::Operator.

Definition at line 745 of file PhysDeriv.cpp.

References ASSERTL1, Vmath::Vmul(), and Vmath::Vvtvp().

        {
            const int nqtot   = m_nquad0 * m_nquad1;
            const int nqcol   = nqtot*m_numElmt;

            ASSERTL1(wsp.num_elements() == m_wspSize,
                     "Incorrect workspace size");
            ASSERTL1(input.num_elements() >= nqcol,
                     "Incorrect input size");

            Array<OneD, NekDouble> diff0(nqcol, wsp             );
            Array<OneD, NekDouble> diff1(nqcol, wsp    +   nqcol);

            // Tensor Product Derivative
            Blas::Dgemm('N', 'N', m_nquad0, m_nquad1*m_numElmt,
                        m_nquad0, 1.0, m_Deriv0, m_nquad0,
                        input.get(), m_nquad0, 0.0,
                        diff0.get(), m_nquad0);

            int cnt = 0;
            for (int i = 0; i < m_numElmt; ++i, cnt += nqtot)
            {
                // scale diff0 by geometric factor: 2/(1-z1)
                Vmath::Vmul(nqtot,&m_fac1[0],1,diff0.get()+cnt,1,
                            diff0.get()+cnt,1);

                Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
                            input.get() + cnt, m_nquad0,
                            m_Deriv1, m_nquad1, 0.0,
                            diff1.get() + cnt, m_nquad0);

                // add to diff1 by diff0 scaled by: (1_z0)/(1-z1)
                Vmath::Vvtvp(nqtot,m_fac0.get(),1,diff0.get()+cnt,1,
                             diff1.get()+cnt,1,diff1.get()+cnt,1);
            }


            Vmath::Vmul  (nqcol, m_derivFac[0], 1, diff0, 1, output0, 1);
            Vmath::Vvtvp (nqcol, m_derivFac[1], 1, diff1, 1,
                          output0, 1, output0, 1);
            Vmath::Vmul  (nqcol, m_derivFac[2], 1, diff0, 1, output1, 1);
            Vmath::Vvtvp (nqcol, m_derivFac[3], 1, diff1, 1,
                          output1, 1, output1, 1);

            if (m_coordim == 3)
            {
                Vmath::Vmul  (nqcol, m_derivFac[4], 1, diff0, 1,
                              output2, 1);
                Vmath::Vvtvp (nqcol, m_derivFac[5], 1, diff1, 1,
                              output2, 1, output2, 1);
            }
        }

virtual void Nektar::Collections::PhysDeriv_SumFac_Tri::operator() ( int  dir, const Array< OneD, const NekDouble > &  input, Array< OneD, NekDouble > &  output, Array< OneD, NekDouble > &  wsp  )

inlinevirtual

Implements Nektar::Collections::Operator.

Definition at line 803 of file PhysDeriv.cpp.

References ASSERTL1, Vmath::Vmul(), and Vmath::Vvtvp().

        {
            const int nqtot   = m_nquad0 * m_nquad1;
            const int nqcol   = nqtot*m_numElmt;

            ASSERTL1(wsp.num_elements() == m_wspSize,
                     "Incorrect workspace size");
            ASSERTL1(input.num_elements() >= nqcol,
                     "Incorrect input size");

            Array<OneD, NekDouble> diff0(nqcol, wsp             );
            Array<OneD, NekDouble> diff1(nqcol, wsp    +   nqcol);

            // Tensor Product Derivative
            Blas::Dgemm('N', 'N', m_nquad0, m_nquad1*m_numElmt,
                        m_nquad0, 1.0, m_Deriv0, m_nquad0,
                        input.get(), m_nquad0, 0.0,
                        diff0.get(), m_nquad0);

            int cnt = 0;
            for (int i = 0; i < m_numElmt; ++i, cnt += nqtot)
            {
                // scale diff0 by geometric factor: 2/(1-z1)
                Vmath::Vmul(nqtot,&m_fac1[0],1,diff0.get()+cnt,1,
                            diff0.get()+cnt,1);

                Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
                            input.get() + cnt, m_nquad0,
                            m_Deriv1, m_nquad1, 0.0,
                            diff1.get() + cnt, m_nquad0);

                // add to diff1 by diff0 scaled by: (1_z0)/(1-z1)
                Vmath::Vvtvp(nqtot,m_fac0.get(),1,diff0.get()+cnt,1,
                             diff1.get()+cnt,1,diff1.get()+cnt,1);
            }


            Vmath::Vmul  (nqcol, m_derivFac[2*dir]  , 1, diff0, 1, output, 1);
            Vmath::Vvtvp (nqcol, m_derivFac[2*dir+1], 1, diff1, 1, output, 1,
                                                                   output, 1);
        }

Member Data Documentation

int Nektar::Collections::PhysDeriv_SumFac_Tri::m_coordim

protected

Definition at line 850 of file PhysDeriv.cpp.

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Tri::m_Deriv0

protected

Definition at line 854 of file PhysDeriv.cpp.

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Tri::m_Deriv1

protected

Definition at line 855 of file PhysDeriv.cpp.

Array<TwoD, const NekDouble> Nektar::Collections::PhysDeriv_SumFac_Tri::m_derivFac

protected

Definition at line 853 of file PhysDeriv.cpp.

Array<OneD, NekDouble> Nektar::Collections::PhysDeriv_SumFac_Tri::m_fac0

protected

Definition at line 856 of file PhysDeriv.cpp.

Array<OneD, NekDouble> Nektar::Collections::PhysDeriv_SumFac_Tri::m_fac1

protected

Definition at line 857 of file PhysDeriv.cpp.

const int Nektar::Collections::PhysDeriv_SumFac_Tri::m_nquad0

protected

Definition at line 851 of file PhysDeriv.cpp.

const int Nektar::Collections::PhysDeriv_SumFac_Tri::m_nquad1

protected

Definition at line 852 of file PhysDeriv.cpp.