lpjreset1

INTERFACE:

   subroutine lpjreset1(lbg, ubg, lbc, ubc, lbp, ubp, &
                        num_nolakep, filter_nolakep, &
                        caldayp1, eccen, obliqr, lambm0, mvelpp)

DESCRIPTION:

Resets variables related to lpj!

USES:

     use clmtype
     use SurfaceAlbedoMod   , only : SurfaceAlbedo
     use DGVMEcosystemDynMod, only : DGVMEcosystemDyn

ARGUMENTS:

     implicit none
     integer , intent(in) :: lbg, ubg       ! gridcell bounds
     integer , intent(in) :: lbc, ubc       ! column bounds
     integer , intent(in) :: lbp, ubp       ! pft bounds
     integer , intent(in) :: num_nolakep    ! number of non-lake pfts in filte
     integer , intent(in) :: filter_nolakep(ubp-lbp+1) ! pft filter for non-la
     real(r8), intent(in) :: caldayp1 !calendar day at Greenwich (1.00, ..., 3
     real(r8), intent(in) :: eccen    !Earth's orbital eccentricity
     real(r8), intent(in) :: obliqr   !Earth's obliquity in radians
     real(r8), intent(in) :: lambm0   !Mean longtude of perihelion at the vern
     real(r8), intent(in) :: mvelpp   !Earth's moving vernal equinox long. of

CALLED FROM:

   subroutine driver() in driver.F90

REVISION HISTORY:

   Author: Sam Levis