Implements the device kernel for the spalding_t
type.
|
subroutine, public | spalding_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, nu_d, h_d, tau_x_d, tau_y_d, tau_z_d, n_nodes, lx, kappa, b, tstep) |
| Compute the wall shear stress on device using Spalding's model.
|
|
◆ spalding_compute_device()
subroutine, public spalding_device::spalding_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) |
nu_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, |
|
|
integer, intent(in) |
tstep |
|
) |
| |
- Parameters
-
t | The time value. |
tstep | The current time-step. |
Definition at line 87 of file spalding_device.F90.