Seedprod.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	seedprod (ispec, htcl, ntinh, year, thiscell)
	Seedprod.
subroutine	sumspecsseedprodsoverheights (nspc, thiscell)
	SumSpecsSeedprodsOverHeights.

Function/Subroutine Documentation

seedprod()

subroutine seedprod	(	integer, intent(in)	ispec,
		integer, intent(in)	htcl,
		real, intent(in)	ntinh,
		integer, intent(in)	year,
		type(currstateincell), intent(inout)	thiscell )

Seedprod.

---

Calculates the seeds, which are produced by all trees of one species in one height class . For each height class the seeds are recorded and updated.

• USE: All_par
• IN:

  • Parameters

    ispec	: species index
    htcl	: height class
    ntinh	: number of trees of this species in this height class
    year	: current year
    thiscell	state in cell

  • FROM All_par
    • hcwidth : REAL : height class width
      
    • mastSeeding : LOGICAL : periodic seed production included?
    • CurrStateInCell : TYPE
    • spec(maxspc) : TYPE(SpecProperties) : species properties
    • specCl(maxspc) : TYPE(SpecPropertiesInCl) : species properties in light and height classes
• OUT:
  

  • Parameters

    thiscell

    state in cell

• CALLED FROM:
  • LocalForestDynamics in LocalForestDynamics.f90

Definition at line 50 of file Seedprod.f90.

sumspecsseedprodsoverheights()

subroutine sumspecsseedprodsoverheights	(	integer, intent(in)	nspc,
		type(currstateincell), intent(inout)	thiscell )

SumSpecsSeedprodsOverHeights.

---

Sums seeds of one species produced in all height classes

• USE: All_par
• IN:

  • Parameters

    nspec	: species index
    thiscell	state in cell

  • FROM All_par
    • CurrStateInCell : TYPE
    • spec(maxspc) : TYPE(SpecProperties) : species properties
    • specCl(maxspc) : TYPE(SpecPropertiesInCl) : species properties in light and height classes
• OUT:
  

  • Parameters

    thiscell

    state in cell

• CALLED FROM:
  • LocalForestDynamics in LocalForestDynamics.f90

Definition at line 104 of file Seedprod.f90.