Implements the device kernel for the most_t type.
|
| subroutine, public | most_compute_device (u_d, v_d, w_d, temp_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, mu_w_d, rho_w_d, g, pr, z0, z0h_in, bc_type, bc_value, tstep, ri_b_diagn, l_ob_diagn, utau_diagn, magu_diagn, ti_diagn, ts_diagn, q_diagn, h_x_idx, h_y_idx, h_z_idx) |
| | Compute the wall shear stress on device using the rough log-law model.
|
| |
◆ most_compute_device()
| subroutine, public most_device::most_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) |
temp_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, |
|
|
type(c_ptr), intent(in) |
mu_w_d, |
|
|
type(c_ptr), intent(in) |
rho_w_d, |
|
|
real(kind=rp), dimension(3) |
g, |
|
|
real(kind=rp), intent(in) |
pr, |
|
|
real(kind=rp), intent(in) |
z0, |
|
|
real(kind=rp), intent(in) |
z0h_in, |
|
|
character(len=*), intent(in) |
bc_type, |
|
|
real(kind=rp), intent(in) |
bc_value, |
|
|
integer, intent(in) |
tstep, |
|
|
type(c_ptr), value |
ri_b_diagn, |
|
|
type(c_ptr), value |
l_ob_diagn, |
|
|
type(c_ptr), value |
utau_diagn, |
|
|
type(c_ptr), value |
magu_diagn, |
|
|
type(c_ptr), value |
ti_diagn, |
|
|
type(c_ptr), value |
ts_diagn, |
|
|
type(c_ptr), value |
q_diagn, |
|
|
type(c_ptr), value |
h_x_idx, |
|
|
type(c_ptr), value |
h_y_idx, |
|
|
type(c_ptr), value |
h_z_idx |
|
) |
| |
- Parameters
-
| t | The time value. |
| tstep | The current time-step. |
Definition at line 74 of file most_device.F90.