///////////////////////////////////////////////////////////////////////////////
//
// File AdjointAdvection.h
//
// For more information, please see: http://www.nektar.info
//
// The MIT License
//
// Copyright (c) 2006 Division of Applied Mathematics, Brown University (USA),
// Department of Aeronautics, Imperial College London (UK), and Scientific
// Computing and Imaging Institute, University of Utah (USA).
//
// License for the specific language governing rights and limitations under
// Permission is hereby granted, free of charge, to any person obtaining a
// copy of this software and associated documentation files (the "Software"),
// to deal in the Software without restriction, including without limitation
// the rights to use, copy, modify, merge, publish, distribute, sublicense,
// and/or sell copies of the Software, and to permit persons to whom the
// Software is furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included
// in all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
// OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
// THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
// DEALINGS IN THE SOFTWARE.
//
// Description: TBA
//
///////////////////////////////////////////////////////////////////////////////

#ifndef NEKTAR_SOLVERS_ADJOINTADVECTION_H
#define NEKTAR_SOLVERS_ADJOINTADVECTION_H

#include <IncNavierStokesSolver/AdvectionTerms/AdvectionTerm.h>

//#define TIMING

//#ifdef TIMING
//#include <time.h>
//#include <sys/time.h>
//#endif


namespace Nektar
{     


    class AdjointAdvection: public AdvectionTerm
    {
		enum FloquetMatType
        {
            eForwardsCoeff,
            eForwardsPhys
        };
		
		/// A map between  matrix keys and their associated block
        /// matrices.
        typedef map< FloquetMatType, DNekBlkMatSharedPtr> FloquetBlockMatrixMap;
        /// A shared pointer to a BlockMatrixMap.
        typedef boost::shared_ptr<FloquetBlockMatrixMap> FloquetBlockMatrixMapShPtr;
		
    public:
        friend class MemoryManager<AdjointAdvection>;

        /// Creates an instance of this class
        static AdvectionTermSharedPtr create(
                                const LibUtilities::SessionReaderSharedPtr& pSession,
                                const SpatialDomains::MeshGraphSharedPtr& pGraph) {
            AdvectionTermSharedPtr p = MemoryManager<AdjointAdvection>::AllocateSharedPtr(pSession, pGraph);
            p->InitObject();
            return p;
        }
        /// Name of class
        static std::string className;

	protected:
        //Storage of the base flow
        Array<OneD, MultiRegions::ExpListSharedPtr>     m_base;
		
		//number of slices
		int                                             m_slices;
		//period length
		NekDouble										m_period;
		//interpolation vector
		Array<OneD, Array<OneD, NekDouble> >			m_interp;
		//auxiliary variables
		LibUtilities::NektarFFTSharedPtr				m_FFT;
		Array<OneD,NekDouble>							m_tmpIN;
		Array<OneD,NekDouble>							m_tmpOUT;
		bool											    m_useFFTW;
		bool m_SingleMode;			 ///< flag to determine if use single mode or not
		bool m_HalfMode;		     ///< flag to determine if use half mode or not
		bool m_MultipleModes;		 ///< flag to determine if use multiple mode or not

		DNekBlkMatSharedPtr GetFloquetBlockMatrix(FloquetMatType mattype, bool UseContCoeffs = false) const;
		DNekBlkMatSharedPtr GenFloquetBlockMatrix(FloquetMatType mattype, bool UseContCoeffs = false) const;
		FloquetBlockMatrixMapShPtr       m_FloquetBlockMat;
			
		AdjointAdvection(
                const LibUtilities::SessionReaderSharedPtr&        pSession,
                const SpatialDomains::MeshGraphSharedPtr&          pGraph);

        virtual ~AdjointAdvection();

        virtual void v_InitObject();

        void SetUpBaseFields(SpatialDomains::MeshGraphSharedPtr &mesh);
		void UpdateBase(const NekDouble m_slices,
						Array<OneD, const NekDouble> &inarray,
						Array<OneD, NekDouble> &outarray,
						const NekDouble m_time,
						const NekDouble m_period);
		void DFT(const string file, const NekDouble m_slices);


        /// Import Base flow
        void ImportFldBase(std::string pInfile,
                SpatialDomains::MeshGraphSharedPtr pGraph,int cnt);
		void ImportFldBase(std::string pInfile,
						   SpatialDomains::MeshGraphSharedPtr pGraph);
		
		/// Write field data to the given filename.
        void WriteFldBase(std::string &outname);
		
        /// Write input fields to the given filename.
        void WriteFldBase(
						  std::string &outname,
						  MultiRegions::ExpListSharedPtr &field,
						  Array<OneD, Array<OneD, NekDouble> > &fieldcoeffs,
						  Array<OneD, std::string> &variables);
		


    private:
        //Function for the evaluation of the Adjoint advective terms
        virtual void v_ComputeAdvectionTerm(
                         Array<OneD, MultiRegions::ExpListSharedPtr > &pFields,
                         const Array<OneD, Array<OneD, NekDouble> > &pV,
                         const Array<OneD, const NekDouble> &pU,
                         Array<OneD, NekDouble> &pOutarray,
                         int pVelocityComponent,
						 NekDouble m_time,
                         Array<OneD, NekDouble> &pWk);
		
		///Parameter for homogeneous expansions
        enum HomogeneousType
        {
            eHomogeneous1D,
            eHomogeneous2D,
            eHomogeneous3D,
            eNotHomogeneous
        };
		
        bool m_useFFT;               ///< flag to determine if use or not the FFT for transformations
		
		
        enum HomogeneousType m_HomogeneousType;
		
        NekDouble m_LhomX; ///< physical length in X direction (if homogeneous)
        NekDouble m_LhomY; ///< physical length in Y direction (if homogeneous)
        NekDouble m_LhomZ; ///< physical length in Z direction (if homogeneous)
		
        int m_npointsX;    ///< number of points in X direction (if homogeneous)
        int m_npointsY;    ///< number of points in Y direction (if homogeneous)
        int m_npointsZ;    ///< number of points in Z direction (if homogeneous)
		
        int m_HomoDirec;   ///< number of homogenous directions
		
		int m_NumMode;     ///< Mode to use in case of single mode analysis
		
		
		
		SpatialDomains::BoundaryConditionsSharedPtr m_boundaryConditions;
    };
    
    
} //end of namespace

#endif //NEKTAR_SOLVERS_INCNAVIERSTOKES_H
