DGVMEcosystemDyn

INTERFACE:

   subroutine DGVMEcosystemDyn(lbp, ubp, num_nolakep, filter_nolakep, &
                               doalb, endofyr)

DESCRIPTION:

   Ecosystem dynamics: phenology, vegetation
   Calculates leaf areas (tlai, elai),  stem areas (tsai, esai) and
   height (htop)

USES:

     use clmtype
     use shr_const_mod, only: SHR_CONST_CDAY
     use time_manager, only : get_step_size, get_nstep, get_curr_date

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
     logical, intent(in) :: doalb                       ! true = surface albed
     logical, intent(in) :: endofyr

CALLED FROM:

   subroutine driver

REVISION HISTORY:

   Author: Gordon Bonan
   2/1/02, Peter Thornton: Migrated to new data structure.

LOCAL VARIABLES:

   local pointers to implicit in arguments
     integer , pointer :: ivt(:)      ! vegetation type for this pft
     integer , pointer :: pcolumn(:)  ! column index of corresponding pft
     real(r8), pointer :: lai_ind(:)  ! LAI per individual
     real(r8), pointer :: dphen(:)    ! phenology [0 to 1]
     real(r8), pointer :: fpcgrid(:)  ! foliar projective cover on gridcell (f
     real(r8), pointer :: snowdp(:)   ! snow height (m) (column-level)
   local pointers to implicit in/out arguments
     real(r8), pointer :: htop(:)     ! canopy top (m)
   local pointers to implicit out arguments
     real(r8), pointer :: tlai(:)     ! one-sided leaf area index, no burying 
     real(r8), pointer :: tsai(:)     ! one-sided stem area index, no burying 
     real(r8), pointer :: hbot(:)     ! canopy bottom (m)
     real(r8), pointer :: elai(:)     ! one-sided leaf area index with burying
     real(r8), pointer :: esai(:)     ! one-sided stem area index with burying
     integer , pointer :: frac_veg_nosno_alb(:) ! frac of vegetation not cover