INTERFACE:
subroutine Infiltration(lbc, ubc, num_hydrologyc, filter_hydrologyc, &
num_urbanc, filter_urbanc)
DESCRIPTION:
Calculate infiltration into surface soil layer (minus the evaporation)
USES:
use shr_kind_mod, only : r8 => shr_kind_r8
use clm_varcon , only : icol_roof, icol_road_imperv, icol_sunwall, icol_shadewall, &
icol_road_perv
use clmtype
ARGUMENTS:
implicit none
integer, intent(in) :: lbc, ubc ! column bounds
integer, intent(in) :: num_hydrologyc ! number of column soil points in column filter
integer, intent(in) :: filter_hydrologyc(ubc-lbc+1) ! column filter for soil points
integer, intent(in) :: num_urbanc ! number of column urban points in column filter
integer, intent(in) :: filter_urbanc(ubc-lbc+1) ! column filter for urban points
CALLED FROM:
REVISION HISTORY:
15 September 1999: Yongjiu Dai; Initial code 12 November 1999: Z.-L. Yang and G.-Y. Niu 15 December 1999: Paul Houser and Jon Radakovich; F90 Revision 2/27/02, Peter Thornton: Migrated to new data structures.LOCAL VARIABLES:
local pointers to original implicit in arguments
integer , pointer :: ctype(:) ! column type index
integer , pointer :: snl(:) ! minus number of snow layers
real(r8), pointer :: qflx_top_soil(:) ! net water input into soil from top (mm/s)
real(r8), pointer :: qflx_surf(:) ! surface runoff (mm H2O /s)
real(r8), pointer :: qflx_evap_grnd(:)! ground surface evaporation rate (mm H2O/s) [+]
local pointers to original implicit out arguments
real(r8), pointer :: qflx_infl(:) !infiltration (mm H2O /s)