Fire

INTERFACE:

   subroutine Fire(lbp, ubp, afire_frac, acflux_fire)

DESCRIPTION:

   Effect of the fire on vegetation structure and litter

USES:

     use shr_kind_mod, only: r8 => shr_kind_r8
     use clmtype

ARGUMENTS:

     implicit none
     integer , intent(in)  :: lbp, ubp            ! pft bounds
     real(r8), intent(out) :: afire_frac(lbp:ubp)
     real(r8), intent(out) :: acflux_fire(lbp:ubp)

CALLED FROM:

   subroutine EcosystemDyn in module EcosystemdynMod
   subroutine lpj in module DGVMMod

REVISION HISTORY:

   Author: Sam Levis (adapted from Stephen Sitch's LPJ subroutine fire)

LOCAL VARIABLES:

   local pointers to implicit in arguments
     integer , pointer :: ivt(:)             ! pft vegetation type
     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 :: fpc_grid(:)        ! foliar projective cover on grid
     logical , pointer :: present(:)         ! whether this pft present in pat
     real(r8), pointer :: fire_length(:)     ! fire season in days
     logical , pointer :: tree(:)            ! ecophys const - whether this pf
     real(r8), pointer :: resist(:)          ! ecophys const - fire resistance
   local pointers to implicit inout arguments
     real(r8), pointer :: litter_ag(:)       ! above ground litter
     real(r8), pointer :: nind(:)            ! number of individuals (#/m**2)