CNOnsetGrowth

INTERFACE:

 subroutine CNOnsetGrowth (num_soilp, filter_soilp)

DESCRIPTION:

Determines the flux of stored C and N from transfer pools to display pools during the phenological onset period.

USES:

ARGUMENTS:

    integer, intent(in) :: num_soilp       ! number of soil pfts in filter
    integer, intent(in) :: filter_soilp(:) ! filter for soil pfts

CALLED FROM:

   subroutine CNPhenology

REVISION HISTORY:

   10/27/03: Created by Peter Thornton

LOCAL VARIABLES:

   local pointers to implicit in scalars
    integer , pointer :: ivt(:)             ! pft vegetation type
    real(r8), pointer :: onset_flag(:)      ! onset flag
    real(r8), pointer :: onset_counter(:)   ! onset days counter
    real(r8), pointer :: leafc_xfer(:)      ! (gC/m2) leaf C transfer
    real(r8), pointer :: frootc_xfer(:)     ! (gC/m2) fine root C transfer
    real(r8), pointer :: livestemc_xfer(:)  ! (gC/m2) live stem C transfer
    real(r8), pointer :: deadstemc_xfer(:)  ! (gC/m2) dead stem C transfer
    real(r8), pointer :: livecrootc_xfer(:) ! (gC/m2) live coarse root C transfer
    real(r8), pointer :: deadcrootc_xfer(:) ! (gC/m2) dead coarse root C transfer
    real(r8), pointer :: leafn_xfer(:)      ! (gN/m2) leaf N transfer
    real(r8), pointer :: frootn_xfer(:)     ! (gN/m2) fine root N transfer
    real(r8), pointer :: livestemn_xfer(:)  ! (gN/m2) live stem N transfer
    real(r8), pointer :: deadstemn_xfer(:)  ! (gN/m2) dead stem N transfer
    real(r8), pointer :: livecrootn_xfer(:) ! (gN/m2) live coarse root N transfer
    real(r8), pointer :: deadcrootn_xfer(:) ! (gN/m2) dead coarse root N transfer
    real(r8), pointer :: woody(:)           ! binary flag for woody lifeform (1=woody, 0=not woody)
    real(r8), pointer :: bgtr(:)            ! background transfer growth rate (1/s)
   local pointers to implicit in/out scalars
    real(r8), pointer :: leafc_xfer_to_leafc(:)
    real(r8), pointer :: frootc_xfer_to_frootc(:)
    real(r8), pointer :: livestemc_xfer_to_livestemc(:)
    real(r8), pointer :: deadstemc_xfer_to_deadstemc(:)
    real(r8), pointer :: livecrootc_xfer_to_livecrootc(:)
    real(r8), pointer :: deadcrootc_xfer_to_deadcrootc(:)
    real(r8), pointer :: leafn_xfer_to_leafn(:)
    real(r8), pointer :: frootn_xfer_to_frootn(:)
    real(r8), pointer :: livestemn_xfer_to_livestemn(:)
    real(r8), pointer :: deadstemn_xfer_to_deadstemn(:)
    real(r8), pointer :: livecrootn_xfer_to_livecrootn(:)
    real(r8), pointer :: deadcrootn_xfer_to_deadcrootn(:)
   local pointers to implicit out scalars
   !OTHER LOCAL VARIABLES:
    integer :: p            ! indices
    integer :: fp           ! lake filter pft index
    real(r8):: t1           ! temporary variable