field_set_abl_wall_stress

public subroutine field_set_abl_wall_stress(stress, u, w, drag_coeff, upper_weight, sample_plane, upper_plane, stress_plane, n_f, nx, nz, n_yb_pad, 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). The velocity is interpolated between sample_plane and upper_plane.

Arguments

Type	Intent		Name
real(kind=dp),	intent(inout)	::	stress(SZ,n_f,n_yb_pad*nz)
real(kind=dp),	intent(in)	::	u(SZ,n_f,n_yb_pad*nz)
real(kind=dp),	intent(in)	::	w(SZ,n_f,n_yb_pad*nz)
real(kind=dp),	intent(in)	::	drag_coeff
real(kind=dp),	intent(in)	::	upper_weight
integer,	intent(in)	::	sample_plane
integer,	intent(in)	::	upper_plane
integer,	intent(in)	::	stress_plane
integer,	intent(in)	::	n_f
integer,	intent(in)	::	nx
integer,	intent(in)	::	nz
integer,	intent(in)	::	n_yb_pad
integer,	intent(in)	::	component

field_set_abl_wall_stress Subroutine

Contents

public subroutine field_set_abl_wall_stress(stress, u, w, drag_coeff, upper_weight, sample_plane, upper_plane, stress_plane, n_f, nx, nz, n_yb_pad, component)

Arguments