resetWeightsDGVM

INTERFACE:

   subroutine resetWeightsDGVM(lbg, ubg, lbc, ubc, lbp, ubp)

DESCRIPTION:

Reset DGVM weights

USES:

     use clmtype

ARGUMENTS:

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

CALLED FROM:

    subroutine lpjreset2 in this module: as part of the DGVM calculation
    subroutine restart_dgvm in module DGVMRestMod: if the restart file is read
    subroutine inicrd in module inicFileMod: if the initial file is read
    subroutine mkarbinit in module iniTimeVar

REVISION HISTORY:

   Author: Gordon Bonan

LOCAL VARIABLES:

   local pointers to implicit in arguments
    integer , pointer :: ixy(:)            ! gridcell lon index (gridcell leve
    integer , pointer :: jxy(:)            ! gridcell lat index (gridcell leve
    real(r8), pointer :: garea(:)          ! total land area for this gridcell
    integer , pointer :: ltype(:)          ! landunit type
    real(r8), pointer :: larea(:)          ! total land area for this landunit
    logical , pointer :: ifspecial(:)      ! true=>landunit is not vegetated
    integer , pointer :: clandunit(:)      ! index into landunit for each colu
    integer , pointer :: cgridcell(:)      ! index into gridcell for each colu
    real(r8), pointer :: fpcgrid(:)        ! weight of pft relative to vegetat
    real(r8), pointer :: h2ocan_pft(:)     ! canopy water (mm H2O) (pft-level)
   local pointers to implicit out arguments
    real(r8), pointer :: cwtgcell(:)       ! weight (relative to gridcell) for
    real(r8), pointer :: cwtlunit(:)       ! weight (relative to landunit) for
    real(r8), pointer :: carea(:)          ! total land area for this column (
    real(r8), pointer :: h2ocan_col(:)     ! canopy water (mm H2O) (column-lev
    integer , pointer :: pcolumn(:)        ! index into column for each pft
    integer , pointer :: plandunit(:)      ! index into landunit for each pft
    integer , pointer :: pgridcell(:)      ! index into gridcell for each pft
    real(r8), pointer :: pwtcol(:)         ! weight (relative to column) for t
    real(r8), pointer :: pwtlunit(:)       ! weight (relative to landunit) for
    real(r8), pointer :: pwtgcell(:)       ! weight (relative to gridcell) for
    real(r8), pointer :: parea(:)          ! total land area for this pft (km^