FLUID Derived Type

  1. mod_fluid.f90
  2. fluid_law
  3. FLUID

type, public :: FLUID


Contents

Variables

Type-Bound Procedures

Source Code

FLUID

Components

TypeVisibility AttributesNameInitial
integer(kind=I4), public :: fluid_type

constant for the fluid type: INC, GP, MIXT
real(kind=R8), public :: p_0

reference pressure
real(kind=R8), public :: rho_0

reference liquid density
real(kind=R8), public :: mu_0

reference dynamic viscosity
real(kind=R8), public :: T_0

reference temperature
real(kind=R8), public :: rg

perfect gas constant
real(kind=R8), public :: lambda

gas mass fraction
real(kind=R8), public, dimension(20):: cst

table of parameters for the thermodynamic and rheological laws

Type-Bound Procedures

procedure, public :: rho

density

  • private function rho(fl, p, t)

    Read more…

    Arguments

    Type IntentOptional AttributesName
    class(FLUID), intent(in) :: fl

    fluid type
    real(kind=R8), intent(in) :: p

    pressure
    real(kind=R8), intent(in) :: t

    absolute temperature

    Return Value real(kind=R8)

procedure, public :: drhodp

compressibility

  • private function drhodp(fl, p, t)

    Read more…

    Arguments

    Type IntentOptional AttributesName
    class(FLUID), intent(in) :: fl

    fluid type
    real(kind=R8), intent(in) :: p

    pressure
    real(kind=R8), intent(in) :: t

    absolute temperature

    Return Value real(kind=R8)

procedure, public :: pres

pressure (perfect gas)

  • private function pres(fl, rho, t)

    Read more…

    Arguments

    Type IntentOptional AttributesName
    class(FLUID), intent(in) :: fl

    fluid type
    real(kind=R8), intent(in) :: rho

    density
    real(kind=R8), intent(in) :: t

    absolute temperature

    Return Value real(kind=R8)

Source Code

type FLUID
   integer(kind=I4)             :: fluid_type   !! *constant for the fluid type: INC, GP, MIXT*
   real(kind=R8)                :: p_0          !! *reference pressure*
   real(kind=R8)                :: rho_0        !! *reference liquid density*
   real(kind=R8)                :: mu_0         !! *reference dynamic viscosity*
   real(kind=R8)                :: T_0          !! *reference temperature*
   real(kind=R8)                :: rg           !! *perfect gas constant*
   real(kind=R8)                :: lambda       !! *gas mass fraction*
   real(kind=R8), dimension(20) :: cst          !! *table of parameters for the thermodynamic and rheological laws*
   contains
      procedure :: rho          !! *density*
      procedure :: drhodp       !! *compressibility*
      procedure :: pres         !! *pressure (perfect gas)*
endtype FLUID