EcosystemDyn

INTERFACE:

   subroutine EcosystemDyn (c, doalb, endofyr)

DESCRIPTION:

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

USES:

     use clmtype
     use globals
     use mvegFileMod , only : mlai1, msai1, mlai2, msai2, &
          mhvt1, mhvt2, mhvb1, mhvb2, timwt

ARGUMENTS:

     implicit none
     type (column_type),target,intent(inout):: c	!column derived type
     logical, intent(in):: doalb   !true = surface albedo calculation time step
     logical, intent(in):: endofyr

CALLED FROM:

REVISION HISTORY:

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

LOCAL VARIABLES:

   local pointers to implicit in scalars
     real(r8), pointer :: snowdp   !snow height (m)
   local pointers to implicit in/out scalars
     real(r8), pointer :: htop     !canopy top (m)
   local pointers to implicit out scalars
     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 :: 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 [-]