INTERFACE:
subroutine SnowWater (c)DESCRIPTION:
Evaluate the change of snow mass and the snow water onto soil. Water flow within snow is computed by an explicit and non-physical based scheme, which permits a part of liquid water over the holding capacity (a tentative value is used, i.e. equal to 0.033*porosity) to percolate into the underlying layer. Except for cases where the porosity of one of the two neighboring layers is less than 0.05, zero flow is assumed. The water flow out of the bottom of the snow pack will participate as the input of the soil water and runoff.USES:
use clmtype
use globals, only: dtime
use clm_varcon, only : denh2o, denice, wimp, ssi
ARGUMENTS:
implicit none
type (column_type),target,intent(inout):: c !column derived type
CALLED FROM:
REVISION HISTORY:
15 September 1999: Yongjiu Dai; Initial code 15 December 1999: Paul Houser and Jon Radakovich; F90 Revision 15 November 2000: Mariana Vertenstein 2/26/02, Peter Thornton: Migrated to new data structures.LOCAL VARIABLES:
local pointers to implicit in arguments
integer,pointer:: snl !number of snow layers
logical,pointer:: do_capsnow !true => do snow capping
real(r8),pointer:: qflx_snomelt !snow melt (mm H2O /s)
real(r8),pointer:: qflx_rain_grnd !rain on ground after interception (mm H2O/s) [+]
real(r8),pointer:: qflx_sub_snow !sublimation rate from snow pack (mm H2O /s) [+]
real(r8),pointer:: qflx_evap_grnd !ground surface evaporation rate (mm H2O/s) [+]
real(r8),pointer:: qflx_dew_snow !surface dew added to snow pack (mm H2O /s) [+]
real(r8),pointer:: qflx_dew_grnd !ground surface dew formation (mm H2O /s) [+]
local pointers to implicit out arguments
real(r8),pointer:: qflx_top_soil !net water input into soil from top (mm/s)
local pointers to implicit in arrays
real(r8),dimension(:),pointer:: dz !layer depth (m)
local pointers to implicit inout arrays
real(r8),dimension(:),pointer:: h2osoi_ice !ice lens (kg/m2)
real(r8),dimension(:),pointer:: h2osoi_liq !liquid water (kg/m2)