FracWet

INTERFACE:

   subroutine FracWet(numf, filter)

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
     integer, intent(in) :: numf                  ! number of filter non-lake 
     integer, intent(in) :: filter(numf)          ! pft filter for non-lake po

CALLED FROM:

   subroutine Hydrology1 in module Hydrology1Mod

REVISION HISTORY:

   Created by Keith Oleson and M. Vertenstein
   03/08/29 Mariana Vertenstein : Migrated to vectorized code

LOCAL VARIABLES:

   local pointers to implicit in arguments
     integer , pointer :: frac_veg_nosno(:) ! fraction of veg not covered by s
     real(r8), pointer :: dewmx(:)          ! Maximum allowed dew [mm]
     real(r8), pointer :: elai(:)           ! one-sided leaf area index with b
     real(r8), pointer :: esai(:)           ! one-sided stem area index with b
     real(r8), pointer :: h2ocan(:)         ! total canopy water (mm H2O)
   local pointers to implicit out arguments
     real(r8), pointer :: fwet(:)           ! fraction of canopy that is wet (
     real(r8), pointer :: fdry(:)           ! fraction of foliage that is gree