PlantRootClass Module

Uses

Contents

Derived Types

PlantRoot_

Subroutines

initPlantRoot createPlantRoot exportPlantRoot

Derived Types

type, public :: PlantRoot_

Components

Type	Visibility	Attributes		Name		Initial
type(FEMDomain_),	public		::	FEMDomain
real(kind=real64),	public		::	Thickness
real(kind=real64),	public		::	length
real(kind=real64),	public		::	width
real(kind=real64),	public		::	MaxThickness
real(kind=real64),	public		::	Maxlength
real(kind=real64),	public		::	Maxwidth
real(kind=real64),	public		::	center_bottom(3)
real(kind=real64),	public		::	center_top(3)
real(kind=real64),	public		::	radius_bottom(3)
real(kind=real64),	public		::	radius_top(3)
real(kind=real64),	public		::	outer_normal_bottom(3)
real(kind=real64),	public		::	outer_normal_top(3)
integer(kind=int32),	public		::	Division
type(Stem_),	public,	pointer	::	pStem
type(PlantRoot_),	public,	pointer	::	pRoot

Type-Bound Procedures

procedure, public :: Init => initPlantRoot
procedure, public :: create => createPlantRoot
procedure, public :: export => exportPlantRoot

Subroutines

public subroutine initPlantRoot(obj, PlantName, Stage, Thickness, length, width, MaxThickness, Maxlength, Maxwidth, location)

Arguments

Type	Intent	Optional	Attributes		Name
class(PlantRoot_),	intent(inout)			::	obj
character(len=*),	intent(in)			::	PlantName
character(len=2),	intent(in)			::	Stage
real(kind=real64),	intent(in),	optional		::	Thickness
real(kind=real64),	intent(in),	optional		::	length
real(kind=real64),	intent(in),	optional		::	width
real(kind=real64),	intent(in),	optional		::	MaxThickness
real(kind=real64),	intent(in),	optional		::	Maxlength
real(kind=real64),	intent(in),	optional		::	Maxwidth
real(kind=real64),	intent(in),	optional		::	location(3)

public subroutine createPlantRoot(obj, option)

Arguments

Type	Intent	Optional	Attributes		Name
class(PlantRoot_),	intent(inout)			::	obj
character(len=*),	intent(in),	optional		::	option

public subroutine exportPlantRoot(obj, FileName, RootID)

Arguments

Type	Intent	Optional	Attributes		Name
class(PlantRoot_),	intent(in)			::	obj
character(len=*),	intent(in)			::	FileName
integer(kind=int32),	intent(inout),	optional		::	RootID