Neko 1.99.1
A portable framework for high-order spectral element flow simulations
|
Implements the CPU kernel for the rough_log_law_t
type.
Functions/Subroutines | |
subroutine, public | rough_log_law_compute_cpu (u, v, w, ind_r, ind_s, ind_t, ind_e, n_x, n_y, n_z, h, tau_x, tau_y, tau_z, n_nodes, lx, nelv, kappa, b, z0, tstep) |
Compute the wall shear stress on CPU using the rough log-law model. | |
subroutine, public rough_log_law_cpu::rough_log_law_compute_cpu | ( | real(kind=rp), dimension(lx, lx, lx, nelv), intent(in) | u, |
real(kind=rp), dimension(lx, lx, lx, nelv), intent(in) | v, | ||
real(kind=rp), dimension(lx, lx, lx, nelv), intent(in) | w, | ||
integer, dimension(n_nodes), intent(in) | ind_r, | ||
integer, dimension(n_nodes), intent(in) | ind_s, | ||
integer, dimension(n_nodes), intent(in) | ind_t, | ||
integer, dimension(n_nodes), intent(in) | ind_e, | ||
real(kind=rp), dimension(n_nodes), intent(in) | n_x, | ||
real(kind=rp), dimension(n_nodes), intent(in) | n_y, | ||
real(kind=rp), dimension(n_nodes), intent(in) | n_z, | ||
real(kind=rp), dimension(n_nodes), intent(in) | h, | ||
real(kind=rp), dimension(n_nodes), intent(inout) | tau_x, | ||
real(kind=rp), dimension(n_nodes), intent(inout) | tau_y, | ||
real(kind=rp), dimension(n_nodes), intent(inout) | tau_z, | ||
integer, intent(in) | n_nodes, | ||
integer, intent(in) | lx, | ||
integer, intent(in) | nelv, | ||
real(kind=rp), intent(in) | kappa, | ||
real(kind=rp), intent(in) | b, | ||
real(kind=rp), intent(in) | z0, | ||
integer, intent(in) | tstep | ||
) |
tstep | The current time-step. |
Definition at line 44 of file rough_log_law_cpu.f90.