snowdp2lev (Source File: mkarbinitMod.F90)

INTERFACE:

   subroutine snowdp2lev(lbc, ubc)

DESCRIPTION:

Create snow layers and interfaces given snow depth. Note that cps

USES:

   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 column
   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 only
   real(r8), pointer :: zi(:,:)       ! interface depth (m) over snow only

LOCAL VARIABLES: