lpjreset2

INTERFACE:

   subroutine lpjreset2(lbg, ubg, lbl, ubl, lbc, ubc, lbp, ubp)

DESCRIPTION:

Resets variables related to lpj

USES:

     use clmtype
     use clm_varcon   , only : cpliq, cpice, istsoil, spval
     use subgridAveMod, only : c2g

ARGUMENTS:

     implicit none
     integer, intent(in) :: lbg, ubg       ! gridcell bounds
     integer, intent(in) :: lbl, ubl       ! landunit bounds
     integer, intent(in) :: lbc, ubc       ! column bounds
     integer, intent(in) :: lbp, ubp       ! pft bounds

CALLED FROM:

REVISION HISTORY:

   Author: Sam Levis

LOCAL VARIABLES:

   local pointers to implicit in arguments
    integer , pointer :: clandunit(:)       ! landunit of corresponding column
    integer , pointer :: ltype(:)           ! landunit type (landunit level)
    logical , pointer :: ifspecial(:)       ! true=>landunit is not vegetated
    integer , pointer :: snl(:)             ! number of snow layers
    real(r8), pointer :: dz(:,:)            ! layer thickness (m)  (-nlevsno+1
    real(r8), pointer :: csol(:,:)          ! heat capacity, soil solids (J/m*
    real(r8), pointer :: watsat(:,:)        ! volumetric soil water at saturat
    real(r8), pointer :: h2ocan(:)          ! canopy water (mm H2O) (column-le
    real(r8), pointer :: h2osno(:)          ! snow water (mm H2O)
    real(r8), pointer :: h2osoi_liq(:,:)    ! liquid water (kg/m2) (new) (-nle
    real(r8), pointer :: h2osoi_ice(:,:)    ! ice lens (kg/m2) (new) (-nlevsno
    real(r8), pointer :: t_soisno(:,:)      ! soil temperature (Kelvin)  (-nle
    real(r8), pointer :: begwater_gcell(:)  ! initial gridcell water balance
    real(r8), pointer :: endwater_gcell(:)  ! final   gridcell water balance
    real(r8), pointer :: begenergy_gcell(:) ! initial gridcell energy balance
    real(r8), pointer :: endenergy_gcell(:) ! final   gridcell energy balance