Phenology

INTERFACE:

   subroutine Phenology (lbp, ubp, num_nolakep, filter_nolakep)

DESCRIPTION:

   Summer and drought phenology. Called once per day.

USES:

     use clmtype
     use shr_const_mod, only : 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 Jon Foley's IBIS subroutine pheno)
   2/1/02, Peter Thornton: Migrated to new data structure

LOCAL VARIABLES:

   local pointers to implicit in scalars
     integer , pointer :: ivt(:)         ! vegetation type for this pft
     real(r8), pointer :: t10(:)         ! 10-day running mean of the 2 m temp
     real(r8), pointer :: agdd0(:)       ! accumulated growing degree days abo
     real(r8), pointer :: agdd5(:)       ! accumulated growing degree days abo
     real(r8), pointer :: fnpsn10(:)     ! 10-day running mean net photosynthe
     real(r8), pointer :: tmomin20(:)    ! 20 year running mean of monthly min
     real(r8), pointer :: l_long(:)      ! ecophys constant - leaf longevity [
     logical , pointer :: tree(:)        ! ecophys constant
     logical , pointer :: raingreen(:)   ! ecophys constant
     logical , pointer :: summergreen(:) ! ecophys constant
   local pointers to implicit in/out scalars
     real(r8), pointer :: t10min(:)      ! annual minimum of 10-day running me
     real(r8), pointer :: leafon(:)      ! leafon days
     real(r8), pointer :: leafof(:)      ! leafoff days
   local pointers to implicit out scalars
     real(r8), pointer :: dphen(:)       ! phenology [0 to 1]