set_landunit_veg_compete

INTERFACE:

    subroutine set_landunit_veg_compete (ltype, wtxy, vegxy, &
   subroutine set_landunit_veg_compete (ltype, &
                            nw, gi, li, ci, pi, setdata)

DESCRIPTION:

Initialize vegetated landunit with competition

!USES use clmtype , only : clm3, model_type, gridcell_type, landunit_type, & column_type,pft_type use subgridMod, only : subgrid_get_gcellinfo use clm_varpar, only : numpft, maxpatch_pft, numcft use clm_varctl, only : allocate_all_vegpfts, create_crop_landunit

ARGUMENTS:

     implicit none
     integer , intent(in)    :: ltype             ! landunit type
      real(r8), intent(in)    :: wtxy(:,:)         ! subgrid patch weights
      integer , intent(in)    :: vegxy(:,:)        ! PFT types 
     integer , intent(in)    :: nw                ! cell index
     integer , intent(in)    :: gi                ! gridcell index
     integer , intent(inout) :: li                ! landunit index
     integer , intent(inout) :: ci                ! column index
     integer , intent(inout) :: pi                ! pft index
     logical , intent(in)    :: setdata           ! set info or just compute

REVISION HISTORY:

   Created by ?
   2005.11.25 Updated by T Craig

LOCAL VARIABLES: