dv

INTERFACE:

   subroutine dv(lbg, ubg, lbp, ubp, num_natvegp, filter_natvegp, kyr)

DESCRIPTION:

Drives the annual dynamic vegetation that works with CN

USES:

     use clmtype
     use CNDVLightMod        , only : Light
     use CNDVEstablishmentMod, only : Establishment

ARGUMENTS:

     implicit none
     integer, intent(in) :: lbg, ubg       ! gridcell bounds
     integer, intent(in) :: lbp, ubp       ! pft bounds
     integer, intent(inout) :: num_natvegp ! number of naturally-vegetated
                                           ! pfts in filter
     integer, intent(inout) :: filter_natvegp(ubp-lbp+1) ! filter for
                                           ! naturally-vegetated pfts
     integer, intent(in) :: kyr            ! used in routine climate20 below

CALLED FROM:

REVISION HISTORY:

   Author: Sam Levis

LOCAL VARIABLES:

   local pointers to implicit in arguments
    integer , pointer :: mxy(:)         ! pft m index (for laixy(i,j,m),etc.)
    integer , pointer :: pgridcell(:)   ! gridcell of corresponding pft
    real(r8), pointer :: fpcgrid(:)     ! foliar projective cover on gridcell (fraction)
    real(r8), pointer :: agdd(:)        ! accumulated growing degree days above 5
    real(r8), pointer :: t_mo_min(:)    ! annual min of t_mo (Kelvin)
   local pointers to implicit inout arguments
    real(r8), pointer :: tmomin20(:)         ! 20-yr running mean of tmomin
    real(r8), pointer :: agdd20(:)           ! 20-yr running mean of agdd