BuildNatVegFilter

INTERFACE:

   subroutine BuildNatVegFilter(lbp, ubp, num_natvegp, filter_natvegp)

DESCRIPTION:

Reconstruct a filter of naturally-vegetated PFTs for use in DGVM

USES:

     use clmtype
     use pftvarcon , only : crop

ARGUMENTS:

     implicit none
     integer, intent(in)  :: lbp, ubp                   ! pft bounds
     integer, intent(out) :: num_natvegp                ! number of pfts in na
     integer, intent(out) :: filter_natvegp(ubp-lbp+1)  ! pft filter for natur

CALLED FROM:

   subroutine lpj in this module

REVISION HISTORY:

   Author: Forrest Hoffman

LOCAL VARIABLES:

   local pointers to implicit in arguments
     integer , pointer :: ivt(:)         ! pft vegetation (pft level)
     logical , pointer :: present(:)     ! whether this pft present in patch