PlantRoot_ Derived Type

  1. PlantRootClass.f90
  2. PlantRootClass
  3. PlantRoot_

type, public :: PlantRoot_


Contents

Variables

Type-Bound Procedures


Components

TypeVisibility AttributesNameInitial
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

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

    Arguments

    Type IntentOptional AttributesName
    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)

procedure, public :: create => createPlantRoot

  • public subroutine createPlantRoot(obj, option)

    Arguments

    Type IntentOptional AttributesName
    class(PlantRoot_), intent(inout) :: obj
    character(len=*), intent(in), optional :: option

procedure, public :: export => exportPlantRoot

  • public subroutine exportPlantRoot(obj, FileName, RootID)

    Arguments

    Type IntentOptional AttributesName
    class(PlantRoot_), intent(in) :: obj
    character(len=*), intent(in) :: FileName
    integer(kind=int32), intent(inout), optional :: RootID