Reference documentation for deal.II version 9.0.0
The step-12 tutorial program

This tutorial depends on step-7, step-39.

Table of contents
  1. Introduction
  2. The commented program
  1. Results
  2. The plain program

An example of the MeshWorker framework with an advection problem

Overview

This example is devoted to the MeshWorker framework and the discontinuous Galerkin method, or in short: DG method. It includes the following topics.

  1. Discretization of the linear advection equation with the DG method.
  2. Assembling of the system matrix using the MeshWorker::loop().

The particular concern of this program are the loops of DG methods. These turn out to be especially complex, primarily because for the face terms, we have to distinguish the cases of boundary, regular interior faces and interior faces with hanging nodes, respectively. The MeshWorker framework implements the standard loop over all cells and faces in MeshWorker::loop() and takes care of distinguishing between all the different faces.

There are two things left to do if you use MeshWorker: first, you need to write the local integrators for your problem. Second, you select classes from the MeshWorker namespace and combine them to achieve your goal.

Problem

The model problem solved in this example is the linear advection equation

\[ \nabla\cdot \left({\mathbf \beta} u\right)=0 \qquad\mbox{in }\Omega, \]

subject to the boundary conditions

\[ u=g\quad\mbox{on }\Gamma_-, \]

on the inflow part \(\Gamma_-\) of the boundary \(\Gamma=\partial\Omega\) of the domain. Here, \({\mathbf \beta}={\mathbf \beta}({\bf x})\) denotes a vector field, \(u\) the (scalar) solution function, \(g\) a boundary value function,

\[ \Gamma_-:=\{{\bf x}\in\Gamma, {\mathbf \beta}({\bf x})\cdot{\bf n}({\bf x})<0\} \]

the inflow part of the boundary of the domain and \({\bf n}\) denotes the unit outward normal to the boundary \(\Gamma\). This equation is the conservative version of the advection equation already considered in step-9 of this tutorial. In particular, we solve the advection equation on \(\Omega=[0,1]^2\) with \({\mathbf \beta}=\frac{1}{|x|}(-x_2, x_1)\) representing a circular counterclockwise flow field, and \(g=1\) on \({\bf x}\in\Gamma_-^1:=[0,0.5]\times\{0\}\) and \(g=0\) on \({\bf x}\in \Gamma_-\setminus \Gamma_-^1\).

We apply the well-known upwind discontinuous Galerkin method. To this end, we introduce the mesh dependent bilinear form

\[ -\sum_{T\in \mathbb T_h}\bigl(u_h,{\mathbf \beta}\cdot\nabla v_h\bigr)_T +\sum_{F\in\mathbb F_h^i} \bigl<u_h^-, \beta\cdot[v_h\mathbf n]\bigr>_{F} + \bigl<u_h, v_h \beta\cdot \mathbf n\bigr>_{\Gamma_+} =-\bigl<g, v_h \beta\cdot\mathbf n\bigr>_{\Gamma_-}. \]

Here, \(\mathbb T_h\) is the set of all active cells of the triangulation and \(\mathbb F_h^i\) is the set of all active interior faces. \((\cdot, \cdot)_T\) and \(\left<\cdot, \cdot\right>_{F}\) denote the L2-inner products on the cell \(T\) and a face \(F\), respectively. The jump is defined as \([v\mathbf n] = v^+\mathbf n^+ + v^-\mathbf n^-\), where the superscripts refer to the upwind ('+') and downwind ('-') values at the face.

In order to implement this bilinear form, we need to compute the cell terms \(\bigl(u_h,{\mathbf \beta}\cdot\nabla v_h\bigr)_T\), the internal fluxes \(\bigl<u_h^-, \beta\cdot[v_h\mathbf n]\bigr>_{F}\), and the boundary terms \(\bigl<u_h, v_h \beta\cdot \mathbf n]\bigr>_{\Gamma_+}\) and \(\bigl<g, \beta\cdot\mathbf n v_h\bigr>_{\Gamma_-}\). The summation of all those is done by MeshWorker::integration_loop().

The commented program

The first few files have already been covered in previous examples and will thus not be further commented on:

#include <deal.II/base/quadrature_lib.h>
#include <deal.II/base/function.h>
#include <deal.II/lac/vector.h>
#include <deal.II/lac/dynamic_sparsity_pattern.h>
#include <deal.II/lac/sparse_matrix.h>
#include <deal.II/grid/tria.h>
#include <deal.II/grid/grid_generator.h>
#include <deal.II/grid/grid_out.h>
#include <deal.II/grid/grid_refinement.h>
#include <deal.II/grid/tria_accessor.h>
#include <deal.II/grid/tria_iterator.h>
#include <deal.II/fe/fe_values.h>
#include <deal.II/dofs/dof_handler.h>
#include <deal.II/dofs/dof_accessor.h>
#include <deal.II/dofs/dof_tools.h>
#include <deal.II/numerics/data_out.h>
#include <deal.II/fe/mapping_q1.h>

Here the discontinuous finite elements are defined. They are used in the same way as all other finite elements, though – as you have seen in previous tutorial programs – there isn't much user interaction with finite element classes at all: they are passed to DoFHandler and FEValues objects, and that is about it.

#include <deal.II/fe/fe_dgq.h>

We are going to use the simplest possible solver, called Richardson iteration, that represents a simple defect correction. This, in combination with a block SSOR preconditioner (defined in precondition_block.h), that uses the special block matrix structure of system matrices arising from DG discretizations.

#include <deal.II/lac/solver_richardson.h>
#include <deal.II/lac/precondition_block.h>

We are going to use gradients as refinement indicator.

#include <deal.II/numerics/derivative_approximation.h>

Here come the new include files for using the MeshWorker framework. The first contains the class MeshWorker::DoFInfo, which provides local integrators with a mapping between local and global degrees of freedom. It stores the results of local integrals as well in its base class Meshworker::LocalResults. In the second of these files, we find an object of type MeshWorker::IntegrationInfo, which is mostly a wrapper around a group of FEValues objects. The file meshworker/simple.h contains classes assembling locally integrated data into a global system containing only a single matrix. Finally, we will need the file that runs the loop over all mesh cells and faces.

#include <deal.II/meshworker/dof_info.h>
#include <deal.II/meshworker/integration_info.h>
#include <deal.II/meshworker/simple.h>
#include <deal.II/meshworker/loop.h>

Like in all programs, we finish this section by including the needed C++ headers and declaring we want to use objects in the dealii namespace without prefix.

#include <iostream>
#include <fstream>
namespace Step12
{
using namespace dealii;

Equation data

First, we define a class describing the inhomogeneous boundary data. Since only its values are used, we implement value_list(), but leave all other functions of Function undefined.

template <int dim>
class BoundaryValues: public Function<dim>
{
public:
BoundaryValues () {}
virtual void value_list (const std::vector<Point<dim> > &points,
std::vector<double> &values,
const unsigned int component=0) const;
};

Given the flow direction, the inflow boundary of the unit square \([0,1]^2\) are the right and the lower boundaries. We prescribe discontinuous boundary values 1 and 0 on the x-axis and value 0 on the right boundary. The values of this function on the outflow boundaries will not be used within the DG scheme.

template <int dim>
void BoundaryValues<dim>::value_list(const std::vector<Point<dim> > &points,
std::vector<double> &values,
const unsigned int) const
{
Assert(values.size()==points.size(),
ExcDimensionMismatch(values.size(),points.size()));
for (unsigned int i=0; i<values.size(); ++i)
{
if (points[i](0)<0.5)
values[i]=1.;
else
values[i]=0.;
}
}

Finally, a function that computes and returns the wind field \(\beta=\beta(\mathbf x)\). As explained in the introduction, we will use a rotational field around the origin in 2d. In 3d, we simply leave the \(z\)-component unset (i.e., at zero), whereas the function can not be used in 1d in its current implementation:

template <int dim>
Tensor<1,dim> beta (const Point<dim> &p)
{
Assert (dim >= 2, ExcNotImplemented());
Point<dim> wind_field;
wind_field(0) = -p(1);
wind_field(1) = p(0);
wind_field /= wind_field.norm();
return wind_field;
}

The AdvectionProblem class

After this preparations, we proceed with the main class of this program, called AdvectionProblem. It is basically the main class of step-6. We do not have a ConstraintMatrix, because there are no hanging node constraints in DG discretizations.

Major differences will only come up in the implementation of the assemble functions, since here, we not only need to cover the flux integrals over faces, we also use the MeshWorker interface to simplify the loops involved.

template <int dim>
class AdvectionProblem
{
public:
AdvectionProblem ();
void run ();
private:
void setup_system ();
void assemble_system ();
void solve (Vector<double> &solution);
void refine_grid ();
void output_results (const unsigned int cycle) const;
Triangulation<dim> triangulation;
const MappingQ1<dim> mapping;

Furthermore we want to use DG elements of degree 1 (but this is only specified in the constructor). If you want to use a DG method of a different degree the whole program stays the same, only replace 1 in the constructor by the desired polynomial degree.

The next four members represent the linear system to be solved. system_matrix and right_hand_side are generated by assemble_system(), the solution is computed in solve(). The sparsity_pattern is used to determine the location of nonzero elements in system_matrix.

SparsityPattern sparsity_pattern;
SparseMatrix<double> system_matrix;
Vector<double> solution;
Vector<double> right_hand_side;

Finally, we have to provide functions that assemble the cell, boundary, and inner face terms. Within the MeshWorker framework, the loop over all cells and much of the setup of operations will be done outside this class, so all we have to provide are these three operations. They will then work on intermediate objects for which first, we here define typedefs to the info objects handed to the local integration functions in order to make our life easier below.

The following three functions are then the ones that get called inside the generic loop over all cells and faces. They are the ones doing the actual integration.

In our code below, these functions do not access member variables of the current class, so we can mark them as static and simply pass pointers to these functions to the MeshWorker framework. If, however, these functions would want to access member variables (or needed additional arguments beyond the ones specified below), we could use the facilities of boost::bind (or std::bind, respectively) to provide the MeshWorker framework with objects that act as if they had the required number and types of arguments, but have in fact other arguments already bound.

static void integrate_cell_term (DoFInfo &dinfo,
CellInfo &info);
static void integrate_boundary_term (DoFInfo &dinfo,
CellInfo &info);
static void integrate_face_term (DoFInfo &dinfo1,
DoFInfo &dinfo2,
CellInfo &info1,
CellInfo &info2);
};

We start with the constructor. The 1 in the constructor call of fe is the polynomial degree.

template <int dim>
AdvectionProblem<dim>::AdvectionProblem ()
:
mapping (),
fe (1),
dof_handler (triangulation)
{}
template <int dim>
void AdvectionProblem<dim>::setup_system ()
{

In the function that sets up the usual finite element data structures, we first need to distribute the DoFs.

dof_handler.distribute_dofs (fe);

We start by generating the sparsity pattern. To this end, we first fill an intermediate object of type DynamicSparsityPattern with the couplings appearing in the system. After building the pattern, this object is copied to sparsity_pattern and can be discarded.

To build the sparsity pattern for DG discretizations, we can call the function analogue to DoFTools::make_sparsity_pattern, which is called DoFTools::make_flux_sparsity_pattern:

DynamicSparsityPattern dsp(dof_handler.n_dofs());
sparsity_pattern.copy_from(dsp);

Finally, we set up the structure of all components of the linear system.

system_matrix.reinit (sparsity_pattern);
solution.reinit (dof_handler.n_dofs());
right_hand_side.reinit (dof_handler.n_dofs());
}

The assemble_system function

Here we see the major difference to assembling by hand. Instead of writing loops over cells and faces, we leave all this to the MeshWorker framework. In order to do so, we just have to define local integration functions and use one of the classes in namespace MeshWorker::Assembler to build the global system.

template <int dim>
void AdvectionProblem<dim>::assemble_system ()
{

This is the magic object, which knows everything about the data structures and local integration. This is the object doing the work in the function MeshWorker::loop(), which is implicitly called by MeshWorker::integration_loop() below. After the functions to which we provide pointers did the local integration, the MeshWorker::Assembler::SystemSimple object distributes these into the global sparse matrix and the right hand side vector.

First, we initialize the quadrature formulae and the update flags in the worker base class. For quadrature, we play safe and use a QGauss formula with number of points one higher than the polynomial degree used. Since the quadratures for cells, boundary and interior faces can be selected independently, we have to hand over this value three times.

const unsigned int n_gauss_points = dof_handler.get_fe().degree+1;
info_box.initialize_gauss_quadrature(n_gauss_points,
n_gauss_points,
n_gauss_points);

These are the types of values we need for integrating our system. They are added to the flags used on cells, boundary and interior faces, as well as interior neighbor faces, which is forced by the four true values.

info_box.add_update_flags(update_flags, true, true, true, true);

After preparing all data in info_box, we initialize the FEValues objects in there.

info_box.initialize(fe, mapping);

The object created so far helps us do the local integration on each cell and face. Now, we need an object which receives the integrated (local) data and forwards them to the assembler.

MeshWorker::DoFInfo<dim> dof_info(dof_handler);

Now, we have to create the assembler object and tell it, where to put the local data. These will be our system matrix and the right hand side.

assembler;
assembler.initialize(system_matrix, right_hand_side);

Finally, the integration loop over all active cells (determined by the first argument, which is an active iterator).

As noted in the discussion when declaring the local integration functions in the class declaration, the arguments expected by the assembling integrator class are not actually function pointers. Rather, they are objects that can be called like functions with a certain number of arguments. Consequently, we could also pass objects with appropriate operator() implementations here, or the result of std::bind if the local integrators were, for example, non-static member functions.

MeshWorker::loop<dim, dim, MeshWorker::DoFInfo<dim>, MeshWorker::IntegrationInfoBox<dim> >
(dof_handler.begin_active(), dof_handler.end(),
dof_info, info_box,
&AdvectionProblem<dim>::integrate_cell_term,
&AdvectionProblem<dim>::integrate_boundary_term,
&AdvectionProblem<dim>::integrate_face_term,
assembler);
}

The local integrators

These are the functions given to the MeshWorker::integration_loop() called just above. They compute the local contributions to the system matrix and right hand side on cells and faces.

template <int dim>
void AdvectionProblem<dim>::integrate_cell_term (DoFInfo &dinfo,
CellInfo &info)
{

First, let us retrieve some of the objects used here from info. Note that these objects can handle much more complex structures, thus the access here looks more complicated than might seem necessary.

const FEValuesBase<dim> &fe_values = info.fe_values();
FullMatrix<double> &local_matrix = dinfo.matrix(0).matrix;
const std::vector<double> &JxW = fe_values.get_JxW_values ();

With these objects, we continue local integration like always. First, we loop over the quadrature points and compute the advection vector in the current point.

for (unsigned int point=0; point<fe_values.n_quadrature_points; ++point)
{
const Tensor<1,dim> beta_at_q_point = beta (fe_values.quadrature_point(point));

We solve a homogeneous equation, thus no right hand side shows up in the cell term. What's left is integrating the matrix entries.

for (unsigned int i=0; i<fe_values.dofs_per_cell; ++i)
for (unsigned int j=0; j<fe_values.dofs_per_cell; ++j)
local_matrix(i,j) += -beta_at_q_point *
fe_values.shape_grad(i,point) *
fe_values.shape_value(j,point) *
JxW[point];
}
}

Now the same for the boundary terms. Note that now we use FEValuesBase, the base class for both FEFaceValues and FESubfaceValues, in order to get access to normal vectors.

template <int dim>
void AdvectionProblem<dim>::integrate_boundary_term (DoFInfo &dinfo,
CellInfo &info)
{
const FEValuesBase<dim> &fe_face_values = info.fe_values();
FullMatrix<double> &local_matrix = dinfo.matrix(0).matrix;
Vector<double> &local_vector = dinfo.vector(0).block(0);
const std::vector<double> &JxW = fe_face_values.get_JxW_values ();
const std::vector<Tensor<1,dim> > &normals = fe_face_values.get_normal_vectors ();
std::vector<double> g(fe_face_values.n_quadrature_points);
static BoundaryValues<dim> boundary_function;
boundary_function.value_list (fe_face_values.get_quadrature_points(), g);
for (unsigned int point=0; point<fe_face_values.n_quadrature_points; ++point)
{
const double beta_dot_n = beta(fe_face_values.quadrature_point(point)) * normals[point];
if (beta_dot_n>0)
for (unsigned int i=0; i<fe_face_values.dofs_per_cell; ++i)
for (unsigned int j=0; j<fe_face_values.dofs_per_cell; ++j)
local_matrix(i,j) += beta_dot_n *
fe_face_values.shape_value(j,point) *
fe_face_values.shape_value(i,point) *
JxW[point];
else
for (unsigned int i=0; i<fe_face_values.dofs_per_cell; ++i)
local_vector(i) += -beta_dot_n *
g[point] *
fe_face_values.shape_value(i,point) *
JxW[point];
}
}

Finally, the interior face terms. The difference here is that we receive two info objects, one for each cell adjacent to the face and we assemble four matrices, one for each cell and two for coupling back and forth.

template <int dim>
void AdvectionProblem<dim>::integrate_face_term (DoFInfo &dinfo1,
DoFInfo &dinfo2,
CellInfo &info1,
CellInfo &info2)
{

For quadrature points, weights, etc., we use the FEValuesBase object of the first argument.

const FEValuesBase<dim> &fe_face_values = info1.fe_values();

For additional shape functions, we have to ask the neighbors FEValuesBase.

const FEValuesBase<dim> &fe_face_values_neighbor = info2.fe_values();

Then we get references to the four local matrices. The letters u and v refer to trial and test functions, respectively. The numbers indicate the cells provided by info1 and info2. By convention, the two matrices in each info object refer to the test functions on the respective cell. The first matrix contains the interior couplings of that cell, while the second contains the couplings between cells.

FullMatrix<double> &u1_v1_matrix = dinfo1.matrix(0,false).matrix;
FullMatrix<double> &u2_v1_matrix = dinfo1.matrix(0,true).matrix;
FullMatrix<double> &u1_v2_matrix = dinfo2.matrix(0,true).matrix;
FullMatrix<double> &u2_v2_matrix = dinfo2.matrix(0,false).matrix;

Here, following the previous functions, we would have the local right hand side vectors. Fortunately, the interface terms only involve the solution and the right hand side does not receive any contributions.

const std::vector<double> &JxW = fe_face_values.get_JxW_values ();
const std::vector<Tensor<1,dim> > &normals = fe_face_values.get_normal_vectors ();
for (unsigned int point=0; point<fe_face_values.n_quadrature_points; ++point)
{
const double beta_dot_n = beta(fe_face_values.quadrature_point(point)) * normals[point];
if (beta_dot_n>0)
{

This term we've already seen:

for (unsigned int i=0; i<fe_face_values.dofs_per_cell; ++i)
for (unsigned int j=0; j<fe_face_values.dofs_per_cell; ++j)
u1_v1_matrix(i,j) += beta_dot_n *
fe_face_values.shape_value(j,point) *
fe_face_values.shape_value(i,point) *
JxW[point];

We additionally assemble the term \((\beta\cdot n u,\hat v)_{\partial \kappa_+}\),

for (unsigned int k=0; k<fe_face_values_neighbor.dofs_per_cell; ++k)
for (unsigned int j=0; j<fe_face_values.dofs_per_cell; ++j)
u1_v2_matrix(k,j) += -beta_dot_n *
fe_face_values.shape_value(j,point) *
fe_face_values_neighbor.shape_value(k,point) *
JxW[point];
}
else
{

This one we've already seen, too:

for (unsigned int i=0; i<fe_face_values.dofs_per_cell; ++i)
for (unsigned int l=0; l<fe_face_values_neighbor.dofs_per_cell; ++l)
u2_v1_matrix(i,l) += beta_dot_n *
fe_face_values_neighbor.shape_value(l,point) *
fe_face_values.shape_value(i,point) *
JxW[point];

And this is another new one: \((\beta\cdot n \hat u,\hat v)_{\partial \kappa_-}\):

for (unsigned int k=0; k<fe_face_values_neighbor.dofs_per_cell; ++k)
for (unsigned int l=0; l<fe_face_values_neighbor.dofs_per_cell; ++l)
u2_v2_matrix(k,l) += -beta_dot_n *
fe_face_values_neighbor.shape_value(l,point) *
fe_face_values_neighbor.shape_value(k,point) *
JxW[point];
}
}
}

All the rest

For this simple problem we use the simplest possible solver, called Richardson iteration, that represents a simple defect correction. This, in combination with a block SSOR preconditioner, that uses the special block matrix structure of system matrices arising from DG discretizations. The size of these blocks are the number of DoFs per cell. Here, we use a SSOR preconditioning as we have not renumbered the DoFs according to the flow field. If the DoFs are renumbered in the downstream direction of the flow, then a block Gauss-Seidel preconditioner (see the PreconditionBlockSOR class with relaxation=1) does a much better job.

template <int dim>
void AdvectionProblem<dim>::solve (Vector<double> &solution)
{
SolverControl solver_control (1000, 1e-12);
SolverRichardson<> solver (solver_control);

Here we create the preconditioner,

then assign the matrix to it and set the right block size:

preconditioner.initialize(system_matrix, fe.dofs_per_cell);

After these preparations we are ready to start the linear solver.

solver.solve (system_matrix, solution, right_hand_side,
preconditioner);
}

We refine the grid according to a very simple refinement criterion, namely an approximation to the gradient of the solution. As here we consider the DG(1) method (i.e. we use piecewise bilinear shape functions) we could simply compute the gradients on each cell. But we do not want to base our refinement indicator on the gradients on each cell only, but want to base them also on jumps of the discontinuous solution function over faces between neighboring cells. The simplest way of doing that is to compute approximative gradients by difference quotients including the cell under consideration and its neighbors. This is done by the DerivativeApproximation class that computes the approximate gradients in a way similar to the GradientEstimation described in step-9 of this tutorial. In fact, the DerivativeApproximation class was developed following the GradientEstimation class of step-9. Relating to the discussion in step-9, here we consider \(h^{1+d/2}|\nabla_h u_h|\). Furthermore we note that we do not consider approximate second derivatives because solutions to the linear advection equation are in general not in \(H^2\) but only in \(H^1\) (or, to be more precise: in \(H^1_\beta\), i.e., the space of functions whose derivatives in direction \(\beta\) are square integrable).

template <int dim>
void AdvectionProblem<dim>::refine_grid ()
{

The DerivativeApproximation class computes the gradients to float precision. This is sufficient as they are approximate and serve as refinement indicators only.

Vector<float> gradient_indicator (triangulation.n_active_cells());

Now the approximate gradients are computed

dof_handler,
solution,
gradient_indicator);

and they are cell-wise scaled by the factor \(h^{1+d/2}\)

cell = dof_handler.begin_active(),
endc = dof_handler.end();
for (unsigned int cell_no=0; cell!=endc; ++cell, ++cell_no)
gradient_indicator(cell_no)*=std::pow(cell->diameter(), 1+1.0*dim/2);

Finally they serve as refinement indicator.

gradient_indicator,
0.3, 0.1);
triangulation.execute_coarsening_and_refinement ();
}

The output of this program consists of eps-files of the adaptively refined grids and the numerical solutions given in gnuplot format.

template <int dim>
void AdvectionProblem<dim>::output_results (const unsigned int cycle) const
{

First write the grid in eps format.

{
const std::string filename = "grid-" + std::to_string(cycle) + ".eps";
deallog << "Writing grid to <" << filename << ">" << std::endl;
std::ofstream eps_output (filename.c_str());
GridOut grid_out;
grid_out.write_eps (triangulation, eps_output);
}

Then output the solution in gnuplot format.

{
const std::string filename = "sol-" + std::to_string(cycle) + ".gnuplot";
deallog << "Writing solution to <" << filename << ">" << std::endl;
std::ofstream gnuplot_output (filename.c_str());
DataOut<dim> data_out;
data_out.attach_dof_handler (dof_handler);
data_out.add_data_vector (solution, "u");
data_out.build_patches ();
data_out.write_gnuplot(gnuplot_output);
}
}

The following run function is similar to previous examples.

template <int dim>
void AdvectionProblem<dim>::run ()
{
for (unsigned int cycle=0; cycle<6; ++cycle)
{
deallog << "Cycle " << cycle << std::endl;
if (cycle == 0)
{
GridGenerator::hyper_cube (triangulation);
triangulation.refine_global (3);
}
else
refine_grid ();
deallog << "Number of active cells: "
<< triangulation.n_active_cells()
<< std::endl;
setup_system ();
deallog << "Number of degrees of freedom: "
<< dof_handler.n_dofs()
<< std::endl;
assemble_system ();
solve (solution);
output_results (cycle);
}
}
}

The following main function is similar to previous examples as well, and need not be commented on.

int main ()
{
try
{
Step12::AdvectionProblem<2> dgmethod;
dgmethod.run ();
}
catch (std::exception &exc)
{
std::cerr << std::endl << std::endl
<< "----------------------------------------------------"
<< std::endl;
std::cerr << "Exception on processing: " << std::endl
<< exc.what() << std::endl
<< "Aborting!" << std::endl
<< "----------------------------------------------------"
<< std::endl;
return 1;
}
catch (...)
{
std::cerr << std::endl << std::endl
<< "----------------------------------------------------"
<< std::endl;
std::cerr << "Unknown exception!" << std::endl
<< "Aborting!" << std::endl
<< "----------------------------------------------------"
<< std::endl;
return 1;
}
return 0;
}

Results

The output of this program consist of the console output, the eps files including the grids, and the solutions given in gnuplot format.

DEAL::Cycle 0
DEAL::Number of active cells: 64
DEAL::Number of degrees of freedom: 256
DEAL:Richardson::Starting value 0.176777
DEAL:Richardson::Convergence step 4 value 3.33123e-17
DEAL::Writing grid to <grid-0.eps>
DEAL::Writing solution to <sol-0.gnuplot>
DEAL::Cycle 1
DEAL::Number of active cells: 112
DEAL::Number of degrees of freedom: 448
DEAL:Richardson::Starting value 0.153093
DEAL:Richardson::Convergence step 9 value 3.74479e-17
DEAL::Writing grid to <grid-1.eps>
DEAL::Writing solution to <sol-1.gnuplot>
DEAL::Cycle 2
DEAL::Number of active cells: 214
DEAL::Number of degrees of freedom: 856
DEAL:Richardson::Starting value 0.149870
DEAL:Richardson::Convergence step 16 value 1.41017e-14
DEAL::Writing grid to <grid-2.eps>
DEAL::Writing solution to <sol-2.gnuplot>
DEAL::Cycle 3
DEAL::Number of active cells: 415
DEAL::Number of degrees of freedom: 1660
DEAL:Richardson::Starting value 0.149053
DEAL:Richardson::Convergence step 26 value 4.92424e-15
DEAL::Writing grid to <grid-3.eps>
DEAL::Writing solution to <sol-3.gnuplot>
DEAL::Cycle 4
DEAL::Number of active cells: 796
DEAL::Number of degrees of freedom: 3184
DEAL:Richardson::Starting value 0.148848
DEAL:Richardson::Convergence step 44 value 5.80787e-14
DEAL::Writing grid to <grid-4.eps>
DEAL::Writing solution to <sol-4.gnuplot>
DEAL::Cycle 5
DEAL::Number of active cells: 1561
DEAL::Number of degrees of freedom: 6244
DEAL:Richardson::Starting value 0.131369
DEAL:Richardson::Convergence step 81 value 2.39812e-13
DEAL::Writing grid to <grid-5.eps>
DEAL::Writing solution to <sol-5.gnuplot>

We show the solutions on the initial mesh, the mesh after two and after five adaptive refinement steps.

Then we show the final grid (after 5 refinement steps) and the solution again, this time with a nicer 3d rendering (obtained using the DataOutBase::write_vtk function and the VTK-based VisIt visualization program) that better shows the sharpness of the jump on the refined mesh and the over- and undershoots of the solution along the interface:

And finally we show a plot of a 3d computation.

Why use discontinuous elements

In this program we have used discontinuous elements. It is a legitimate question to ask why not simply use the normal, continuous ones. Of course, to everyone with a background in numerical methods, the answer is obvious: the continuous Galerkin (cG) method is not stable for the transport equation, unless one specifically adds stabilization terms. The DG method, however, is stable. Illustrating this with the current program is not very difficult; in fact, only the following minor modifications are necessary:

While the 2d solution has been shown above, containing a number of small spikes at the interface that are, however, stable in height under mesh refinement, results look much different when using a continuous element:

0  

1  

2  

3  

4  

5  

In refinement iteration 5, the image can't be plotted in a reasonable way any more as a 3d plot. We thus show a color plot with a range of \([-1,2]\) (the solution values of the exact solution lie in \([0,1]\), of course). In any case, it is clear that the continuous Galerkin solution exhibits oscillatory behavior that gets worse and worse as the mesh is refined more and more.

There are a number of strategies to stabilize the cG method, if one wants to use continuous elements for some reason. Discussing these methods is beyond the scope of this tutorial program; an interested reader could, for example, take a look at step-31.

Possibilities for extensions

Given that the exact solution is known in this case, one interesting avenue for further extensions would be to confirm the order of convergence for this program. In the current case, the solution is non-smooth, and so we can not expect to get a particularly high order of convergence, even if we used higher order elements. But even if the solution is smooth, the equation is not elliptic and so it is not immediately clear that we should obtain a convergence order that equals that of the optimal interpolation estimates (i.e. for example that we would get \(h^3\) convergence in the \(L^2\) norm by using quadratic elements).

In fact, for hyperbolic equations, theoretical predictions often indicate that the best one can hope for is an order one half below the interpolation estimate. For example, for the streamline diffusion method (an alternative method to the DG method used here to stabilize the solution of the transport equation), one can prove that for elements of degree \(p\), the order of convergence is \(p+\frac 12\) on arbitrary meshes. While the observed order is frequently \(p+1\) on uniformly refined meshes, one can construct so-called Peterson meshes on which the worse theoretical bound is actually attained. This should be relatively simple to verify, for example using the VectorTools::integrate_difference function.

A different direction is to observe that the solution of transport problems often has discontinuities and that therefore a mesh in which we bisect every cell in every coordinate direction may not be optimal. Rather, a better strategy would be to only cut cells in the direction parallel to the discontinuity. This is called anisotropic mesh refinement and is the subject of step-30.

The plain program

/* ---------------------------------------------------------------------
*
* Copyright (C) 2009 - 2018 by the deal.II authors
*
* This file is part of the deal.II library.
*
* The deal.II library is free software; you can use it, redistribute
* it, and/or modify it under the terms of the GNU Lesser General
* Public License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
* The full text of the license can be found in the file LICENSE at
* the top level of the deal.II distribution.
*
* ---------------------------------------------------------------------
*
* Author: Guido Kanschat, Texas A&M University, 2009
*/
#include <deal.II/base/quadrature_lib.h>
#include <deal.II/base/function.h>
#include <deal.II/lac/vector.h>
#include <deal.II/lac/dynamic_sparsity_pattern.h>
#include <deal.II/lac/sparse_matrix.h>
#include <deal.II/grid/tria.h>
#include <deal.II/grid/grid_generator.h>
#include <deal.II/grid/grid_out.h>
#include <deal.II/grid/grid_refinement.h>
#include <deal.II/grid/tria_accessor.h>
#include <deal.II/grid/tria_iterator.h>
#include <deal.II/fe/fe_values.h>
#include <deal.II/dofs/dof_handler.h>
#include <deal.II/dofs/dof_accessor.h>
#include <deal.II/dofs/dof_tools.h>
#include <deal.II/numerics/data_out.h>
#include <deal.II/fe/mapping_q1.h>
#include <deal.II/fe/fe_dgq.h>
#include <deal.II/lac/solver_richardson.h>
#include <deal.II/lac/precondition_block.h>
#include <deal.II/numerics/derivative_approximation.h>
#include <deal.II/meshworker/dof_info.h>
#include <deal.II/meshworker/integration_info.h>
#include <deal.II/meshworker/simple.h>
#include <deal.II/meshworker/loop.h>
#include <iostream>
#include <fstream>
namespace Step12
{
using namespace dealii;
template <int dim>
class BoundaryValues: public Function<dim>
{
public:
BoundaryValues () {}
virtual void value_list (const std::vector<Point<dim> > &points,
std::vector<double> &values,
const unsigned int component=0) const;
};
template <int dim>
void BoundaryValues<dim>::value_list(const std::vector<Point<dim> > &points,
std::vector<double> &values,
const unsigned int) const
{
Assert(values.size()==points.size(),
ExcDimensionMismatch(values.size(),points.size()));
for (unsigned int i=0; i<values.size(); ++i)
{
if (points[i](0)<0.5)
values[i]=1.;
else
values[i]=0.;
}
}
template <int dim>
Tensor<1,dim> beta (const Point<dim> &p)
{
Assert (dim >= 2, ExcNotImplemented());
Point<dim> wind_field;
wind_field(0) = -p(1);
wind_field(1) = p(0);
wind_field /= wind_field.norm();
return wind_field;
}
template <int dim>
class AdvectionProblem
{
public:
AdvectionProblem ();
void run ();
private:
void setup_system ();
void assemble_system ();
void solve (Vector<double> &solution);
void refine_grid ();
void output_results (const unsigned int cycle) const;
Triangulation<dim> triangulation;
const MappingQ1<dim> mapping;
DoFHandler<dim> dof_handler;
SparsityPattern sparsity_pattern;
SparseMatrix<double> system_matrix;
Vector<double> solution;
Vector<double> right_hand_side;
typedef MeshWorker::DoFInfo<dim> DoFInfo;
static void integrate_cell_term (DoFInfo &dinfo,
CellInfo &info);
static void integrate_boundary_term (DoFInfo &dinfo,
CellInfo &info);
static void integrate_face_term (DoFInfo &dinfo1,
DoFInfo &dinfo2,
CellInfo &info1,
CellInfo &info2);
};
template <int dim>
AdvectionProblem<dim>::AdvectionProblem ()
:
mapping (),
fe (1),
dof_handler (triangulation)
{}
template <int dim>
void AdvectionProblem<dim>::setup_system ()
{
dof_handler.distribute_dofs (fe);
DynamicSparsityPattern dsp(dof_handler.n_dofs());
sparsity_pattern.copy_from(dsp);
system_matrix.reinit (sparsity_pattern);
solution.reinit (dof_handler.n_dofs());
right_hand_side.reinit (dof_handler.n_dofs());
}
template <int dim>
void AdvectionProblem<dim>::assemble_system ()
{
const unsigned int n_gauss_points = dof_handler.get_fe().degree+1;
info_box.initialize_gauss_quadrature(n_gauss_points,
n_gauss_points,
n_gauss_points);
info_box.add_update_flags(update_flags, true, true, true, true);
info_box.initialize(fe, mapping);
MeshWorker::DoFInfo<dim> dof_info(dof_handler);
assembler;
assembler.initialize(system_matrix, right_hand_side);
MeshWorker::loop<dim, dim, MeshWorker::DoFInfo<dim>, MeshWorker::IntegrationInfoBox<dim> >
(dof_handler.begin_active(), dof_handler.end(),
dof_info, info_box,
&AdvectionProblem<dim>::integrate_cell_term,
&AdvectionProblem<dim>::integrate_boundary_term,
&AdvectionProblem<dim>::integrate_face_term,
assembler);
}
template <int dim>
void AdvectionProblem<dim>::integrate_cell_term (DoFInfo &dinfo,
CellInfo &info)
{
const FEValuesBase<dim> &fe_values = info.fe_values();
FullMatrix<double> &local_matrix = dinfo.matrix(0).matrix;
const std::vector<double> &JxW = fe_values.get_JxW_values ();
for (unsigned int point=0; point<fe_values.n_quadrature_points; ++point)
{
const Tensor<1,dim> beta_at_q_point = beta (fe_values.quadrature_point(point));
for (unsigned int i=0; i<fe_values.dofs_per_cell; ++i)
for (unsigned int j=0; j<fe_values.dofs_per_cell; ++j)
local_matrix(i,j) += -beta_at_q_point *
fe_values.shape_grad(i,point) *
fe_values.shape_value(j,point) *
JxW[point];
}
}
template <int dim>
void AdvectionProblem<dim>::integrate_boundary_term (DoFInfo &dinfo,
CellInfo &info)
{
const FEValuesBase<dim> &fe_face_values = info.fe_values();
FullMatrix<double> &local_matrix = dinfo.matrix(0).matrix;
Vector<double> &local_vector = dinfo.vector(0).block(0);
const std::vector<double> &JxW = fe_face_values.get_JxW_values ();
const std::vector<Tensor<1,dim> > &normals = fe_face_values.get_normal_vectors ();
std::vector<double> g(fe_face_values.n_quadrature_points);
static BoundaryValues<dim> boundary_function;
boundary_function.value_list (fe_face_values.get_quadrature_points(), g);
for (unsigned int point=0; point<fe_face_values.n_quadrature_points; ++point)
{
const double beta_dot_n = beta(fe_face_values.quadrature_point(point)) * normals[point];
if (beta_dot_n>0)
for (unsigned int i=0; i<fe_face_values.dofs_per_cell; ++i)
for (unsigned int j=0; j<fe_face_values.dofs_per_cell; ++j)
local_matrix(i,j) += beta_dot_n *
fe_face_values.shape_value(j,point) *
fe_face_values.shape_value(i,point) *
JxW[point];
else
for (unsigned int i=0; i<fe_face_values.dofs_per_cell; ++i)
local_vector(i) += -beta_dot_n *
g[point] *
fe_face_values.shape_value(i,point) *
JxW[point];
}
}
template <int dim>
void AdvectionProblem<dim>::integrate_face_term (DoFInfo &dinfo1,
DoFInfo &dinfo2,
CellInfo &info1,
CellInfo &info2)
{
const FEValuesBase<dim> &fe_face_values = info1.fe_values();
const FEValuesBase<dim> &fe_face_values_neighbor = info2.fe_values();
FullMatrix<double> &u1_v1_matrix = dinfo1.matrix(0,false).matrix;
FullMatrix<double> &u2_v1_matrix = dinfo1.matrix(0,true).matrix;
FullMatrix<double> &u1_v2_matrix = dinfo2.matrix(0,true).matrix;
FullMatrix<double> &u2_v2_matrix = dinfo2.matrix(0,false).matrix;
const std::vector<double> &JxW = fe_face_values.get_JxW_values ();
const std::vector<Tensor<1,dim> > &normals = fe_face_values.get_normal_vectors ();
for (unsigned int point=0; point<fe_face_values.n_quadrature_points; ++point)
{
const double beta_dot_n = beta(fe_face_values.quadrature_point(point)) * normals[point];
if (beta_dot_n>0)
{
for (unsigned int i=0; i<fe_face_values.dofs_per_cell; ++i)
for (unsigned int j=0; j<fe_face_values.dofs_per_cell; ++j)
u1_v1_matrix(i,j) += beta_dot_n *
fe_face_values.shape_value(j,point) *
fe_face_values.shape_value(i,point) *
JxW[point];
for (unsigned int k=0; k<fe_face_values_neighbor.dofs_per_cell; ++k)
for (unsigned int j=0; j<fe_face_values.dofs_per_cell; ++j)
u1_v2_matrix(k,j) += -beta_dot_n *
fe_face_values.shape_value(j,point) *
fe_face_values_neighbor.shape_value(k,point) *
JxW[point];
}
else
{
for (unsigned int i=0; i<fe_face_values.dofs_per_cell; ++i)
for (unsigned int l=0; l<fe_face_values_neighbor.dofs_per_cell; ++l)
u2_v1_matrix(i,l) += beta_dot_n *
fe_face_values_neighbor.shape_value(l,point) *
fe_face_values.shape_value(i,point) *
JxW[point];
for (unsigned int k=0; k<fe_face_values_neighbor.dofs_per_cell; ++k)
for (unsigned int l=0; l<fe_face_values_neighbor.dofs_per_cell; ++l)
u2_v2_matrix(k,l) += -beta_dot_n *
fe_face_values_neighbor.shape_value(l,point) *
fe_face_values_neighbor.shape_value(k,point) *
JxW[point];
}
}
}
template <int dim>
void AdvectionProblem<dim>::solve (Vector<double> &solution)
{
SolverControl solver_control (1000, 1e-12);
SolverRichardson<> solver (solver_control);
preconditioner.initialize(system_matrix, fe.dofs_per_cell);
solver.solve (system_matrix, solution, right_hand_side,
preconditioner);
}
template <int dim>
void AdvectionProblem<dim>::refine_grid ()
{
Vector<float> gradient_indicator (triangulation.n_active_cells());
dof_handler,
solution,
gradient_indicator);
cell = dof_handler.begin_active(),
endc = dof_handler.end();
for (unsigned int cell_no=0; cell!=endc; ++cell, ++cell_no)
gradient_indicator(cell_no)*=std::pow(cell->diameter(), 1+1.0*dim/2);
gradient_indicator,
0.3, 0.1);
triangulation.execute_coarsening_and_refinement ();
}
template <int dim>
void AdvectionProblem<dim>::output_results (const unsigned int cycle) const
{
{
const std::string filename = "grid-" + std::to_string(cycle) + ".eps";
deallog << "Writing grid to <" << filename << ">" << std::endl;
std::ofstream eps_output (filename.c_str());
GridOut grid_out;
grid_out.write_eps (triangulation, eps_output);
}
{
const std::string filename = "sol-" + std::to_string(cycle) + ".gnuplot";
deallog << "Writing solution to <" << filename << ">" << std::endl;
std::ofstream gnuplot_output (filename.c_str());
DataOut<dim> data_out;
data_out.attach_dof_handler (dof_handler);
data_out.add_data_vector (solution, "u");
data_out.build_patches ();
data_out.write_gnuplot(gnuplot_output);
}
}
template <int dim>
void AdvectionProblem<dim>::run ()
{
for (unsigned int cycle=0; cycle<6; ++cycle)
{
deallog << "Cycle " << cycle << std::endl;
if (cycle == 0)
{
GridGenerator::hyper_cube (triangulation);
triangulation.refine_global (3);
}
else
refine_grid ();
deallog << "Number of active cells: "
<< triangulation.n_active_cells()
<< std::endl;
setup_system ();
deallog << "Number of degrees of freedom: "
<< dof_handler.n_dofs()
<< std::endl;
assemble_system ();
solve (solution);
output_results (cycle);
}
}
}
int main ()
{
try
{
Step12::AdvectionProblem<2> dgmethod;
dgmethod.run ();
}
catch (std::exception &exc)
{
std::cerr << std::endl << std::endl
<< "----------------------------------------------------"
<< std::endl;
std::cerr << "Exception on processing: " << std::endl
<< exc.what() << std::endl
<< "Aborting!" << std::endl
<< "----------------------------------------------------"
<< std::endl;
return 1;
}
catch (...)
{
std::cerr << std::endl << std::endl
<< "----------------------------------------------------"
<< std::endl;
std::cerr << "Unknown exception!" << std::endl
<< "Aborting!" << std::endl
<< "----------------------------------------------------"
<< std::endl;
return 1;
}
return 0;
}