expCOScaleFunction Function

public pure function expCOScaleFunction(hdiag) result(Si)

Arguments

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

Return Value real(kind=dp)


Source Code

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

        Si = (1 - sFbeta) / (exp(sFAlpha * hdiag)) + sFbeta
    end function expCOScaleFunction