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.
use shr_kind_mod, only: r8 => shr_kind_r8 use clmtypeARGUMENTS:
implicit none integer, intent(in) :: numf ! number of filter non-lake points integer, intent(in) :: filter(numf) ! pft filter for non-lake pointsCALLED FROM:
subroutine Hydrology1 in module Hydrology1ModREVISION HISTORY:
Created by Keith Oleson and M. Vertenstein 03/08/29 Mariana Vertenstein : Migrated to vectorized codeLOCAL VARIABLES:
local pointers to implicit in arguments integer , pointer :: frac_veg_nosno(:) ! fraction of veg not covered by snow (0/1 now) [-] real(r8), pointer :: dewmx(:) ! Maximum allowed dew [mm] real(r8), pointer :: elai(:) ! one-sided leaf area index with burying by snow real(r8), pointer :: esai(:) ! one-sided stem area index with burying by snow 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 (0 to 1) real(r8), pointer :: fdry(:) ! fraction of foliage that is green and dry [-] (new) !OTHER LOCAL VARIABLES: