Kill

INTERFACE:

   subroutine Kill(lbp, ubp, num_natvegp, filter_natvegp)

DESCRIPTION:

   Removal of PFTs with negative annual C increment
   NB: PFTs newly beyond their bioclimatic limits are removed in
   subroutine establishment
   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. kill)

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 :: 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
     real(r8), pointer :: bm_inc(:)          ! biomass increment
     logical , pointer :: tree(:)            ! ecophys const - whether this pf
   local pointers to implicit inout arguments
     logical , pointer :: present(:)         ! whether PFT present in patch
     real(r8), pointer :: litter_ag(:)       ! above ground litter
     real(r8), pointer :: litter_bg(:)       ! below ground litter