39 use device,
only: c_ptr, c_size_t
83 type(
field_list_t),
intent(inout) :: dirichlet_field_list
84 type(
bc_list_t),
intent(inout) :: dirichlet_bc_list
85 type(
coef_t),
intent(inout) :: coef
86 real(kind=
rp),
intent(in) :: t
87 integer,
intent(in) :: tstep
88 character(len=*),
intent(in) :: which_solver
100 character(len=*),
intent(in) :: bc_name
102 call this%field_bc%init(this%dof, bc_name)
110 call this%field_bc%free()
121 integer,
intent(in) :: n
122 real(kind=
rp),
intent(inout),
dimension(n) :: x
123 real(kind=
rp),
intent(in),
optional :: t
124 integer,
intent(in),
optional :: tstep
126 if (this%msk(0) .gt. 0)
then
127 call masked_copy(x, this%field_bc%x, this%msk, n, this%msk(0))
139 real(kind=
rp),
intent(in),
optional :: t
140 integer,
intent(in),
optional :: tstep
142 if (this%msk(0) .gt. 0)
then
144 this%field_bc%dof%size(), this%msk(0))
158 integer,
intent(in) :: n
159 real(kind=
rp),
intent(inout),
dimension(n) :: x
160 real(kind=
rp),
intent(inout),
dimension(n) :: y
161 real(kind=
rp),
intent(inout),
dimension(n) :: z
162 real(kind=
rp),
intent(in),
optional :: t
163 integer,
intent(in),
optional :: tstep
165 call neko_error(
"field_dirichlet cannot apply vector BCs.&
166 &Use field_dirichlet_vector instead!")
181 real(kind=
rp),
intent(in),
optional :: t
182 integer,
intent(in),
optional :: tstep
184 call neko_error(
"field_dirichlet cannot apply vector BCs.&
185 &Use field_dirichlet_vector instead!")
Abstract interface defining a dirichlet condition on a list of fields.
Defines a boundary condition.
subroutine, public device_masked_copy(a_d, b_d, mask_d, n, m)
Device abstraction, common interface for various accelerators.
Defines a dirichlet boundary condition.
Defines a mapping of the degrees of freedom.
Defines inflow dirichlet conditions.
subroutine field_dirichlet_apply_vector(this, x, y, z, n, t, tstep)
(No-op) Apply vector.
subroutine field_dirichlet_apply_scalar_dev(this, x_d, t, tstep)
Apply scalar (device).
subroutine field_dirichlet_apply_vector_dev(this, x_d, y_d, z_d, t, tstep)
(No-op) Apply vector (device).
subroutine field_dirichlet_apply_scalar(this, x, n, t, tstep)
Apply scalar by performing a masked copy.
subroutine field_dirichlet_init(this, bc_name)
Initializes thisfield_bc.
subroutine field_dirichlet_free(this)
Destructor. Currently thisfield_bc is being freed in fluid_scheme::free
subroutine, public masked_copy(a, b, mask, n, m)
Copy a masked vector .
integer, parameter, public rp
Global precision used in computations.
character(len=100) function, dimension(:), allocatable split_string(string, delimiter)
Split a string based on delimiter (tokenizer) OBS: very hacky, this should really be improved,...
A list of boundary conditions.
Base type for a boundary condition.
Coefficients defined on a given (mesh, ) tuple. Arrays use indices (i,j,k,e): element e,...
Generic Dirichlet boundary condition on .
User defined dirichlet condition, for which the user can work with an entire field....
field_list_t, To be able to group fields together