omega_qho Function

public function omega_qho(C6, alpha, domega, grad) result(omega)

$$\omega=\frac{4C_6}{3\alpha_{0}^2},\qquad \partial\omega=\omega\left( \frac{\partial C_6}{C_6}-\frac{2\partial\alpha_0}{\alpha_0} \right)$$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	C6(:)
real(kind=dp),	intent(in)			::	alpha(:)
type(grad_t),	intent(out),	optional		::	domega
type(grad_request_t),	intent(in),	optional		::	grad

Return Value real(kind=dp) (size(C6))

Contents

None