alpha_dyn_qho Function

public function alpha_dyn_qho(alpha_0, omega, freq, dalpha, grad) result(alpha)

$$\alpha(\mathrm iu)=\frac{\alpha_0}{1+u^2/\omega^2},\qquad \partial\alpha(\mathrm iu)=\alpha(\mathrm iu)\left( \frac{\partial\alpha_0}{\alpha_0}+ \frac2\omega\frac{\partial\omega}{1+\omega^2/u^2} \right)$$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	alpha_0(:)
real(kind=dp),	intent(in)			::	omega(:)
type(quad_pt_t),	intent(in)			::	freq(0:)
type(grad_t),	intent(out),		allocatable	::	dalpha(:)
type(grad_request_t),	intent(in)			::	grad

Return Value real(kind=dp) (size(alpha_0),0:ubound(freq,1))

Contents

None