non_normal::non_normal_t Type Reference

Dirichlet condition in non normal direction of a plane. More...

Inheritance diagram for non_normal::non_normal_t:

Collaboration diagram for non_normal::non_normal_t:

Public Member Functions
procedure, pass(this)	init (this, coef, json)
	Constructor.
procedure, pass(this)	init_from_components (this, coef)
	Constructor from components.
procedure, pass(this)	free (this)
	Destructor.
procedure, pass(this)	finalize (this, only_facets)
	Finalize.
procedure, pass(this)	apply_scalar (this, x, n, time, strong)
	No-op scalar apply.
procedure(bc_apply_scalar), deferred, pass	apply_scalar (this, x, n, time, strong)
	Apply the boundary condition to a scalar field on the CPU.
procedure, pass(this)	apply_vector (this, x, y, z, n, time, strong)
	Apply symmetry conditions (axis aligned)
procedure(bc_apply_vector), deferred, pass	apply_vector (this, x, y, z, n, time, strong)
	Apply the boundary condition to a vector field on the CPU.
procedure, pass(this)	apply_scalar_dev (this, x_d, time, strong, strm)
	No-op scalar apply (device version)
procedure(bc_apply_scalar_dev), deferred, pass	apply_scalar_dev (this, x_d, time, strong, strm)
	Device version of apply_scalar on the device.
procedure, pass(this)	apply_vector_dev (this, x_d, y_d, z_d, time, strong, strm)
	Apply symmetry conditions (axis aligned) (device version)
procedure(bc_apply_vector_dev), deferred, pass	apply_vector_dev (this, x_d, y_d, z_d, time, strong, strm)
	Device version of apply_vector on the device.
procedure, pass(this)	init (this, coef, json)
	Constructor.
procedure(bc_constructor), deferred, pass	init (this, coef, json)
	Deferred constructor.
procedure, pass(this)	init_from_components (this, coef)
	Constructor from compoenents.
procedure, pass(this)	free (this)
	Destructor.
procedure(bc_destructor), deferred, pass	free (this)
	Deferred destructor.
procedure, pass(this)	get_normal_axis (this, sx, sy, sz, facet, el)
	Get the axis coressponding to the direction of the normal.
procedure, pass(this)	finalize (this, only_facets)
	Finalize.
procedure(bc_finalize), deferred, pass	finalize (this, only_facets)
	Deferred finalizer.
procedure, pass(this)	init_base (this, coef)
	Constructor.
procedure, pass(this)	free_base (this)
	Destructor.
procedure, pass(this)	mark_facet (this, facet, el)
	Mark a facet on an element as part of the boundary condition.
procedure, pass(this)	mark_facets (this, facet_list)
	Mark all facets from a (facet, element) tuple list.
procedure, pass(this)	mark_zone (this, bc_zone)
	Mark all facets from a zone.
procedure, pass(this)	finalize_base (this, only_facets)
	Finalize the construction of the bc by populating the msk and facet arrays.
procedure, pass(this)	apply_scalar_generic (this, x, time, strong, strm)
	Apply the boundary condition to a scalar field. Dispatches to the CPU or the device version.
procedure, pass(this)	apply_vector_generic (this, x, y, z, time, strong, strm)
	Apply the boundary condition to a vector field. Dispatches to the CPU or the device version.
procedure, pass(this)	debug_mask_ (this, file_name)
	Write a field showing the mask of the bcs.

Public Attributes
type(zero_dirichlet_t)	bc_x
type(zero_dirichlet_t)	bc_y
type(zero_dirichlet_t)	bc_z
integer, dimension(:), allocatable	msk
	The linear index of each node in each boundary facet.
integer, dimension(:), allocatable	facet
	A list of facet ids (1 to 6), one for each element in msk.
type(dofmap_t), pointer	dof => null()
	Map of degrees of freedom.
type(coef_t), pointer	coef => null()
	SEM coefficients.
type(mesh_t), pointer	msh => null()
	The mesh.
type(space_t), pointer	xh => null()
	The function space.
type(stack_i4t2_t)	marked_facet
	Index tuples (facet, element) marked as part of the boundary condition.
type(c_ptr)	msk_d = C_NULL_PTR
	Device pointer for msk.
type(c_ptr)	facet_d = C_NULL_PTR
	Device pointer for facet.
logical	strong = .true.
	Wether the bc is strongly enforced. Essentially valid for all Dirichlet types of bcs. These need to be masked out for solvers etc, so that values are not affected. Mixed bcs are, by convention, weak.
logical	updated = .false.
	Indicates wether the bc has been updated, for those BCs that need additional computations.

Detailed Description

Warning

Only works for axis-aligned plane boundaries.

Definition at line 46 of file non_normal.f90.

Member Function/Subroutine Documentation

apply_scalar() [1/2]

procedure(bc_apply_scalar), deferred, pass bc::bc_t::apply_scalar ( class(bc_t), intent(inout)  this, real(kind=rp), dimension(n), intent(inout)  x, integer, intent(in)  n, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong  )

pure virtualinherited

Definition at line 112 of file bc.f90.

apply_scalar() [2/2]

procedure, pass(this) symmetry::symmetry_t::apply_scalar ( class(symmetry_t), intent(inout)  this, real(kind=rp), dimension(n), intent(inout)  x, integer, intent(in)  n, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong  )

inherited

Parameters

x	The field for which to apply the boundary condition.
n	The size of x.
time	Current time state.
strong	Whether we are setting a strong or a weak bc.

Definition at line 55 of file symmetry.f90.

apply_scalar_dev() [1/2]

procedure(bc_apply_scalar_dev), deferred, pass bc::bc_t::apply_scalar_dev ( class(bc_t), intent(inout), target  this, type(c_ptr), intent(inout)  x_d, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong, type(c_ptr), intent(inout)  strm  )

pure virtualinherited

Definition at line 116 of file bc.f90.

apply_scalar_dev() [2/2]

procedure, pass(this) symmetry::symmetry_t::apply_scalar_dev ( class(symmetry_t), intent(inout), target  this, type(c_ptr), intent(inout)  x_d, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong, type(c_ptr), intent(inout)  strm  )

inherited

Parameters

x_d	Device pointer to the field.
time	The time state.
strong	Whether we are setting a strong or a weak bc.

Definition at line 57 of file symmetry.f90.

apply_scalar_generic()

procedure, pass(this) bc::bc_t::apply_scalar_generic ( class(bc_t), intent(inout)  this, type(field_t), intent(inout)  x, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong, type(c_ptr), intent(inout), optional  strm  )

inherited

Parameters

x	The x comp of the field for which to apply the bc.
time	Current time state.
strong	Whether we are setting a strong or a weak bc.
strm	Device stream

Definition at line 105 of file bc.f90.

apply_vector() [1/2]

procedure(bc_apply_vector), deferred, pass bc::bc_t::apply_vector ( class(bc_t), intent(inout)  this, real(kind=rp), dimension(n), intent(inout)  x, real(kind=rp), dimension(n), intent(inout)  y, real(kind=rp), dimension(n), intent(inout)  z, integer, intent(in)  n, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong  )

pure virtualinherited

Definition at line 114 of file bc.f90.

apply_vector() [2/2]

procedure, pass(this) symmetry::symmetry_t::apply_vector ( class(symmetry_t), intent(inout)  this, real(kind=rp), dimension(n), intent(inout)  x, real(kind=rp), dimension(n), intent(inout)  y, real(kind=rp), dimension(n), intent(inout)  z, integer, intent(in)  n, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong  )

inherited

Parameters

x	The x comp of the field for which to apply the bc.
y	The y comp of the field for which to apply the bc.
z	The z comp of the field for which to apply the bc.
n	The size of x, y, and z.
time	Current time state.
strong	Whether we are setting a strong or a weak bc.

Definition at line 56 of file symmetry.f90.

apply_vector_dev() [1/2]

procedure(bc_apply_vector_dev), deferred, pass bc::bc_t::apply_vector_dev ( class(bc_t), intent(inout), target  this, type(c_ptr), intent(inout)  x_d, type(c_ptr), intent(inout)  y_d, type(c_ptr), intent(inout)  z_d, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong, type(c_ptr), intent(inout)  strm  )

pure virtualinherited

Definition at line 118 of file bc.f90.

apply_vector_dev() [2/2]

procedure, pass(this) symmetry::symmetry_t::apply_vector_dev ( class(symmetry_t), intent(inout), target  this, type(c_ptr), intent(inout)  x_d, type(c_ptr), intent(inout)  y_d, type(c_ptr), intent(inout)  z_d, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong, type(c_ptr), intent(inout)  strm  )

inherited

Parameters

x_d	Device pointer to the values to be applied for the x comp.
y_d	Device pointer to the values to be applied for the y comp.
z_d	Device pointer to the values to be applied for the z comp.
time	The time state.
strong	Whether we are setting a strong or a weak bc.

Definition at line 58 of file symmetry.f90.

apply_vector_generic()

procedure, pass(this) bc::bc_t::apply_vector_generic ( class(bc_t), intent(inout)  this, type(field_t), intent(inout)  x, type(field_t), intent(inout)  y, type(field_t), intent(inout)  z, type(time_state_t), intent(in), optional  time, logical, intent(in), optional  strong, type(c_ptr), intent(inout), optional  strm  )

inherited

Parameters

x	The x comp of the field for which to apply the bc.
y	The y comp of the field for which to apply the bc.
z	The z comp of the field for which to apply the bc.
time	Current time state.
strong	Whether we are setting a strong or a weak bc.
Device	stream

Definition at line 108 of file bc.f90.

debug_mask_()

procedure, pass(this) bc::bc_t::debug_mask_ ( class(bc_t), intent(inout)  this, character(len=*), intent(in)  file_name  )

inherited

The mask will be marked with 1.

Parameters

file_name

The name of the fld file.

Definition at line 110 of file bc.f90.

finalize() [1/3]

procedure(bc_finalize), deferred, pass bc::bc_t::finalize ( class(bc_t), intent(inout), target  this, logical, intent(in), optional  only_facets  )

pure virtualinherited

Definition at line 124 of file bc.f90.

finalize() [2/3]

procedure, pass(this) non_normal::non_normal_t::finalize	(	class(non_normal_t), intent(inout), target	this,
		logical, intent(in), optional	only_facets
	)

Definition at line 56 of file non_normal.f90.

finalize() [3/3]

procedure, pass(this) symmetry::symmetry_t::finalize ( class(symmetry_t), intent(inout), target  this, logical, intent(in), optional  only_facets  )

inherited

Definition at line 69 of file symmetry.f90.

finalize_base()

procedure, pass(this) bc::bc_t::finalize_base ( class(bc_t), intent(inout), target  this, logical, intent(in), optional  only_facets  )

inherited

Parameters

only_facets,if

the bc is only to be applied on facets. Relevant for bcs where the normal direction is important and where and shared dofs should not be included.

This will linearize the marked facet's indicies in the msk array.

Definition at line 101 of file bc.f90.

free() [1/3]

procedure(bc_destructor), deferred, pass bc::bc_t::free ( class(bc_t), intent(inout), target  this )

pure virtualinherited

Definition at line 120 of file bc.f90.

free() [2/3]

procedure, pass(this) non_normal::non_normal_t::free

(

class(non_normal_t), intent(inout), target

this

)

Definition at line 54 of file non_normal.f90.

free() [3/3]

procedure, pass(this) symmetry::symmetry_t::free ( class(symmetry_t), intent(inout), target  this )

inherited

Definition at line 65 of file symmetry.f90.

free_base()

procedure, pass(this) bc::bc_t::free_base ( class(bc_t), intent(inout)  this )

inherited

Definition at line 92 of file bc.f90.

get_normal_axis()

procedure, pass(this) symmetry::symmetry_t::get_normal_axis ( class(symmetry_t), intent(inout), target  this, real(kind=rp), intent(out)  sx, real(kind=rp), intent(out)  sy, real(kind=rp), intent(out)  sz, integer, intent(in)  facet, integer, intent(in)  el  )

inherited

The normal direction is the one for which s is 0, so e.g for a y normal, sx and sz will be unity, and sy will be 0.

Definition at line 67 of file symmetry.f90.

init() [1/3]

procedure(bc_constructor), deferred, pass bc::bc_t::init ( class(bc_t), intent(inout), target  this, type(coef_t), intent(in), target  coef, type(json_file), intent(inout)  json  )

pure virtualinherited

Definition at line 122 of file bc.f90.

init() [2/3]

procedure, pass(this) non_normal::non_normal_t::init	(	class(non_normal_t), intent(inout), target	this,
		type(coef_t), intent(in), target	coef,
		type(json_file), intent(inout)	json
	)

Parameters

[in]	coef	The SEM coefficients.
[in,out]	json	The JSON object configuring the boundary condition.

Definition at line 49 of file non_normal.f90.

init() [3/3]

procedure, pass(this) symmetry::symmetry_t::init ( class(symmetry_t), intent(inout), target  this, type(coef_t), intent(in), target  coef, type(json_file), intent(inout)  json  )

inherited

Parameters

[in]	coef	The SEM coefficients.
[in,out]	json	The JSON object configuring the boundary condition.

Definition at line 60 of file symmetry.f90.

init_base()

procedure, pass(this) bc::bc_t::init_base ( class(bc_t), intent(inout)  this, type(coef_t), intent(in), target  coef  )

inherited

Parameters

dof	Map of degrees of freedom.

Definition at line 90 of file bc.f90.

init_from_components() [1/2]

procedure, pass(this) non_normal::non_normal_t::init_from_components	(	class(non_normal_t), intent(inout), target	this,
		type(coef_t), intent(in), target	coef
	)

Parameters

[in]

coef

The SEM coefficients.

Definition at line 51 of file non_normal.f90.

init_from_components() [2/2]

procedure, pass(this) symmetry::symmetry_t::init_from_components ( class(symmetry_t), intent(inout), target  this, type(coef_t), intent(in), target  coef  )

inherited

Parameters

[in]

coef

The SEM coefficients.

Definition at line 62 of file symmetry.f90.

mark_facet()

procedure, pass(this) bc::bc_t::mark_facet ( class(bc_t), intent(inout)  this, integer, intent(in)  facet, integer, intent(in)  el  )

inherited

Parameters

facet	The index of the facet.
el	The index of the element.

Definition at line 94 of file bc.f90.

mark_facets()

procedure, pass(this) bc::bc_t::mark_facets ( class(bc_t), intent(inout)  this, type(stack_i4t2_t), intent(inout)  facet_list  )

inherited

Parameters

facet_list

The list of tuples.

Definition at line 96 of file bc.f90.

mark_zone()

procedure, pass(this) bc::bc_t::mark_zone ( class(bc_t), intent(inout)  this, class(facet_zone_t), intent(in)  bc_zone  )

inherited

Parameters

bc_zone

Boundary zone to be marked.

Definition at line 98 of file bc.f90.

Member Data Documentation

bc_x

type(zero_dirichlet_t) symmetry::symmetry_t::bc_x

inherited

Definition at line 51 of file symmetry.f90.

bc_y

type(zero_dirichlet_t) symmetry::symmetry_t::bc_y

inherited

Definition at line 52 of file symmetry.f90.

bc_z

type(zero_dirichlet_t) symmetry::symmetry_t::bc_z

inherited

Definition at line 53 of file symmetry.f90.

coef

type(coef_t), pointer bc::bc_t::coef => null()

inherited

Definition at line 69 of file bc.f90.

dof

type(dofmap_t), pointer bc::bc_t::dof => null()

inherited

Definition at line 67 of file bc.f90.

facet

integer, dimension(:), allocatable bc::bc_t::facet

inherited

Definition at line 65 of file bc.f90.

facet_d

type(c_ptr) bc::bc_t::facet_d = C_NULL_PTR

inherited

Definition at line 79 of file bc.f90.

marked_facet

type(stack_i4t2_t) bc::bc_t::marked_facet

inherited

Definition at line 75 of file bc.f90.

msh

type(mesh_t), pointer bc::bc_t::msh => null()

inherited

Definition at line 71 of file bc.f90.

msk

integer, dimension(:), allocatable bc::bc_t::msk

inherited

Definition at line 63 of file bc.f90.

msk_d

type(c_ptr) bc::bc_t::msk_d = C_NULL_PTR

inherited

Definition at line 77 of file bc.f90.

strong

logical bc::bc_t::strong = .true.

inherited

Definition at line 84 of file bc.f90.

updated

logical bc::bc_t::updated = .false.

inherited

Definition at line 87 of file bc.f90.

xh

type(space_t), pointer bc::bc_t::xh => null()

inherited

Definition at line 73 of file bc.f90.

---

The documentation for this type was generated from the following file:

• /home/runner/work/neko/neko/src/bc/non_normal.f90