DivideSnowLayers

INTERFACE:

   subroutine DivideSnowLayers (c)

DESCRIPTION:

   Subdivides snow layers if they exceed their prescribed maximum thickness.

USES:

     use clmtype

ARGUMENTS:

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

CALLED FROM:

   subroutine Hydrology2 in module Hydrology2Mod

REVISION HISTORY:

   15 September 1999: Yongjiu Dai; Initial code
   15 December 1999:  Paul Houser and Jon Radakovich; F90 Revision 
   2/28/02, Peter Thornton: Migrated to new data structures.

LOCAL VARIABLES:

   local pointers to implicit inout scalars
     integer,pointer:: snl
   local pointers to implicit inout arrays
     real(r8),dimension(:),pointer:: dz
     real(r8),dimension(:),pointer:: zi
     real(r8),dimension(:),pointer:: t_soisno
     real(r8),dimension(:),pointer:: h2osoi_ice
     real(r8),dimension(:),pointer:: h2osoi_liq
   local pointers to implicit out arrays
     real(r8),dimension(:),pointer:: z