test_axi_ns_poiseuille_flow.C File Reference

#include "grins_config.h"
#include <iostream>
#include "grins/simulation.h"
#include "grins/simulation_builder.h"
#include "grins/multiphysics_sys.h"
#include "grins/parabolic_profile.h"
#include "libmesh/exact_solution.h"

Include dependency graph for test_axi_ns_poiseuille_flow.C:

Go to the source code of this file.

Classes
class	AxiParabolicBCFactory

Functions
libMesh::Number	exact_solution (const libMesh::Point &p, const libMesh::Parameters &, const std::string &, const std::string &)
libMesh::Gradient	exact_derivative (const libMesh::Point &p, const libMesh::Parameters &, const std::string &, const std::string &)
int	main (int argc, char *argv[])

Function Documentation

libMesh::Gradient exact_derivative	(	const libMesh::Point &	p,
		const libMesh::Parameters &	,
		const std::string &	,
		const std::string &	var
	)

Definition at line 206 of file test_axi_ns_poiseuille_flow.C.

Referenced by main().

{
  const double r = p(0);

  libMesh::Gradient g;

  // Hardcoded to velocity in input file.
  if( var == "z_vel" )
    {
      g(0) = -100.0/2.0*r;
      g(1) = 0.0;
    }

  return g;
}

libMesh::Number exact_solution	(	const libMesh::Point &	p,
		const libMesh::Parameters &	,
		const std::string &	,
		const std::string &	var
	)

Definition at line 186 of file test_axi_ns_poiseuille_flow.C.

Referenced by main().

{
  const double r = p(0);
  
  const double r0 = 1.0;
  const double mu = 1.0;
  const double dpdx = -1.0;

  libMesh::Number f = 0;
  // Hardcoded to velocity in input file.
  if( var == "z_vel" ) f = -dpdx*100.0/(4.0*mu)*(r0*r0 - r*r);
  else libmesh_assert(false);

  return f;
}

int main	(	int	argc,
		char *	argv[]
	)

Definition at line 69 of file test_axi_ns_poiseuille_flow.C.

References GRINS::SimulationBuilder::attach_bc_factory(), exact_derivative(), exact_solution(), and GRINS::Simulation::get_equation_system().

{
#ifdef GRINS_USE_GRVY_TIMERS
  GRVY::GRVY_Timer_Class grvy_timer;
  grvy_timer.Init("GRINS Timer");
#endif

  // Check command line count.
  if( argc < 2 )
    {
      // TODO: Need more consistent error handling.
      std::cerr << "Error: Must specify libMesh input file." << std::endl;
      exit(1); // TODO: something more sophisticated for parallel runs?
    }

  // libMesh input file should be first argument
  std::string libMesh_input_filename = argv[1];
  
  // Create our GetPot object.
  GetPot libMesh_inputfile( libMesh_input_filename );

#ifdef GRINS_USE_GRVY_TIMERS
  grvy_timer.BeginTimer("Initialize Solver");
#endif

  // Initialize libMesh library.
  libMesh::LibMeshInit libmesh_init(argc, argv);
 
  GRINS::SimulationBuilder sim_builder;

  std::tr1::shared_ptr<AxiParabolicBCFactory> bc_factory( new AxiParabolicBCFactory );

  sim_builder.attach_bc_factory(bc_factory);

  GRINS::Simulation grins( libMesh_inputfile,
                           sim_builder,
                           libmesh_init.comm() );

#ifdef GRINS_USE_GRVY_TIMERS
  grvy_timer.EndTimer("Initialize Solver");

  // Attach GRVY timer to solver
  grins.attach_grvy_timer( &grvy_timer );
#endif

  // Get equation systems to create ExactSolution object
  std::tr1::shared_ptr<libMesh::EquationSystems> es = grins.get_equation_system();

  // Do solve here
  grins.run();


  // Create Exact solution object and attach exact solution quantities
  libMesh::ExactSolution exact_sol(*es);

  exact_sol.attach_exact_value(&exact_solution);
  exact_sol.attach_exact_deriv(&exact_derivative);
  
  // Compute error and get it in various norms
  exact_sol.compute_error("GRINS", "z_vel");

  double l2error = exact_sol.l2_error("GRINS", "z_vel");
  double h1error = exact_sol.h1_error("GRINS", "z_vel");
  
  int return_flag = 0;
 
  double tol = 1.0e-9;

  if( l2error > tol || h1error > tol )
    {
      return_flag = 1;

      std::cout << "Tolerance exceeded for velocity in Poiseuille test." << std::endl
                << "l2 error = " << l2error << std::endl
                << "h1 error = " << h1error << std::endl;
    }

  /*
  // Compute error and get it in various norms
  exact_sol.compute_error("GRINS", "p");

  l2error = exact_sol.l2_error("GRINS", "p");
  h1error = exact_sol.h1_error("GRINS", "p");

  if( l2error > 1.0e-11 || h1error > 1.0e-11 )
    {
      return_flag = 1;

      std::cout << "Tolerance exceeded for pressure in Poiseuille test." << std::endl
                << "l2 error = " << l2error << std::endl
                << "h1 error = " << h1error << std::endl;
    }
  */

  return return_flag;
}