main Program

Uses

Variables

Type Attributes Name Initial
type(WaterAbsorption_) :: seed
type(FEMDomain_), target :: water
type(FEMDomain_), target :: tissue
type(FEMDomain_), target :: tissue2
type(FEMDomain_), target :: tissue3
type(MaterialProp_) :: Permiability
type(MaterialProp_) :: YoungsModulus
type(MaterialProp_) :: PoissonRatio
type(MaterialProp_) :: density
type(MaterialProp_) :: Cohesion
type(MaterialProp_) :: phi
type(MaterialProp_) :: psi
type(MaterialProp_) :: a_Psi
type(MaterialProp_) :: a_P
type(MaterialProp_) :: theta_eq
type(MaterialProp_) :: Psi_eq
type(MaterialProp_) :: a_E
type(MaterialProp_) :: a_v
type(MaterialProp_) :: E_eq
type(MaterialProp_) :: v_eq
type(Boundary_) :: disp_x
type(Boundary_) :: disp_y
type(Boundary_) :: disp_z
type(Boundary_) :: traction_x
type(Boundary_) :: traction_y
type(Boundary_) :: traction_z
type(Boundary_) :: flux
type(Boundary_) :: const
character(len=200) :: name
real(kind=real64) :: param_permiability
real(kind=real64) :: param_a_Psi
real(kind=real64) :: param_a_P
real(kind=real64) :: param_Psi_eq
real(kind=real64) :: param_a_E
real(kind=real64) :: param_a_E
real(kind=real64) :: param_E_eq
type(MPI_) :: mpid