powerScaleFunction Function

public pure function powerScaleFunction(hdiag) result(Si)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	hdiag

Return Value real(kind=dp)

Source Code

    pure function powerScaleFunction(hdiag) result(Si)
        real(dp), intent(in) :: hdiag
        real(dp) :: Si

        Si = 1.0 / ((sFAlpha * (hdiag) + 1)**sFBeta)
    end function powerScaleFunction