field_set_abl_wall_stress Subroutine

public subroutine field_set_abl_wall_stress(stress, u, w, drag_coeff, sample_i, stress_i, sample_offset, stress_offset, nx, component)

Drag law tau = drag_coeffu_c|u_h| from each column's own sampled velocity, written into one stress plane (component 1: x, 3: z).

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(inout), device, dimension(:, :, :) :: stress
real(kind=dp), intent(in), device, dimension(:, :, :) :: u
real(kind=dp), intent(in), device, dimension(:, :, :) :: w
real(kind=dp), intent(in), value :: drag_coeff
integer, intent(in), value :: sample_i
integer, intent(in), value :: stress_i
integer, intent(in), value :: sample_offset
integer, intent(in), value :: stress_offset
integer, intent(in), value :: nx
integer, intent(in), value :: component

Called by

proc~~field_set_abl_wall_stress~~CalledByGraph proc~field_set_abl_wall_stress m_cuda_kernels_fieldops::field_set_abl_wall_stress proc~field_set_abl_wall_stress_cuda m_cuda_backend::cuda_backend_t%field_set_abl_wall_stress_cuda proc~field_set_abl_wall_stress_cuda->proc~field_set_abl_wall_stress