FireSeason

INTERFACE:

   subroutine FireSeason (lbp, ubp, num_nolakep, filter_nolakep)

DESCRIPTION:

   Calculate length of fire season in a year
   Orig. code was called once per day.
   slevis adapted to call every tstep.
   Orig. code operated on a grid cell basis.
   slevis adapted to operate on a patch basis.

USES:

     use clmtype
     use time_manager, only : get_step_size
     use shr_const_mod, only : SHR_CONST_PI, SHR_CONST_CDAY, SHR_CONST_TKFRZ

ARGUMENTS:

     implicit none
     integer, intent(in) :: lbp, ubp                    ! pft bounds
     integer, intent(in) :: num_nolakep                 ! number of column non
     integer, intent(in) :: filter_nolakep(ubp-lbp+1)   ! pft filter for non-l

CALLED FROM:

   subroutine Ecosysdyn in this module

REVISION HISTORY:

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

LOCAL VARIABLES:

   local pointers toimplicit in arguments
     integer , pointer :: pcolumn(:)      ! column index for corresponding pft
     integer , pointer :: ivt(:)          ! vegetation type for this pft
     real(r8), pointer :: t_ref2m(:)      ! 2 m height surface air temperature
     real(r8), pointer :: litterag(:)     ! above ground litter
     real(r8), pointer :: wf(:)           ! soil water as frac. of whc for top
     real(r8), pointer :: flam(:)         ! ecophys constant - flammability th
   local pointers toimplicit in/out arguments
     real(r8), pointer :: firelength(:)   ! fire season in days