38 use,
intrinsic :: iso_c_binding, only : c_ptr
57 integer,
intent(in) :: n
58 real(kind=
rp),
intent(inout),
dimension(n) :: x
59 real(kind=
rp),
intent(in),
optional :: t
60 integer,
intent(in),
optional :: tstep
75 integer,
intent(in) :: n
76 real(kind=
rp),
intent(inout),
dimension(n) :: x
77 real(kind=
rp),
intent(inout),
dimension(n) :: y
78 real(kind=
rp),
intent(inout),
dimension(n) :: z
79 real(kind=
rp),
intent(in),
optional :: t
80 integer,
intent(in),
optional :: tstep
98 real(kind=
rp),
intent(in),
optional :: t
99 integer,
intent(in),
optional :: tstep
112 real(kind=
rp),
intent(in),
optional :: t
113 integer,
intent(in),
optional :: tstep
subroutine, public device_no_slip_wall_apply_vector(msk, x, y, z, m)
subroutine, public device_no_slip_wall_apply_scalar(msk, x, m)
Defines a dirichlet boundary condition.
integer, parameter, public rp
Global precision used in computations.
Defines wall boundary conditions.
subroutine no_slip_wall_apply_vector_dev(this, x_d, y_d, z_d, t, tstep)
Boundary condition apply for a no-slip wall condition to vectors x, y and z (device version)
subroutine no_slip_wall_apply_scalar(this, x, n, t, tstep)
Boundary condition apply for a no-slip wall condition to a vector x.
subroutine no_slip_wall_apply_scalar_dev(this, x_d, t, tstep)
Boundary condition apply for a no-slip wall condition to a vector x (device version)
subroutine no_slip_wall_apply_vector(this, x, y, z, n, t, tstep)
Boundary condition apply for a no-slip wall condition to vectors x, y and z.
Generic Dirichlet boundary condition on .
No-slip Wall boundary condition.