clm_driverInit

INTERFACE:

   subroutine clm_driverInit(lbc, ubc, lbp, ubp, &
              num_nolakec, filter_nolakec, num_lakec, filter_lakec)

DESCRIPTION:

Initialization of clm driver variables needed from previous timestep

USES:

     use shr_kind_mod , only : r8 => shr_kind_r8
     use clmtype
     use clm_varpar   , only : nlevsno
     use subgridAveMod, only : p2c
     use clm_varcon, only    : h2osno_max, rair, cpair, grav, istice_mec, lapse_glcmec
     use clm_atmlnd, only    : clm_a2l
     use domainMod, only     : ldomain
     use clmtype
     use QsatMod,    only    : Qsat

ARGUMENTS:

     implicit none
     integer, intent(in) :: lbc, ubc                    ! column-index bounds
     integer, intent(in) :: lbp, ubp                    ! pft-index bounds
     integer, intent(in) :: num_nolakec                 ! number of column non-lake points in column filter
     integer, intent(in) :: filter_nolakec(ubc-lbc+1)   ! column filter for non-lake points
     integer, intent(in) :: num_lakec                   ! number of column non-lake points in column filter
     integer, intent(in) :: filter_lakec(ubc-lbc+1)     ! column filter for non-lake points

CALLED FROM:

   subroutine driver1

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES:

   local pointers to original implicit in variables
     real(r8), pointer :: pwtgcell(:)           ! weight of pft wrt corresponding gridcell
     integer , pointer :: snl(:)                ! number of snow layers
     real(r8), pointer :: h2osno(:)             ! snow water (mm H2O)
     integer , pointer :: frac_veg_nosno_alb(:) ! fraction of vegetation not covered by snow (0 OR 1) [-]
     integer , pointer :: frac_veg_nosno(:)     ! fraction of vegetation not covered by snow (0 OR 1 now) [-] (pft-level)
     real(r8), pointer :: h2osoi_ice(:,:)       ! ice lens (kg/m2)
     real(r8), pointer :: h2osoi_liq(:,:)       ! liquid water (kg/m2)
   local pointers to original implicit out variables
     logical , pointer :: do_capsnow(:)         ! true => do snow capping
     real(r8), pointer :: h2osno_old(:)         ! snow water (mm H2O) at previous time step
     real(r8), pointer :: frac_iceold(:,:)      ! fraction of ice relative to the tot water
   !OTHER LOCAL VARIABLES: