Implements the device kernel for the rough_log_law_t
type.
|
subroutine, public | rough_log_law_compute_device (u_d, v_d, w_d, ind_r_d, ind_s_d, ind_t_d, ind_e_d, n_x_d, n_y_d, n_z_d, h_d, tau_x_d, tau_y_d, tau_z_d, n_nodes, lx, kappa, b, z0, tstep) |
| Compute the wall shear stress on device using the rough log-law model.
|
|
◆ rough_log_law_compute_device()
subroutine, public rough_log_law_device::rough_log_law_compute_device |
( |
type(c_ptr), intent(in) |
u_d, |
|
|
type(c_ptr), intent(in) |
v_d, |
|
|
type(c_ptr), intent(in) |
w_d, |
|
|
type(c_ptr), intent(in) |
ind_r_d, |
|
|
type(c_ptr), intent(in) |
ind_s_d, |
|
|
type(c_ptr), intent(in) |
ind_t_d, |
|
|
type(c_ptr), intent(in) |
ind_e_d, |
|
|
type(c_ptr), intent(in) |
n_x_d, |
|
|
type(c_ptr), intent(in) |
n_y_d, |
|
|
type(c_ptr), intent(in) |
n_z_d, |
|
|
type(c_ptr), intent(in) |
h_d, |
|
|
type(c_ptr), intent(inout) |
tau_x_d, |
|
|
type(c_ptr), intent(inout) |
tau_y_d, |
|
|
type(c_ptr), intent(inout) |
tau_z_d, |
|
|
integer, intent(in) |
n_nodes, |
|
|
integer, intent(in) |
lx, |
|
|
real(kind=rp), intent(in) |
kappa, |
|
|
real(kind=rp), intent(in) |
b, |
|
|
real(kind=rp), intent(in) |
z0, |
|
|
integer, intent(in) |
tstep |
|
) |
| |