Commit 571963b7 authored by Christoph Grueninger's avatar Christoph Grueninger
Browse files

Add test for Navier-Stokes model.

(review and corrections by bernd, thanks)


git-svn-id: svn://svn.iws.uni-stuttgart.de/DUMUX/dumux/trunk@8456 2fb0f335-1f38-0410-981e-8018bf24f1b0
parent 4d2e677b
......@@ -92,6 +92,7 @@ AC_CONFIG_FILES([dumux.pc
test/decoupled/2padaptive/Makefile
test/decoupled/2p2c/Makefile
test/freeflow/Makefile
test/freeflow/navierstokes/Makefile
test/freeflow/stokes/Makefile
test/freeflow/stokes2c/Makefile
test/freeflow/stokes2cni/Makefile
......
add_subdirectory("navierstokes")
add_subdirectory("stokes")
add_subdirectory("stokes2c")
add_subdirectory("stokes2cni")
SUBDIRS = stokes stokes2c stokes2cni
SUBDIRS = navierstokes stokes stokes2c stokes2cni
EXTRA_DIST=CMakeLists.txt
include $(top_srcdir)/am/global-rules
......
# add build targets
add_executable("test_navierstokes" test_navierstokes.cc)
target_link_libraries("test_navierstokes" ${DumuxLinkLibraries})
if(SUPERLU_FOUND)
set_target_properties("test_navierstokes"
PROPERTIES
COMPILE_FLAGS ${SUPERLU_CPPFLAGS})
target_link_libraries("test_navierstokes" ${SUPERLU_LIBS})
endif(SUPERLU_FOUND)
# add required libraries and includes to the build flags
link_directories(${DumuxLinkDirectories})
include_directories(${DumuxIncludeDirectories})
# make sure the grids are present in the build directory
add_custom_command(TARGET "test_navierstokes"
POST_BUILD
COMMAND ${CMAKE_COMMAND} -E
copy_directory
"${CMAKE_CURRENT_SOURCE_DIR}/grids"
"${CMAKE_CURRENT_BINARY_DIR}/grids")
check_PROGRAMS = test_navierstokes
test_navierstokes_SOURCES = test_navierstokes.cc
EXTRA_DIST=*reference.vtu *.input grids/*.dgf CMakeLists.txt
noinst_HEADERS=*.hh
include $(top_srcdir)/am/global-rules
This diff is collapsed.
// -*- mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
// vi: set et ts=4 sw=4 sts=4:
/*****************************************************************************
* Copyright (C) 2012 by Christoph Grueninger *
* Institute for Modelling Hydraulic and Environmental Systems *
* University of Stuttgart, Germany *
* email: <givenname>.<name>@iws.uni-stuttgart.de *
* *
* This program is free software: you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation, either version 2 of the License, or *
* (at your option) any later version. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License *
* along with this program. If not, see <http://www.gnu.org/licenses/>. *
*****************************************************************************/
#ifndef DUMUX_TEST_FREEFLOW_NAVIERSTOKES_N2CONSTVISCOSITY_HH
#define DUMUX_TEST_FREEFLOW_NAVIERSTOKES_N2CONSTVISCOSITY_HH
/*!
* \file
* \ingroup Components
*
* \brief Properties of pure molecular nitrogen \f$N_2\f$ with constant viscosity.
*
* The constant viscosity is useful to get a desired Reynolds number.
*/
#include <dumux/material/components/n2.hh>
namespace Dumux
{
/**
* \ingroup BoxStokesModel
* \ingroup BoxTestProblems
*
* \brief Properties of pure molecular nitrogen \f$N_2\f$ with constant
* viscosity.
*
* The constant viscosity is useful to get a desired Reynolds number.
*
* \tparam Scalar The type used for scalar values
*/
template <class Scalar>
class N2ConstViscosity : public N2<Scalar>
{
typedef Dumux::IdealGas<Scalar> IdealGas;
public:
/**
* \brief A human readable name for nitrogen with fixed viscosity.
*/
static const char *name()
{
return "N2constViscosity";
}
/**
* \brief The dynamic viscosity given by a fixed value to garantee
* a Reynolds number.
*/
static Scalar gasViscosity(Scalar temperature, Scalar pressure)
{
Scalar renoldsNumber = 100.0;
Scalar characteristicLength = 1.0;
// Density of N2 for pressure of 0.1 MPa,
// temperature of 283.15 degree Celsius (from NIST homepage)
Scalar characteristicDensity = 1.1903;
return characteristicLength / (renoldsNumber * characteristicDensity);
}
};
} // end namepace
#endif // DUMUX_TEST_FREEFLOW_NAVIERSTOKES_N2CONSTVISCOSITY_HH
// -*- mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
// vi: set et ts=4 sw=4 sts=4:
/*****************************************************************************
* Copyright (C) 2012 by Christoph Grueninger *
* Copyright (C) 2009-2012 by Klaus Mosthaf *
* Copyright (C) 2010 by Katherina Baber *
* Copyright (C) 2007-2008 by Bernd Flemisch *
* Copyright (C) 2008-2009 by Andreas Lauser *
* Institute for Modelling Hydraulic and Environmental Systems *
* University of Stuttgart, Germany *
* email: <givenname>.<name>@iws.uni-stuttgart.de *
* *
* This program is free software: you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation, either version 2 of the License, or *
* (at your option) any later version. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License *
* along with this program. If not, see <http://www.gnu.org/licenses/>. *
*****************************************************************************/
/**
* \file
* \brief Definition of a simple Navier-Stokes problem
*/
#ifndef DUMUX_TEST_FREEFLOW_NAVIERSTOKESTESTPROBLEM_HH
#define DUMUX_TEST_FREEFLOW_NAVIERSTOKESTESTPROBLEM_HH
#if HAVE_ALUGRID
#include <dune/grid/alugrid/2d/alugrid.hh>
#elif HAVE_UG
#include <dune/grid/io/file/dgfparser/dgfug.hh>
#else
#warning UG or ALUGrid necessary for this test.
#endif
#include <dune/grid/io/file/dgfparser.hh>
#include <dumux/material/fluidsystems/h2on2fluidsystem.hh>
#include <dumux/material/fluidsystems/gasphase.hh>
#include <dumux/freeflow/stokes/stokesmodel.hh>
#include "n2constviscosity.hh"
namespace Dumux
{
template <class TypeTag>
class NavierStokesTestProblem;
// Specify the properties for the stokes problem
namespace Properties
{
NEW_TYPE_TAG(NavierStokesTestProblem, INHERITS_FROM(BoxStokes));
// Set the grid type
#if HAVE_ALUGRID
SET_TYPE_PROP(NavierStokesTestProblem, Grid, Dune::ALUCubeGrid<2,2>);
#elif HAVE_UG
SET_TYPE_PROP(NavierStokesTestProblem, Grid, Dune::UGGrid<2,2>);
#endif
// Set the problem property
SET_TYPE_PROP(NavierStokesTestProblem, Problem, Dumux::NavierStokesTestProblem<TypeTag>);
// Set calculation to Navier-Stokes, not Stokes
SET_BOOL_PROP(NavierStokesTestProblem, EnableNavierStokes, true);
SET_PROP(NavierStokesTestProblem, Fluid)
{
private:
typedef typename GET_PROP_TYPE(TypeTag, Scalar) Scalar;
public:
typedef Dumux::GasPhase<Scalar, Dumux::N2ConstViscosity<Scalar> > type;
};
// Scalar is set to type double
SET_TYPE_PROP(BoxStokes, Scalar, double);
// Disabled stabilization factor. Set negative for stabilization and to zero for no stabilization
SET_SCALAR_PROP(BoxStokes, StabilizationAlpha, 0.0);
// Disabled stabilization factor for the boundaries
SET_SCALAR_PROP(BoxStokes, StabilizationBeta, 0.0);
// Disable gravity
SET_BOOL_PROP(NavierStokesTestProblem, EnableGravity, false);
}
/*!
* \ingroup BoxStokesModel
* \ingroup BoxTestProblems
* \brief Stokes flow problem with modified nitrogen (N2) circulating in
* a cavity. (lid-driven cavity-flow)
*
* The example is taken from Ghia, Ghia, and Shin (1982), "High-Re solutions
* for incompressible flow using the Navier-Stokes equations and a multigrid
* method", Journal of Computational Physics, Vol. 48, pp. 387-411.
*
* The domain is two-dimensional and sized 1m times 1m. The boundary conditions
* for the momentum balances are Neumann zero boundary conditions except for
* the top, which is floating from left to right with 1 m/s. The mass balance
* has outflow boundary conditions, which are replaced in the localresidual by
* the sum of the two momentum balances. All vertices at the bottom receive
* Dirichlet boundary conditions to set the pressure level.
*
* This problem uses the \ref BoxStokesModel with <code>EnableNavierStokes</code>
* set to <code>true</code>.
*/
template <class TypeTag>
class NavierStokesTestProblem : public StokesProblem<TypeTag>
{
typedef StokesProblem<TypeTag> ParentType;
typedef typename GET_PROP_TYPE(TypeTag, GridView) GridView;
typedef typename GET_PROP_TYPE(TypeTag, TimeManager) TimeManager;
typedef typename GET_PROP_TYPE(TypeTag, StokesIndices) Indices;
enum
{
// Number of equations and grid dimension
dim = GridView::dimension,
// copy some indices for convenience
massBalanceIdx = Indices::massBalanceIdx, //!< Index of the mass balance
momentumXIdx = Indices::momentumXIdx, //!< Index of the x-component of the momentum balance
momentumYIdx = Indices::momentumYIdx //!< Index of the y-component of the momentum balance
};
typedef typename GET_PROP_TYPE(TypeTag, PrimaryVariables) PrimaryVariables;
typedef typename GET_PROP_TYPE(TypeTag, BoundaryTypes) BoundaryTypes;
typedef typename GridView::template Codim<0>::Entity Element;
typedef typename GridView::template Codim<dim>::Entity Vertex;
typedef typename GridView::ctype CoordScalar;
typedef typename GridView::Intersection Intersection;
typedef typename GET_PROP_TYPE(TypeTag, FVElementGeometry) FVElementGeometry;
typedef typename GET_PROP_TYPE(TypeTag, Fluid) Fluid;
typedef typename GET_PROP_TYPE(TypeTag, Scalar) Scalar;
typedef Dune::FieldVector<CoordScalar, dim> GlobalPosition;
public:
NavierStokesTestProblem(TimeManager &timeManager, const GridView &gridView)
: ParentType(timeManager, gridView)
{
eps_ = 1e-6;
}
/**
* \name Problem parameters
*/
// \{
/**
* \brief The problem name.
*
* This is used as a prefix for files generated by the simulation.
*/
const char *name() const
{
return "navierstokes";
}
/**
* \brief Returns the temperature within the domain.
*
* This problem assumes a constant temperature of 10 degrees Celsius.
*/
Scalar boxTemperature(const Element &element,
const FVElementGeometry &fvElemGeom,
const int scvIdx) const
{
return 273.15 + 10; // -> 10C
};
// \}
/**
* \name Boundary conditions
*/
// \{
/**
* \brief Specifies which kind of boundary condition should be
* used for which equation on a given boundary segment.
*
* \param values The boundary types for the conservation equations
* \param vertex The vertex on the boundary for which the
* conditions needs to be specified
*/
void boundaryTypes(BoundaryTypes &values, const Vertex &vertex) const
{
const GlobalPosition globalPos = vertex.geometry().center();
values.setOutflow(massBalanceIdx);
values.setDirichlet(momentumXIdx);
values.setDirichlet(momentumYIdx);
// set pressure for all vertices at the bottom
if (onLowerBoundary_(globalPos))
{
values.setDirichlet(massBalanceIdx);
}
}
/**
* \brief Evaluate the boundary conditions for a dirichlet
* control volume.
*
* \param values The dirichlet values for the primary variables
* \param vertex The vertex representing the "half volume on the boundary"
*
* For this method, the \a values parameter stores primary variables.
*/
void dirichlet(PrimaryVariables &values, const Vertex &vertex) const
{
const GlobalPosition globalPos = vertex.geometry().center();
initial_(values, globalPos);
// lid moves from left to right
const Scalar lidVelocity = 1.0;
if (onUpperBoundary_(globalPos))
{
values[Indices::velocityXIdx] = lidVelocity;
}
}
/**
* \brief Evaluate the boundary conditions for a neumann
* boundary segment.
*
* For this method, the \a values parameter stores the mass flux
* in normal direction of each phase. Negative values mean influx.
*
* A Neumann condition for the Stokes equation corresponds to:
* \f[ -\mu \nabla {\bf v} \cdot {\bf n} + p \cdot {\bf n} = q_N \f]
*/
void neumann(PrimaryVariables &values,
const Element &element,
const FVElementGeometry &fvElemGeom,
const Intersection &is,
const int scvIdx,
const int boundaryFaceIdx) const
{
values = 0.0;
}
// \}
/**
* \name Volume terms
*/
// \{
/**
* \brief Evaluate the source term for all phases within a given
* sub-control-volume.
*
* For this method, the \a values parameter stores the rate mass
* generated or annihilate per volume unit. Positive values mean
* that mass is created, negative ones mean that it vanishes.
*/
void source(PrimaryVariables &values,
const Element &element,
const FVElementGeometry &,
const int scvIdx) const
{
// ATTENTION: The source term of the mass balance has to be chosen as
// div (q_momentum) in the problem file
values = Scalar(0.0);
}
/**
* \brief Evaluate the initial value for a control volume.
*
* For this method, the \a values parameter stores primary
* variables.
*/
void initial(PrimaryVariables &values,
const Element &element,
const FVElementGeometry &fvElemGeom,
const int scvIdx) const
{
const GlobalPosition &globalPos = element.geometry().corner(scvIdx);
initial_(values, globalPos);
}
// \}
private:
// internal method for the initial condition
void initial_(PrimaryVariables &values,
const GlobalPosition &globalPos) const
{
// pressure
values[massBalanceIdx] = 1e5;
// velocity in x- and y-direction
values[momentumXIdx] = 0.0;
values[momentumYIdx] = 0.0;
}
bool onLeftBoundary_(const GlobalPosition &globalPos) const
{
return globalPos[0] < this->bboxMin()[0] + eps_;
}
bool onRightBoundary_(const GlobalPosition &globalPos) const
{
return globalPos[0] > this->bboxMax()[0] - eps_;
}
bool onLowerBoundary_(const GlobalPosition &globalPos) const
{
return globalPos[1] < this->bboxMin()[1] + eps_;
}
bool onUpperBoundary_(const GlobalPosition &globalPos) const
{
return globalPos[1] > this->bboxMax()[1] - eps_;
}
Scalar eps_;
};
} //end namespace
#endif // DUMUX_TEST_FREEFLOW_NAVIERSTOKESTESTPROBLEM_HH
/*****************************************************************************
* Copyright (C) 2012 by Christoph Grueninger *
* Copyright (C) 2009-2012 by Klaus Mosthaf *
* Copyright (C) 2007-2008 by Bernd Flemisch *
* Copyright (C) 2008-2009 by Andreas Lauser *
* Institute for Modelling Hydraulic and Environmental Systems *
* University of Stuttgart, Germany *
* email: <givenname>.<name>@iws.uni-stuttgart.de *
* *
* This program is free software: you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation, either version 2 of the License, or *
* (at your option) any later version. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License *
* along with this program. If not, see <http://www.gnu.org/licenses/>. *
*****************************************************************************/
/*!
* \file
* \brief Test for the isothermal Navier-Stokes box model; this test case is
* known as lid-driven cavity-flow in literature.
*/
#include "config.h"
#include "navierstokestestproblem.hh"
#include <dumux/common/start.hh>
/*!
* \brief Provides an interface for customizing error messages associated with
* reading in parameters.
*
* \param progName The name of the program, that was tried to be started.
* \param errorMsg The error message that was issued by the start function.
* Comprises the thing that went wrong and a general help message.
*/
void usage(const char *progName, const std::string &errorMsg)
{
if (errorMsg.size() > 0) {
std::string errorMessageOut = "\nUsage: ";
errorMessageOut += progName;
errorMessageOut += " [options]\n";
errorMessageOut += errorMsg;
errorMessageOut += "\n\nThe List of Mandatory arguments for this program is:\n"
"\t-tEnd The end of the simulation. [s] \n"
"\t-dtInitial The initial timestep size. [s] \n"
"\t-gridFile The file name of the file containing the grid \n"
"\t definition in DGF format\n";
std::cout << errorMessageOut
<< "\n";
}
}
int main(int argc, char** argv)
{
#if HAVE_SUPERLU
typedef TTAG(NavierStokesTestProblem) ProblemTypeTag;
return Dumux::start<ProblemTypeTag>(argc, argv, usage);
#else
#warning "No SuperLU installed. Stokes currently only works with SuperLU."
std::cout << "No SuperLU installed. Stokes currently only works with SuperLU." << std::endl;
return 1;
#endif
}
############################################################
# Parameter file for test_stokes
# Everything behind a '#' is a comment
# Groups can be ordered e.g. : [BoundaryConditions],
# see ../2p2c/ for a more detailed example
############################################################
############################################################
# Mandatory arguments
############################################################
dtInitial = 1.0 # seconds
MaxTimeStepSize = 10.0 # seconds
tEnd = 30.0 # seconds
gridFile = ./grids/test_navierstokes.dgf
#########################################################################
# Simulation restart
#
# DuMux simulations can be restarted from *.drs files
# Set restart to the value of a specific file, e.g.: 'restart = 27184.1'
# for the restart file
# name_time = 27184.1_rank = 0.drs
# Please comment in the below value, if restart is desired.
#########################################################################
# restart = ...
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment