ContactDiffusion_ Derived Type

type, public :: ContactDiffusion_

Contents

Variables

FEMDomains solver contactlist YoungModulus PoissonRatio Density YoungModulusList PoissonRatioList DensityList initialized gravity penalty

Type-Bound Procedures

Init setup fix solve

Components

Type	Visibility	Attributes		Name		Initial
type(FEMDomainp_),	public,	allocatable	::	FEMDomains(:)
type(LinearSolver_),	public		::	solver
integer(kind=int32),	public,	allocatable	::	contactlist(:,:)
real(kind=real64),	public,	allocatable	::	YoungModulus(:)
real(kind=real64),	public,	allocatable	::	PoissonRatio(:)
real(kind=real64),	public,	allocatable	::	Density(:)
real(kind=real64),	public,	allocatable	::	YoungModulusList(:,:)
real(kind=real64),	public,	allocatable	::	PoissonRatioList(:,:)
real(kind=real64),	public,	allocatable	::	DensityList(:,:)
logical,	public		::	initialized	=	.false.
real(kind=real64),	public		::	gravity(1:3)	=	[0.0d0, 0.0d0, -9.810d0]
real(kind=real64),	public		::	penalty	=	100000.0d0

Type-Bound Procedures

procedure, public :: Init => InitializeContactDiffusion

public subroutine InitializeContactDiffusion(obj)

Arguments

Type Intent Optional Attributes Name

class(ContactDiffusion_), intent(inout) :: obj

procedure, public :: setup => runContactDiffusion

public subroutine runContactDiffusion(obj)

Arguments

Type Intent Optional Attributes Name

class(ContactDiffusion_), intent(inout) :: obj

procedure, public :: fix => fixContactDiffusion

public subroutine fixContactDiffusion(obj)

Arguments

Type Intent Optional Attributes Name

class(ContactDiffusion_), intent(inout) :: obj

procedure, public :: solve => solveContactDiffusion

public subroutine solveContactDiffusion(obj)

Arguments

Type Intent Optional Attributes Name

class(ContactDiffusion_), intent(inout) :: obj