snowdp2lev (Source File: snowdp2lev.F90)

INTERFACE:

 subroutine snowdp2lev(lbc, ubc)

DESCRIPTION:

   Create snow layers and interfaces given snow depth.
   Note that cps%zi(0) is set in routine iniTimeConst.\end{verbatim}{\sf USES:}
\begin{verbatim}   use shr_kind_mod, only : r8 => shr_kind_r8
   use clmtype
   use clm_varpar  , only : nlevsno

ARGUMENTS:

   implicit none
   integer, intent(in) :: lbc, ubc                    ! column bounds

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES:

   local pointers to implicit in arguments
   integer , pointer :: clandunit(:)  ! landunit index associated with each co
   real(r8), pointer :: snowdp(:)     ! snow height (m)
   logical , pointer :: lakpoi(:)     ! true => landunit is a lake point
   local pointers to implicit out arguments
   integer , pointer :: snl(:)        ! number of snow layers
   real(r8), pointer :: z(:,:)        ! layer depth  (m) over snow only
   real(r8), pointer :: dz(:,:)       ! layer thickness depth (m) over snow on
   real(r8), pointer :: zi(:,:)       ! interface depth (m) over snow only