getWSS Function

private pure function getWSS(tau) result(wss)

Calculate wss from shear stress (tau) tau: x, y, z, xy, yz, xz

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),	intent(in)			::	tau(6)

Return Value real(kind=rk)