FracWet

INTERFACE:

   subroutine FracWet (p)

DESCRIPTION:

   Determine fraction of vegetated surfaces which are wet and
   fraction of elai which is dry. The variable "fwet" is the  
   fraction of all vegetation surfaces which are wet including 
   stem area which contribute to evaporation. The variable "fdry"
   is the fraction of elai which is dry because only leaves
   can transpire.  Adjusted for stem area which does not transpire.

USES:

     use shr_kind_mod, only: r8 => shr_kind_r8
     use clmtype

ARGUMENTS:

     implicit none
     type (pft_type),target,intent(inout):: p		!pft derived type

CALLED FROM:

   subroutine Hydrology in module Hydrology1Mod

REVISION HISTORY:

   Created by Keith Oleson and M. Vertenstein

LOCAL VARIABLES:

   local pointers to original implicit in scalars
     integer,pointer :: frac_veg_nosno
     real(r8),pointer:: dewmx
     real(r8),pointer:: elai
     real(r8),pointer:: esai
     real(r8),pointer:: h2ocan
   local pointers to original implicit out scalars
     real(r8),pointer:: fwet
     real(r8),pointer:: fdry