|
Neko 1.99.3
A portable framework for high-order spectral element flow simulations
|
Implements the device kernel for the most_t type.
Data Types | |
| interface | hip_most_compute |
Functions/Subroutines | |
| 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. | |
| 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 | ||
| ) |
| t | The time value. |
| tstep | The current time-step. |
Definition at line 72 of file most_device.F90.

