Infiltration

INTERFACE:

   subroutine Infiltration (c)

DESCRIPTION:

   Calculate infiltration into surface soil layer (minus the evaporation)
   The original code on soil moisture and runoff were provided by 
   R. E. Dickinson in July 1996.

USES:

     use shr_kind_mod, only: r8 => shr_kind_r8
     use clmtype

ARGUMENTS:

     implicit none
     type (column_type),target,intent(inout):: c		!column derived type

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:: snl            !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)