Calc_GCC_Seg_Pa Module Function

module function Calc_GCC_Seg_Pa(self, T, Pw, rhoW, rhoI) result(Suction)

Arguments

Type IntentOptional Attributes Name
class(type_gcc_segregation_pa), 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_seg_pa~~CalledByGraph proc~calc_gcc_seg_pa Calc_GCC_Seg_Pa interface~calc_gcc_seg_pa type_gcc_segregation_pa%calc_GCC_Seg_Pa interface~calc_gcc_seg_pa->proc~calc_gcc_seg_pa

Source Code

    module function Calc_GCC_Seg_Pa(self, T, Pw, rhoW, rhoI) result(Suction)
        implicit none
        class(type_gcc_segregation_pa), 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

        if (T <= self%Tf) then
            Suction = (rhoI / rhoW - 1.0d0) * Pw - self%Lf * rhoI * log((T + self%TtoK) / (self%Tf + self%TtoK))
        else
            Suction = 0.0d0
        end if

    end function Calc_GCC_Seg_Pa