Implements the device kernel for the spalding_t type.
|
| subroutine, public | spalding_compute_device (u_d, v_d, w_d, n_x_d, n_y_d, n_z_d, nu_d, rho_w_d, h_d, tau_x_d, tau_y_d, tau_z_d, n_nodes, 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) |
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) |
rho_w_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, |
|
|
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 83 of file spalding_device.F90.