surfrd_wtxy_veg_rank

INTERFACE:

    subroutine surfrd_wtxy_veg_rank(ncid, pctspec, vegxy, wtxy, domain)
   subroutine surfrd_wtxy_veg_rank(ncid, domain)

DESCRIPTION:

Determine wtxy and veg arrays for non-dynamic landuse mode

USES:

     use clm_varctl, only : create_crop_landunit
     use pftvarcon , only : crop, noveg
     use domainMod , only : domain_type

ARGUMENTS:

     implicit none
     include 'netcdf.inc'
     integer , intent(in)    :: ncid        ! netcdf file id 
      real(r8), intent(in)    :: pctspec(:)  ! percent wrt gcell of spec lunits
      integer , intent(inout) :: vegxy(:,:)    ! PFT
      real(r8), intent(inout) :: wtxy(:,:)   ! subgrid weights
     type(domain_type),intent(in) :: domain ! domain associated with wtxy

CALLED FROM:

   subroutine surfrd in this module

REVISION HISTORY:

   Created by Mariana Vertenstein, Sam Levis and Gordon Bonan

LOCAL VARIABLES: