getWSS Function

private pure function getWSS(tau) result(wss)

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

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(in) :: tau(6)

Return Value real(kind=rk)


Called by

proc~~getwss~~CalledByGraph proc~getwss getWSS proc~derivewss3d deriveWSS3D proc~derivewss3d->proc~getwss

Contents


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: a0
real(kind=rk), private :: a1
real(kind=rk), private :: a2
real(kind=rk), private :: q_stress
real(kind=rk), private :: q_stress_cube
real(kind=rk), private :: q_term
real(kind=rk), private :: r_stress
real(kind=rk), private :: d_stress
real(kind=rk), private :: theta_stress
real(kind=rk), private :: cos_term
real(kind=rk), private :: shear_1
real(kind=rk), private :: shear_2
real(kind=rk), private :: shear_3