test_musst – MUSST

Subroutines to read a batch file and run tests

Uses

- data_arch
- data_film_hd
- ms_film
- film
- inout_files
- surfile
- num_param
- solver
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Variables

Type	Visibility	Attributes		Name
type(FE_FILM),	private		::	fe_f	FE_FILM deterministic finite element
type(MS_FE_FILM),	private		::	ms_fe_f	MS_FE_FILM multiscale finite element
type(DATA_FILM),	private		::	data_f	DATA_FILM parameter
type(NUM_PAR),	private		::	num_pbs	NUM_PAR parameter for the bottom-scale
type(NUM_PAR),	private		::	num_pts	NUM_PAR parameter for the top-scale
type(MAT_SOLV),	private		::	mat	MAT_SOLV solver type matrices
type(MS_MAT_SOLV),	private		::	ms_mat	MS_MAT_SOLV solver type matrices
integer(kind=I4),	private		::	nx	total number of nodes in $x$ direction
integer(kind=I4),	private		::	ny	total number of nodes in $y$ direction
integer(kind=I4),	private		::	n_mac	number of macro elements in a direction
integer(kind=I4),	private		::	n_mic	number of nodes in $x$ or $y$ direction for the bottom scale
real(kind=R8),	private		::	lx	domain size along $x$
real(kind=R8),	private		::	ly	domain size along $y$
real(kind=R8),	private		::	sq	roughness height
real(kind=R8),	private,	dimension(:, :), allocatable	::	tab_s	roughness table
real(kind=R8),	private,	dimension(:, :), allocatable	::	tab_sol	rough surface pressure solution
real(kind=R8),	private,	dimension(4)	::	bc	boundary conditions
real(kind=R8),	private,	dimension(4)	::	bf	boundary conditions
real(kind=R4),	private		::	t1	cpu time
real(kind=R4),	private		::	t2	cpu time
integer(kind=I4),	private		::	cend	real time
integer(kind=I4),	private		::	cr	real time
integer(kind=I4),	private		::	cinit	real time
integer(kind=I4),	private		::	unit_num_res	file number
integer(kind=I4),	private		::	compare_solution_file	whether to compare the pressure MS solution to a reference
character(len=256),	private		::	ms_vtk	output vtk file name
character(len=256),	private		::	prof_ts	ts/bs mat profile name
character(len=256),	private		::	prof_bs	ts/bs mat profile name
character(len=256),	private		::	res_file	result file name
character(len=256),	private		::	surface_file	surface file name
character(len=256),	private		::	pressure_solution_file	pressure solution file for a rough surface
character(len=15),	private		::	res_dir	"/out" subdirectory for results
type(SCALE_SURF),	private		::	scal_tmp	object SCALE_SURF
integer(kind=I4),	public		::	test_num	test number
logical(kind=I4),	private		::	save_PeK	save $x$ Peclet field
logical(kind=I4),	private		::	save_PeE	save $y$ Peclet field