mus_particle_tests_module Module

mus_particle_tests_module contains a number of tests for routines of the particle Musubi code. Right now this is a work-in-progress.

Uses

Subroutines

public subroutine mus_particles_runtests(particleGroup, scheme, geometry, params)

Arguments

Type	Intent	Optional	Attributes		Name
type(mus_particle_group_type),	intent(inout)			::	particleGroup
type(mus_scheme_type),	intent(inout)			::	scheme
type(mus_geom_type),	intent(in)			::	geometry
type(mus_param_type),	intent(in)			::	params

public subroutine test_interpolation_delta_DPS_d3q19(xp, interpolator, scheme, geometry, params, plogunit)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	xp(3)	Query point (x,y,z) to interpolate fluid properties to
type(mus_particle_interpolator_type)				::	interpolator	Object containing interpolation information
type(mus_scheme_type),	intent(inout)			::	scheme	Scheme for access to fluid data
type(mus_geom_type),	intent(in)			::	geometry	Geometry for access to tree
type(mus_param_type),	intent(in)			::	params	Params for access to dt, dx, etc.
integer,	intent(in)			::	plogunit	Unit to write output to

public subroutine test_interpolation_delta_DPS_d2q9(xp, interpolator, scheme, geometry, params, plogunit)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	xp(3)	Query point (x,y,z) to interpolate fluid properties to
type(mus_particle_interpolator_type)				::	interpolator	Object containing interpolation information
type(mus_scheme_type),	intent(inout)			::	scheme	Scheme for access to fluid data
type(mus_geom_type),	intent(in)			::	geometry	Geometry for access to tree
type(mus_param_type),	intent(in)			::	params	Params for access to dt, dx, etc.
integer,	intent(in)			::	plogunit	Unit to write output to

public subroutine test_calcVelocityAndPressureGradient_DPS(xp, scheme, geometry, params, plogunit)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	xp(3)	Query point (x,y,z) to interpolate fluid properties to
type(mus_scheme_type),	intent(inout)			::	scheme	Scheme for access to fluid data
type(mus_geom_type),	intent(in)			::	geometry	Geometry for access to tree
type(mus_param_type),	intent(in)			::	params	Params for access to dt, dx, etc.
integer,	intent(in)			::	plogunit	Unit to write output to

public subroutine test_computeDisplacement(flag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	flag

public subroutine test_computeWallForces(flag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	flag

public subroutine test_DEM_fillNeighborList(flag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(out)			::	flag

public subroutine test_generateElemListLine(scheme, geometry, params)

Arguments

Type	Intent	Optional	Attributes		Name
type(mus_scheme_type),	intent(inout)			::	scheme	Scheme for access to fluid data
type(mus_geom_type),	intent(in)			::	geometry	Geometry for access to tree
type(mus_param_type),	intent(in)			::	params	Params

public subroutine test_intp1D_peskin(flag, plogunit)

Arguments

Type	Intent	Optional	Attributes		Name
logical				::	flag
integer				::	plogunit

public subroutine test_compute_fluid_momentum(scheme, geometry, params, comm, myRank, nProcs, plogunit, flag)

Arguments

Type	Intent	Optional	Attributes		Name
type(mus_scheme_type),	intent(inout)			::	scheme	Scheme for access to auxField
type(mus_geom_type),	intent(in)			::	geometry	Geometry for access to global number of elems
type(mus_param_type),	intent(in)			::	params	Params for access to dt, dx, etc.
integer,	intent(in)			::	comm	MPI communicator
integer,	intent(in)			::	myRank	My MPI rank
integer,	intent(in)			::	nProcs	Number of MPI processes in communicator
integer,	intent(in)			::	plogunit	Unit to log test result to
logical,	intent(out)			::	flag	flag gets set to TRUE if test succeeded, FALSE if it failed

public subroutine test_compute_particle_momentum(lev, params, comm, myRank, nProcs, plogunit, flag)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	lev
type(mus_param_type),	intent(in)			::	params	Params for access to dt, dx, etc.
integer,	intent(in)			::	comm	MPI communicator
integer,	intent(in)			::	myRank	My MPI rank
integer,	intent(in)			::	nProcs	Number of MPI processes in communicator
integer,	intent(in)			::	plogunit	Unit to log test result to
logical,	intent(out)			::	flag	flag gets set to TRUE if test succeeded, FALSE if it failed

public subroutine test_global_errorcheck(myRank, plogunit)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	myRank
integer,	intent(in)			::	plogunit