surfrd_wtxy_special

INTERFACE:

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

DESCRIPTION:

Determine weight with respect to gridcell of all special "pfts" as well as soil color and percent sand and clay

USES:

     use pftvarcon     , only : noveg
     use UrbanInputMod , only : urbinp
     use domainMod   , only : domain_type

ARGUMENTS:

     implicit none
     include 'netcdf.inc'
     integer , intent(in)    :: ncid      ! netcdf file id 
      real(r8), intent(inout) :: pctspec(:)! percent wrt gcell special 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: