LeafClass Module

  1. LeafClass.f90
  2. LeafClass

Uses


Contents

Derived Types

Functions

Subroutines


Derived Types

type, public :: Leaf_

Components

TypeVisibility AttributesNameInitial
type(FEMDomain_), public :: FEMDomain
real(kind=real64), public, allocatable:: LeafSurfaceNode2D(:,:)
real(kind=real64), public :: ShapeFactor
real(kind=real64), public :: Thickness
real(kind=real64), public :: length
real(kind=real64), public :: width
real(kind=real64), public :: center(3)
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 :: outer_normal_bottom(3)
real(kind=real64), public :: outer_normal_top(3)
real(kind=real64), public, allocatable:: source(:)
real(kind=real64), public, allocatable:: ppfd(:)
real(kind=real64), public, allocatable:: A(:)
integer(kind=int32), public :: Division
type(Leaf_), public, pointer:: pleaf
type(Peti_), public, pointer:: pPeti
real(kind=real64), public :: rot_x =0.0d0
real(kind=real64), public :: rot_y =0.0d0
real(kind=real64), public :: rot_z =0.0d0
real(kind=real64), public :: disp_x =0.0d0
real(kind=real64), public :: disp_y =0.0d0
real(kind=real64), public :: disp_z =0.0d0
real(kind=real64), public :: shaperatio =0.30d0
real(kind=real64), public :: minwidth
real(kind=real64), public :: minlength
real(kind=real64), public :: MinThickness
integer(kind=int32), public, allocatable:: I_planeNodeID(:)
integer(kind=int32), public, allocatable:: I_planeElementID(:)
integer(kind=int32), public, allocatable:: II_planeNodeID(:)
integer(kind=int32), public, allocatable:: II_planeElementID(:)
integer(kind=int32), public :: A_PointNodeID
integer(kind=int32), public :: B_PointNodeID
integer(kind=int32), public :: A_PointElementID
integer(kind=int32), public :: B_PointElementID
integer(kind=int32), public :: xnum =10
integer(kind=int32), public :: ynum =10
integer(kind=int32), public :: znum =10
real(kind=real64), public :: V_cmax =100.0d0
real(kind=real64), public :: V_omax =100.0d0
real(kind=real64), public :: O2 =380.0d0
real(kind=real64), public :: CO2 =202000.0d0
real(kind=real64), public :: R_d =1.0d0
real(kind=real64), public :: K_c =272.380d0
real(kind=real64), public :: K_o =165820.0d0
real(kind=real64), public :: J_ =0.0d0
real(kind=real64), public :: I_ =0.0d0
real(kind=real64), public :: phi =0.0d0
real(kind=real64), public :: J_max =180.0d0
real(kind=real64), public :: theta_r =0.0d0
real(kind=real64), public :: maxPPFD =1.0d0
real(kind=real64), public :: Lambda =37.430d0
real(kind=real64), public :: temp =303.0d0
real(kind=real64), public, allocatable:: DryDensity(:)
real(kind=real64), public, allocatable:: WaterContent(:)

Type-Bound Procedures

procedure, public :: Init => initLeaf
procedure, public :: rotate => rotateleaf
procedure, public :: move => moveleaf
procedure, public :: curve => curveleaf
procedure, public :: create => createLeaf
procedure, public, pass :: connectLeafLeaf => connectleafleaf
procedure, public, pass :: connectLeafStem
generic, public :: connect => connectLeafLeaf, connectLeafStem
procedure, public :: photosynthesis => photosynthesisLeaf
procedure, public :: rescale => rescaleleaf
procedure, public :: adjust => adjustLeaf
procedure, public :: resize => resizeleaf
procedure, public :: getVolume => getVolumeLeaf
procedure, public :: getBiomass => getBiomassLeaf
procedure, public :: getCoordinate => getCoordinateleaf
procedure, public :: gmsh => gmshleaf
procedure, public :: msh => mshleaf
procedure, public :: vtk => vtkleaf
procedure, public :: stl => stlleaf

Functions

public function getCoordinateleaf(obj, nodetype) result(ret)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
character(len=*), intent(in) :: nodetype

Return Value real(kind=real64), allocatable, (:)

public function getVolumeLeaf(obj) result(ret)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(in) :: obj

Return Value real(kind=real64)

public function getBiomassLeaf(obj) result(ret)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(in) :: obj

Return Value real(kind=real64)


Subroutines

public subroutine createLeaf(obj, SurfacePoints, filename, x_num, y_num, x_len, y_len)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
real(kind=real64), intent(in), optional :: SurfacePoints(:,:)
character(len=*), intent(in), optional :: filename
integer(kind=int32), intent(in), optional :: x_num
integer(kind=int32), intent(in), optional :: y_num
real(kind=real64), intent(in), optional :: x_len
real(kind=real64), intent(in), optional :: y_len

public subroutine initLeaf(obj, config, regacy, Thickness, length, width, ShapeFactor, MaxThickness, Maxlength, Maxwidth, rotx, roty, rotz, location, species, SoyWidthRatio, curvature)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
character(len=*), intent(in), optional :: config
logical, intent(in), optional :: regacy
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 :: ShapeFactor
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 :: rotx
real(kind=real64), intent(in), optional :: roty
real(kind=real64), intent(in), optional :: rotz
real(kind=real64), intent(in), optional :: location(3)
integer(kind=int32), intent(in), optional :: species
real(kind=real64), intent(in), optional :: SoyWidthRatio
real(kind=real64), intent(in), optional :: curvature

public subroutine curveleaf(obj, curvature)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
real(kind=real64), intent(in) :: curvature

public recursive subroutine rotateleaf(obj, x, y, z, reset)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
real(kind=real64), intent(in), optional :: x
real(kind=real64), intent(in), optional :: y
real(kind=real64), intent(in), optional :: z
logical, intent(in), optional :: reset

public recursive subroutine moveleaf(obj, x, y, z, reset)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
real(kind=real64), intent(in), optional :: x
real(kind=real64), intent(in), optional :: y
real(kind=real64), intent(in), optional :: z
logical, intent(in), optional :: reset

public subroutine connectleafleaf(obj, direct, leaf)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
character(len=2), intent(in) :: direct
class(Leaf_), intent(inout) :: leaf

public subroutine connectLeafStem(obj, direct, stem)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
character(len=2), intent(in) :: direct
class(Stem_), intent(inout) :: stem

public subroutine gmshleaf(obj, name)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
character(len=*), intent(in) :: name

public subroutine mshleaf(obj, name)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
character(len=*), intent(in) :: name

public subroutine vtkleaf(obj, name)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
character(len=*), intent(in) :: name

public subroutine stlleaf(obj, name)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
character(len=*), intent(in) :: name

public subroutine resizeleaf(obj, x, y, z)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout), optional :: obj
real(kind=real64), intent(in), optional :: x
real(kind=real64), intent(in), optional :: y
real(kind=real64), intent(in), optional :: z

public subroutine rescaleleaf(obj, x, y, z)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout), optional :: obj
real(kind=real64), intent(in), optional :: x
real(kind=real64), intent(in), optional :: y
real(kind=real64), intent(in), optional :: z

public subroutine photosynthesisLeaf(obj, dt, air)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
real(kind=real64), intent(in) :: dt
type(Air_), intent(in) :: air

public subroutine adjustLeaf(obj, width)

Arguments

Type IntentOptional AttributesName
class(Leaf_), intent(inout) :: obj
real(kind=real64), intent(in) :: width(:,:)