biharmonic_flux_elements.h

Go to the documentation of this file.

// LIC// ====================================================================
// LIC// This file forms part of oomph-lib, the object-oriented,
// LIC// multi-physics finite-element library, available
// LIC// at http://www.oomph-lib.org.
// LIC//
// LIC// Copyright (C) 2006-2022 Matthias Heil and Andrew Hazel
// LIC//
// LIC// This library is free software; you can redistribute it and/or
// LIC// modify it under the terms of the GNU Lesser General Public
// LIC// License as published by the Free Software Foundation; either
// LIC// version 2.1 of the License, or (at your option) any later version.
// LIC//
// LIC// This library is distributed in the hope that it will be useful,
// LIC// but WITHOUT ANY WARRANTY; without even the implied warranty of
// LIC// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// LIC// Lesser General Public License for more details.
// LIC//
// LIC// You should have received a copy of the GNU Lesser General Public
// LIC// License along with this library; if not, write to the Free Software
// LIC// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
// LIC// 02110-1301  USA.
// LIC//
// LIC// The authors may be contacted at oomph-lib@maths.man.ac.uk.
// LIC//
// LIC//====================================================================
#ifndef OOMPH_BIHARMONIC_FLUX_ELEMENTS_HEADER
#define OOMPH_BIHARMONIC_FLUX_ELEMENTS_HEADER
 
// Config header generated by autoconfig
#ifdef HAVE_CONFIG_H
#include <oomph-lib-config.h>
#endif
 
#ifdef OOMPH_HAS_MPI
// mpi headers
#include "mpi.h"
#endif
 
// Generic C++ headers
#include <iostream>
#include <math.h>
 
// oomph-lib headers
#include "../generic/matrices.h"
#include "../generic/elements.h"
#include "../generic/hermite_elements.h"
#include "biharmonic_elements.h"
 
 
// oomph namespace
namespace oomph
{
  //============================================================================
  //============================================================================
  template<unsigned DIM>
  class FaceGeometry<BiharmonicElement<DIM>>
    : public virtual QHermiteElement<DIM - 1>
  {
  public:
    FaceGeometry() : QHermiteElement<DIM - 1>() {}
  };
 
  template<>
  class FaceGeometry<BiharmonicElement<1>> : public virtual PointElement
  {
  public:
    FaceGeometry() : PointElement() {}
  };
 
 
  //=============================================================================
  //=============================================================================
  template<unsigned DIM>
  class BiharmonicFluxElement
    : public virtual FaceGeometry<BiharmonicElement<2>>,
      public virtual FaceElement
  {
  public:
    typedef void (*FluxFctPt)(const double& s, double& flux);
 
    BiharmonicFluxElement(FiniteElement* const& bulk_el_pt,
                          const int& face_index,
                          const unsigned& b);
 
 
    BiharmonicFluxElement()
    {
      throw OomphLibError("Don't call empty constructor for PoissonFluxElement",
                          OOMPH_CURRENT_FUNCTION,
                          OOMPH_EXCEPTION_LOCATION);
    }
 
 
    BiharmonicFluxElement(const BiharmonicFluxElement& dummy) = delete;
 
 
    void operator=(const BiharmonicFluxElement&) = delete;
 
    FluxFctPt& flux0_fct_pt()
    {
      return Flux0_fct_pt;
    }
 
    FluxFctPt& flux1_fct_pt()
    {
      return Flux1_fct_pt;
    }
 
    inline void fill_in_contribution_to_residuals(Vector<double>& residuals)
    {
      // Call the generic residuals function
      fill_in_generic_residual_contribution_biharmonic_flux(residuals);
    }
 
 
    inline void fill_in_contribution_to_jacobian(Vector<double>& residuals,
                                                 DenseMatrix<double>& jacobian)
    {
      // Call the generic residuals routine
      fill_in_generic_residual_contribution_biharmonic_flux(residuals);
    }
 
 
    double zeta_nodal(const unsigned& n,
                      const unsigned& k,
                      const unsigned& i) const
    {
      return FaceElement::zeta_nodal(n, k, i);
    }
 
 
    void output(std::ostream& outfile) {}
 
 
    void output(std::ostream& outfile, const unsigned& n_plot) {}
 
 
    void output(FILE* file_pt) {}
 
 
    void output(FILE* file_pt, const unsigned& n_plot) {}
 
 
    void compute_error(std::ostream& outfile,
                       FiniteElement::SteadyExactSolutionFctPt exact_soln_pt,
                       double& error,
                       double& norm)
    {
    }
 
 
    virtual void output_fct(
      std::ostream& outfile,
      const unsigned& nplot,
      FiniteElement::SteadyExactSolutionFctPt exact_soln_pt)
    {
    }
 
  private:
    void get_flux0(const double& s, double& flux)
    {
      // If the function pointer is zero return zero
      if (Flux0_fct_pt == 0)
      {
        flux = 0.0;
      }
      // Otherwise call the function
      else
      {
        (*Flux0_fct_pt)(s, flux);
      }
    }
 
    void get_flux1(const double& s, double& flux)
    {
      // If the function pointer is zero return zero
      if (Flux1_fct_pt == 0)
      {
        flux = 0.0;
      }
      // Otherwise call the function
      else
      {
        (*Flux1_fct_pt)(s, flux);
      }
    }
 
    double J_eulerian(const Vector<double>& s) const;
 
    void fill_in_generic_residual_contribution_biharmonic_flux(
      Vector<double>& residuals);
 
    FluxFctPt Flux0_fct_pt;
 
    FluxFctPt Flux1_fct_pt;
 
    unsigned Nface_nodal_dof;
 
    unsigned Boundary;
  };
 
 
} // namespace oomph
#endif