set_landunit_crop_noncompete

INTERFACE:

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

DESCRIPTION:

Initialize crop landunit without competition

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

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 Sam Levis
   2005.11.25 Updated by T Craig

LOCAL VARIABLES: