CNLivewoodTurnover

INTERFACE:

 subroutine CNLivewoodTurnover (num_soilp, filter_soilp)

DESCRIPTION:

Determines the flux of C and N from live wood to dead wood pools, for stem and coarse root.

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:

   12/5/03: created by Peter Thornton

LOCAL VARIABLES:

   local pointers to implicit in scalars
    ! pft level
    integer , pointer :: ivt(:)         ! pft vegetation type
    real(r8), pointer :: livestemc(:)   ! (gC/m2) live stem C
    real(r8), pointer :: livecrootc(:)  ! (gC/m2) live coarse root C
    real(r8), pointer :: livestemn(:)   ! (gN/m2) live stem N
    real(r8), pointer :: livecrootn(:)  ! (gN/m2) live coarse root N
    ! ecophysiological constants
    real(r8), pointer :: woody(:)       ! binary flag for woody lifeform (1=woody, 0=not woody)
    real(r8), pointer :: livewdcn(:)    ! live wood (phloem and ray parenchyma) C:N (gC/gN)
    real(r8), pointer :: deadwdcn(:)    ! dead wood (xylem and heartwood) C:N (gC/gN)
   local pointers to implicit in/out scalars
    real(r8), pointer :: livestemc_to_deadstemc(:)
    real(r8), pointer :: livecrootc_to_deadcrootc(:)
    real(r8), pointer :: livestemn_to_deadstemn(:)
    real(r8), pointer :: livestemn_to_retransn(:)
    real(r8), pointer :: livecrootn_to_deadcrootn(:)
    real(r8), pointer :: livecrootn_to_retransn(:)
   local pointers to implicit out scalars
   !OTHER LOCAL VARIABLES:
    integer :: p            ! indices
    integer :: fp           ! lake filter pft index
    real(r8):: ctovr        ! temporary variable for carbon turnover
    real(r8):: ntovr        ! temporary variable for nitrogen turnover