38 use,
intrinsic :: iso_c_binding, only : c_ptr
59 integer,
intent(in) :: n
60 real(kind=
rp),
intent(inout),
dimension(n) :: x
61 real(kind=
rp),
intent(in),
optional :: t
62 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
114 real(kind=
rp),
intent(in),
optional :: t
115 integer,
intent(in),
optional :: tstep
126 call this%free_base()
Defines a boundary condition.
subroutine, public device_no_slip_wall_apply_vector(msk, x, y, z, m)
subroutine, public device_no_slip_wall_apply_scalar(msk, x, m)
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.
subroutine no_slip_wall_free(this)
Destructor.
Base type for a boundary condition.
No-slip Wall boundary condition.