EcosystemDyn

INTERFACE:

   subroutine EcosystemDyn(lbp, ubp, num_nolakep, filter_nolakep, doalb)

DESCRIPTION:

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

USES:

     use clmtype
     use pftvarcon, only : noveg, nc3crop, nbrdlf_dcd_brl_shrub

ARGUMENTS:

     implicit none
     integer, intent(in) :: lbp, ubp                    ! pft bounds
     integer, intent(in) :: num_nolakep                 ! number of column non-lake points in pft filter
     integer, intent(in) :: filter_nolakep(ubp-lbp+1)   ! pft filter for non-lake points
     logical, intent(in) :: doalb                       ! true = surface albedo calculation time step

CALLED FROM:

REVISION HISTORY:

   Author: Gordon Bonan
   2/1/02, Peter Thornton: Migrated to new data structure.
   2/29/08, David Lawrence: revised snow burial fraction for short vegetation

LOCAL VARIABLES:

   local pointers to implicit in arguments
     integer , pointer :: pcolumn(:)  ! column index associated with each pft
     real(r8), pointer :: snowdp(:)   ! snow height (m)
     integer , pointer :: ivt(:)      ! pft vegetation type
 #if (defined CASA)
     real(r8), pointer :: plai(:)     ! Prognostic lai
 #endif
   local pointers to implicit out arguments
     real(r8), pointer :: tlai(:)     ! one-sided leaf area index, no burying by snow
     real(r8), pointer :: tsai(:)     ! one-sided stem area index, no burying by snow
     real(r8), pointer :: htop(:)     ! canopy top (m)
     real(r8), pointer :: hbot(:)     ! canopy bottom (m)
     real(r8), pointer :: elai(:)     ! one-sided leaf area index with burying by snow
     real(r8), pointer :: esai(:)     ! one-sided stem area index with burying by snow
     integer , pointer :: frac_veg_nosno_alb(:) ! frac of vegetation not covered by snow [-]
   !OTHER LOCAL VARIABLES: