subroutine, public spalding_cpu::spalding_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) |
nu, |
|
|
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, |
|
|
integer, intent(in) |
tstep |
|
) |
| |