litter_type Derived Type

type, public :: litter_type


Components

Type Visibility Attributes Name Initial
integer, public :: element_id
real(kind=r8), public :: ag_cwd(ncwd)
real(kind=r8), public, allocatable :: bg_cwd(:,:)
real(kind=r8), public, allocatable :: leaf_fines(:)
real(kind=r8), public, allocatable :: root_fines(:,:)
real(kind=r8), public, allocatable :: seed(:)
real(kind=r8), public, allocatable :: seed_germ(:)
real(kind=r8), public :: ag_cwd_in(ncwd)
real(kind=r8), public, allocatable :: bg_cwd_in(:,:)
real(kind=r8), public, allocatable :: leaf_fines_in(:)
real(kind=r8), public, allocatable :: root_fines_in(:,:)
real(kind=r8), public, allocatable :: seed_in_local(:)
real(kind=r8), public, allocatable :: seed_in_extern(:)
real(kind=r8), public :: ag_cwd_frag(ncwd)
real(kind=r8), public, allocatable :: bg_cwd_frag(:,:)
real(kind=r8), public, allocatable :: leaf_fines_frag(:)
real(kind=r8), public, allocatable :: root_fines_frag(:,:)
real(kind=r8), public, allocatable :: seed_decay(:)
real(kind=r8), public, allocatable :: seed_germ_decay(:)
real(kind=r8), public, allocatable :: seed_germ_in(:)

Type-Bound Procedures

procedure, public, non_overridable :: InitAllocate

  • private subroutine InitAllocate(this, numpft, numlevsoil, element_id)

    Arguments

    Type IntentOptional Attributes Name
    class(litter_type) :: this
    integer, intent(in) :: numpft
    integer, intent(in) :: numlevsoil
    integer, intent(in) :: element_id

procedure, public, non_overridable :: DeallocateLitt

  • private subroutine DeallocateLitt(this)

    Arguments

    Type IntentOptional Attributes Name
    class(litter_type) :: this

procedure, public, non_overridable :: InitConditions

  • private subroutine InitConditions(this, init_leaf_fines, init_root_fines, init_ag_cwd, init_bg_cwd, init_seed, init_seed_germ)

    Arguments

    Type IntentOptional Attributes Name
    class(litter_type) :: this
    real(kind=r8), intent(in) :: init_leaf_fines
    real(kind=r8), intent(in) :: init_root_fines
    real(kind=r8), intent(in) :: init_ag_cwd
    real(kind=r8), intent(in) :: init_bg_cwd
    real(kind=r8), intent(in) :: init_seed
    real(kind=r8), intent(in) :: init_seed_germ

procedure, public, non_overridable :: FuseLitter

  • private subroutine FuseLitter(this, self_area, donor_area, donor_litt)

    Arguments

    Type IntentOptional Attributes Name
    class(litter_type) :: this
    real(kind=r8), intent(in) :: self_area
    real(kind=r8), intent(in) :: donor_area
    type(litter_type), intent(in) :: donor_litt

procedure, public, non_overridable :: CopyLitter

  • private subroutine CopyLitter(this, donor_litt)

    Arguments

    Type IntentOptional Attributes Name
    class(litter_type) :: this
    type(litter_type), intent(in) :: donor_litt

procedure, public, non_overridable :: ZeroFlux

  • private subroutine ZeroFlux(this)

    Arguments

    Type IntentOptional Attributes Name
    class(litter_type) :: this

procedure, public, non_overridable :: GetTotalLitterMass

  • private function GetTotalLitterMass(this) result(total_mass)

    Arguments

    Type IntentOptional Attributes Name
    class(litter_type) :: this

    Return Value real(kind=r8)