mod_multiphase_height_function_curvature_3d Module Reference

Functions/Subroutines
subroutine	compute_curvature_height_function_hybrid_3d (curvature, vf, nn, nh)
	Compute the phase curvature field with a hybrid height function method in 3d.
subroutine	compute_height_normal (vf, normal, nn, nh, i, j, k, height, error, d1, d2, dir)
subroutine	compute_height (vf, coord_face, nh_max, normal, height, error)
subroutine	compute_curvature_height_function_coeff_3d (h1_1, h2_1, h11_2, h22_2, h12_2, height, delta1, delta2)
subroutine	compute_curvature_rotated_height_function_3d (curv, i, j, k, normal, w, sw, l, vf)
subroutine	compute_rotated_height_function_3d (x, y, z, normal, tangent1, tangent2, w, length, h, vf, i, j, k)
subroutine	init_poly (poly_to_init, x, y, z, length, w, normal, tangent1, tangent2)
subroutine	boucle_poly (or, vf, dxyz, l, m, n, h, l_normal, w)
subroutine	compute_poly (or, cell, l_normal, vf, dxyz, h)
subroutine	find_interface (is_interface, vf, nh)
integer function	get_i (x, i_ref)
integer function	get_j (y, j_ref)
integer function	get_k (z, k_ref)

Function/Subroutine Documentation

boucle_poly()

subroutine mod_multiphase_height_function_curvature_3d::boucle_poly	(	type(t_polyhedron), intent(in)	or,
		double precision, intent(in)	vf,
		double precision, intent(in)	dxyz,
		integer, intent(in)	l,
		integer, intent(in)	m,
		integer, intent(in)	n,
		double precision, intent(inout)	h,
		double precision, dimension(3), intent(in)	l_normal,
		double precision, intent(in)	w )

compute_curvature_height_function_coeff_3d()

subroutine mod_multiphase_height_function_curvature_3d::compute_curvature_height_function_coeff_3d	(	double precision, intent(out)	h1_1,
		double precision, intent(out)	h2_1,
		double precision, intent(out)	h11_2,
		double precision, intent(out)	h22_2,
		double precision, intent(out)	h12_2,
		double precision, dimension(-1:+1,-1:+1), intent(in)	height,
		double precision, intent(in)	delta1,
		double precision, intent(in)	delta2 )

compute_curvature_rotated_height_function_3d()

subroutine mod_multiphase_height_function_curvature_3d::compute_curvature_rotated_height_function_3d	(	double precision, intent(inout)	curv,
		integer, intent(in)	i,
		integer, intent(in)	j,
		integer, intent(in)	k,
		double precision, dimension(3), intent(in)	normal,
		double precision, intent(in)	w,
		double precision, intent(in)	sw,
		double precision, intent(in)	l,
		double precision, dimension(:,:,:), intent(in)	vf )

compute_height()

subroutine mod_multiphase_height_function_curvature_3d::compute_height	(	double precision, dimension(-nh_max:nh_max), intent(in)	vf,
		double precision, dimension(-nh_max:nh_max+1), intent(in)	coord_face,
		integer, intent(in)	nh_max,
		double precision, intent(in)	normal,
		double precision, intent(out)	height,
		integer, intent(out)	error )

compute_height_normal()

subroutine mod_multiphase_height_function_curvature_3d::compute_height_normal	(	double precision, dimension(:,:,:), intent(in)	vf,
		double precision, dimension(3), intent(in)	normal,
		integer, intent(in)	nn,
		integer, intent(in)	nh,
		integer, intent(in)	i,
		integer, intent(in)	j,
		integer, intent(in)	k,
		double precision, dimension(-1:+1,-1:+1), intent(inout)	height,
		integer, dimension(-1:+1,-1:+1), intent(inout)	error,
		double precision, intent(out)	d1,
		double precision, intent(out)	d2,
		integer, intent(out)	dir )

compute_poly()

subroutine mod_multiphase_height_function_curvature_3d::compute_poly	(	type(t_polyhedron), intent(in)	or,
		type(t_polyhedron), intent(in)	cell,
		double precision, dimension(3), intent(in)	l_normal,
		double precision, intent(in)	vf,
		double precision, intent(in)	dxyz,
		double precision, intent(inout)	h )

compute_rotated_height_function_3d()

subroutine mod_multiphase_height_function_curvature_3d::compute_rotated_height_function_3d	(	double precision, intent(in)	x,
		double precision, intent(in)	y,
		double precision, intent(in)	z,
		double precision, dimension(3), intent(in)	normal,
		double precision, dimension(3), intent(in)	tangent1,
		double precision, dimension(3), intent(in)	tangent2,
		double precision, intent(in)	w,
		double precision, intent(in)	length,
		double precision, intent(inout)	h,
		double precision, dimension(:,:,:), intent(in)	vf,
		integer, intent(in)	i,
		integer, intent(in)	j,
		integer, intent(in)	k )

find_interface()

subroutine mod_multiphase_height_function_curvature_3d::find_interface	(	logical, intent(out)	is_interface,
		double precision, dimension(-(nh-1)/2:+(nh-1)/2), intent(in)	vf,
		integer, intent(in)	nh )

get_i()

integer function mod_multiphase_height_function_curvature_3d::get_i	(	double precision, intent(in)	x,
		integer, intent(in)	i_ref )

get_j()

integer function mod_multiphase_height_function_curvature_3d::get_j	(	double precision, intent(in)	y,
		integer, intent(in)	j_ref )

get_k()

integer function mod_multiphase_height_function_curvature_3d::get_k	(	double precision, intent(in)	z,
		integer, intent(in)	k_ref )

init_poly()

subroutine mod_multiphase_height_function_curvature_3d::init_poly	(	type(t_polyhedron), intent(inout)	poly_to_init,
		double precision, intent(in)	x,
		double precision, intent(in)	y,
		double precision, intent(in)	z,
		double precision, intent(in)	length,
		double precision, intent(in)	w,
		double precision, dimension(3), intent(in)	normal,
		double precision, dimension(3), intent(in)	tangent1,
		double precision, dimension(3), intent(in)	tangent2 )