abst_gcc Derived Type

type, public, abstract :: abst_gcc


Inherited by

type~~abst_gcc~~InheritedByGraph type~abst_gcc abst_gcc type~holder_gccs holder_gccs type~holder_gccs->type~abst_gcc p type~type_gcc_non_segregation_m type_gcc_non_segregation_m type~type_gcc_non_segregation_m->type~abst_gcc type~type_gcc_non_segregation_pa type_gcc_non_segregation_pa type~type_gcc_non_segregation_pa->type~abst_gcc type~type_gcc_segregation_m type_gcc_segregation_m type~type_gcc_segregation_m->type~abst_gcc type~type_gcc_segregation_pa type_gcc_segregation_pa type~type_gcc_segregation_pa->type~abst_gcc type~type_material_manager type_material_manager type~type_material_manager->type~holder_gccs gcc type~type_proereties_manager type_proereties_manager type~type_proereties_manager->type~type_material_manager materials type~type_ftdss type_ftdss type~type_ftdss->type~type_proereties_manager property

Components

Type Visibility Attributes Name Initial
real(kind=real64), public :: Lf

Latent heat of fusion
real(kind=real64), public :: Tf

Freezing point
real(kind=real64), private :: TtoK = 273.15d0

Conversion from Celsius to Kelvin
real(kind=real64), private :: g = 9.80665d0

Gravitational acceleration

Type-Bound Procedures

procedure(abst_gcc_calc), public, deferred, pass(self) :: calc

  • function abst_gcc_calc(self, T, Pw, rhoW, rhoI) result(Suction) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(abst_gcc), 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)

procedure(abst_gcc_calc_derivative), public, deferred, pass(self) :: deriv

  • function abst_gcc_calc_derivative(self, T, Pw, rhoW, rhoI) result(Suction_derivative) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(abst_gcc), 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)

procedure(abst_gcc_calc_derivative), public, deferred, pass(self) :: deriv2

  • function abst_gcc_calc_derivative(self, T, Pw, rhoW, rhoI) result(Suction_derivative) Prototype

    Arguments

    Type IntentOptional Attributes Name
    class(abst_gcc), 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)

Source Code

    type, abstract :: abst_gcc
        real(real64) :: Tf !! Freezing point
        real(real64) :: Lf !! Latent heat of fusion
        real(real64), private :: TtoK = 273.15d0 !! Conversion from Celsius to Kelvin
        real(real64), private :: g = 9.80665d0 !! Gravitational acceleration
    contains
        procedure(abst_gcc_calc), pass(self), deferred :: calc
        procedure(abst_gcc_calc_derivative), pass(self), deferred :: deriv
        procedure(abst_gcc_calc_derivative), pass(self), deferred :: deriv2
    end type abst_gcc