Mortality

INTERFACE:

   subroutine Mortality(lbp, ubp, num_natvegp, filter_natvegp)

DESCRIPTION:

   Tree background and stress mortality

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. mortality)

LOCAL VARIABLES:

   local pointers to implicit in arguments
     integer , pointer :: ivt(:)          ! pft vegetation type
     real(r8), pointer :: bm_inc(:)       ! biomass increment
     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 :: agddtw(:)       ! accumulated growing degree days ab
     real(r8), pointer :: turnover_ind(:) !
     logical , pointer :: tree(:)         ! ecophys const - whether this pft i
     real(r8), pointer :: sla(:)          ! ecophys const - specific leaf area
   local pointers to implicit inout arguments
     logical , pointer :: present(:)      ! whether PFT present in patch
     real(r8), pointer :: nind(:)         ! number of individuals
     real(r8), pointer :: litterag(:)     ! above ground litter
     real(r8), pointer :: litterbg(:)     ! below ground litter