Calc_GCC_NonSeg_m_Derivative_2nd Module Function

module function Calc_GCC_NonSeg_m_Derivative_2nd(self, T, Pw, rhoW, rhoI) result(Suction_Derivative)

Arguments

Type IntentOptional Attributes Name
class(type_gcc_non_segregation_m), intent(in) :: self
real(kind=real64), intent(in) :: T
real(kind=real64), intent(in), optional :: Pw
real(kind=real64), intent(in), optional :: rhoW
real(kind=real64), intent(in), optional :: rhoI

Return Value real(kind=real64)


Called by

proc~~calc_gcc_nonseg_m_derivative_2nd~~CalledByGraph proc~calc_gcc_nonseg_m_derivative_2nd Calc_GCC_NonSeg_m_Derivative_2nd interface~calc_gcc_nonseg_m_derivative_2nd type_gcc_non_segregation_m%calc_GCC_NonSeg_m_derivative_2nd interface~calc_gcc_nonseg_m_derivative_2nd->proc~calc_gcc_nonseg_m_derivative_2nd

Source Code

    module function Calc_GCC_NonSeg_m_Derivative_2nd(self, T, Pw, rhoW, rhoI) result(Suction_Derivative)
        implicit none
        class(type_gcc_non_segregation_m), intent(in) :: self
        real(real64), intent(in) :: T
        real(real64), intent(in), optional :: Pw
        real(real64), intent(in), optional :: rhoW
        real(real64), intent(in), optional :: rhoI
        real(real64) :: Suction_Derivative

        if (T <= self%Tf) then
            Suction_Derivative = self%Lf / ((T + self%TtoK)**2.0d0 * self%g)
        else
            Suction_Derivative = 0.0d0
        end if
    end function Calc_GCC_NonSeg_m_Derivative_2nd