Turnover

INTERFACE:

   subroutine Turnover(lbp, ubp, num_natvegp, filter_natvegp)

DESCRIPTION:

   Turnover of PFT-specific fraction from each living C pool
   Leaf and root C transferred to litter, sapwood C to heartwood
   Called once per year

USES:

     use clmtype

ARGUMENTS:

     implicit none
     integer, intent(in) :: lbp, ubp                  ! pft bounds
     integer, intent(in) :: num_natvegp               ! number of naturally-ve
     integer, intent(in) :: filter_natvegp(ubp-lbp+1) ! pft filter for natural

CALLED FROM:

   subroutine lpj in module DGVMMod

REVISION HISTORY:

   Author: Sam Levis (adapted from Stephen Sitch's LPJ subr. turnover)

LOCAL VARIABLES:

   local pointers to implicit in arguments
     integer , pointer :: ivt(:)             ! pft vegetation type
     real(r8), pointer :: nind(:)            ! number of individuals (#/m**2)
     real(r8), pointer :: l_turn(:)          ! ecophys const - leaf turnover p
     real(r8), pointer :: s_turn(:)          ! ecophys const - sapwood turnove
     real(r8), pointer :: r_turn(:)          ! ecophys const - root turnover p
   local pointers to implicit inout arguments
     real(r8), pointer :: litter_ag(:)       ! above ground litter
     real(r8), pointer :: litter_bg(:)       ! below ground litter
     real(r8), pointer :: lm_ind(:)          ! individual leaf mass
     real(r8), pointer :: sm_ind(:)          ! individual sapwood mass
     real(r8), pointer :: hm_ind(:)          ! individual heartwood mass
     real(r8), pointer :: rm_ind(:)          ! individual root mass
   local pointers to implicit out arguments
     real(r8), pointer :: turnover_ind(:)    !