WaterAbsorption_ Derived Type

type, public :: WaterAbsorption_


Components

Type Visibility Attributes Name Initial
type(FEMDomain_), public, pointer :: Water
type(FEMDomain_), public, pointer :: Tissue
type(MaterialProp_), public, pointer :: a_Psi
type(MaterialProp_), public, pointer :: a_P
type(MaterialProp_), public, pointer :: theta_eq
type(MaterialProp_), public, pointer :: Psi_eq
type(MaterialProp_), public, pointer :: a_E
type(MaterialProp_), public, pointer :: a_v
type(MaterialProp_), public, pointer :: E_eq
type(MaterialProp_), public, pointer :: v_eq
type(DiffusionEq_), public :: DiffusionEq
type(FiniteDeform_), public :: FiniteDeform
real(kind=real64), public, allocatable :: WaterAbsorbingPower(:)
real(kind=real64), public, allocatable :: WaterPotential(:)
real(kind=real64), public, allocatable :: TurgorPressure(:)
real(kind=real64), public, allocatable :: WaterContent(:)
real(kind=real64), public, allocatable :: WaterMass(:)
real(kind=real64), public, allocatable :: volume(:)
real(kind=real64), public, allocatable :: Conductivity(:)
real(kind=real64), public, allocatable :: YoungsModulus(:)
real(kind=real64), public, allocatable :: PoissonsRatio(:)
real(kind=real64), public, allocatable :: Permiability(:)
real(kind=real64), public, allocatable :: PorePressure(:)
real(kind=real64), public, allocatable :: a_Psi_val(:)
real(kind=real64), public, allocatable :: a_P_val(:)
real(kind=real64), public, allocatable :: theta_eq_val(:)
real(kind=real64), public, allocatable :: Psi_eq_val(:)
real(kind=real64), public, allocatable :: a_E_val(:)
real(kind=real64), public, allocatable :: a_v_val(:)
real(kind=real64), public, allocatable :: E_eq_val(:)
real(kind=real64), public, allocatable :: v_eq_val(:)
real(kind=real64), public, allocatable :: theta_ps_val(:)
character(len=200), public :: Name = " "
integer(kind=int32), public :: timestep = 0
integer(kind=int32), public :: flushstep = 0
integer(kind=int32), public :: ID = 0
real(kind=real64), public :: dt

Type-Bound Procedures

procedure, public :: import => importWaterAbsorption

procedure, public :: assign => importWaterAbsorption

procedure, public :: init => initWaterAbsorption

  • public subroutine initWaterAbsorption(obj, SolverType, Display, nr_tol, infinitesimal)

    Arguments

    Type IntentOptional Attributes Name
    class(WaterAbsorption_), intent(inout) :: obj
    character(len=*), intent(in) :: SolverType
    logical, intent(in), optional :: Display
    real(kind=real64), intent(in), optional :: nr_tol
    logical, intent(in), optional :: infinitesimal

procedure, public :: run => runWaterAbsorption

  • public subroutine runWaterAbsorption(obj, timestep, dt, SolverType, onlyInit, Only1st, Display, nr_tol, ReducedIntegration, infinitesimal, interval, Name, restart, ID)

    Arguments

    Type IntentOptional Attributes Name
    class(WaterAbsorption_), intent(inout) :: obj
    integer(kind=int32), intent(in) :: timestep
    real(kind=real64), intent(in), optional :: dt
    character(len=*), intent(in) :: SolverType
    logical, intent(in), optional :: onlyInit
    logical, intent(in), optional :: Only1st
    logical, intent(in), optional :: Display
    real(kind=real64), intent(in), optional :: nr_tol
    logical, intent(in), optional :: ReducedIntegration
    logical, intent(in), optional :: infinitesimal
    integer(kind=int32), intent(in), optional :: interval
    character(len=*), intent(in), optional :: Name
    logical, intent(in), optional :: restart
    integer(kind=int32), intent(in), optional :: ID

procedure, public :: update => updateWaterAbsorption

  • public subroutine updateWaterAbsorption(obj, SolverType, Display, step, nr_tol, restart)

    Arguments

    Type IntentOptional Attributes Name
    class(WaterAbsorption_), intent(inout) :: obj
    character(len=*), intent(in) :: SolverType
    logical, intent(in), optional :: Display
    integer(kind=int32), intent(in), optional :: step
    real(kind=real64), intent(in), optional :: nr_tol
    logical, intent(in), optional :: restart

procedure, public :: export => exportWaterAbsorption

  • public subroutine exportWaterAbsorption(obj, OptionalFileFormat, OptionalProjectName, FileHandle, SolverType, MeshDimension, FileName, Name, regacy, with, displacement, restart, path)

    Arguments

    Type IntentOptional Attributes Name
    class(WaterAbsorption_), intent(inout) :: obj
    character(len=*), intent(in), optional :: OptionalFileFormat
    character(len=*), intent(in), optional :: OptionalProjectName
    integer(kind=int32), intent(in), optional :: FileHandle
    character(len=*), intent(in), optional :: SolverType
    integer(kind=int32), intent(in), optional :: MeshDimension
    character(len=*), intent(in), optional :: FileName
    character(len=*), intent(in), optional :: Name
    logical, intent(in), optional :: regacy
    class(FEMDomain_), intent(inout), optional :: with
    logical, intent(in), optional :: displacement
    logical, intent(in), optional :: restart
    character(len=*), intent(in), optional :: path

procedure, public :: display => displayWaterAbsorption

procedure, public :: bake => bakeWaterAbsorption

procedure, public :: gnuplot => gnuplotWaterAbsorption

  • public subroutine gnuplotWaterAbsorption(obj, mode, ElemID)

    Arguments

    Type IntentOptional Attributes Name
    class(WaterAbsorption_), intent(in) :: obj
    character(len=*), intent(in) :: mode
    integer(kind=int32), intent(in), optional :: ElemID

procedure, public :: updatePermiability => updatePermiabilityWA

procedure, public :: updateStiffness => updateStiffnessWA

procedure, public :: UpdateVolume => UpdateVolumeWA

procedure, public :: save => saveWaterAbsorption

  • public subroutine saveWaterAbsorption(obj, path, Name)

    Arguments

    Type IntentOptional Attributes Name
    class(WaterAbsorption_), intent(inout) :: obj
    character(len=*), intent(in), optional :: path
    character(len=*), intent(in), optional :: Name

procedure, public :: open => openWaterAbsorption

  • public subroutine openWaterAbsorption(obj, path, Name)

    Arguments

    Type IntentOptional Attributes Name
    class(WaterAbsorption_), intent(inout) :: obj
    character(len=*), intent(in), optional :: path
    character(len=*), intent(in), optional :: Name

procedure, public :: link => linkWaterAbsorption

procedure, public :: result => resultWaterAbsorption

  • public subroutine resultWaterAbsorption(obj, path, name, step)

    Arguments

    Type IntentOptional Attributes Name
    class(WaterAbsorption_), intent(inout) :: obj
    character(len=*), intent(in) :: path
    character(len=*), intent(in) :: name
    integer(kind=int32), intent(in) :: step

procedure, public :: remove => removeWaterAbsorption