4 DOUBLE PRECISION,
DIMENSION(:, :),
ALLOCATABLE ::
tau_u_s 5 DOUBLE PRECISION,
DIMENSION(:, :),
ALLOCATABLE ::
tau_v_s 6 DOUBLE PRECISION,
DIMENSION(:, :),
ALLOCATABLE ::
tau_w_s double precision, dimension(:,:), allocatable tau_u_s
double precision, dimension(:,:), allocatable tau_w_s
double precision, dimension(:,:), allocatable tau_v_s