38 use,
intrinsic :: iso_c_binding, only : c_ptr
45 real(kind=
rp),
private :: g
60 integer,
intent(in) :: n
61 real(kind=
rp),
intent(inout),
dimension(n) :: x
62 real(kind=
rp),
intent(in),
optional :: t
63 integer,
intent(in),
optional :: tstep
77 integer,
intent(in) :: n
78 real(kind=
rp),
intent(inout),
dimension(n) :: x
79 real(kind=
rp),
intent(inout),
dimension(n) :: y
80 real(kind=
rp),
intent(inout),
dimension(n) :: z
81 real(kind=
rp),
intent(in),
optional :: t
82 integer,
intent(in),
optional :: tstep
100 real(kind=
rp),
intent(in),
optional :: t
101 integer,
intent(in),
optional :: tstep
104 this%g,
size(this%msk))
115 real(kind=
rp),
intent(in),
optional :: t
116 integer,
intent(in),
optional :: tstep
119 this%g,
size(this%msk))
126 real(kind=
rp),
intent(in) :: g
Defines a boundary condition.
subroutine, public device_dirichlet_apply_scalar(msk, x, g, m)
subroutine, public device_dirichlet_apply_vector(msk, x, y, z, g, m)
Defines a dirichlet boundary condition.
subroutine dirichlet_apply_vector_dev(this, x_d, y_d, z_d, t, tstep)
Boundary condition apply for a generic Dirichlet condition to vectors x, y and z (device version)
subroutine dirichlet_apply_scalar_dev(this, x_d, t, tstep)
Boundary condition apply for a generic Dirichlet condition to a vector x (device version)
subroutine dirichlet_set_g(this, g)
Set value of .
subroutine dirichlet_apply_scalar(this, x, n, t, tstep)
Boundary condition apply for a generic Dirichlet condition to a vector x.
subroutine dirichlet_apply_vector(this, x, y, z, n, t, tstep)
Boundary condition apply for a generic Dirichlet condition to vectors x, y and z.
integer, parameter, public rp
Global precision used in computations.
Base type for a boundary condition.
Generic Dirichlet boundary condition on .