gatherWeightsDGVM

INTERFACE:

   subroutine gatherWeightsDGVM()

DESCRIPTION:

Gather DGVM weights to master process. Should be called after all invocations of resetWeightsDGVM() are complete to update weights on master process if SPMD is defined.

USES:

     use clmtype
     use decompMod      , only : get_proc_bounds, get_proc_global
 #ifdef SPMD
     use spmdGathScatMod, only : gather_data_to_master, masterproc
 #endif
     use spmdMod        , only : masterproc

ARGUMENTS:

     implicit none

CALLED FROM:

    subroutine driver in module driver: after lpjreset2 is called for all clum
    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 inout arguments
    real(r8), pointer :: cwtgcell(:)       ! weight (relative to gridcell) for
    real(r8), pointer :: cwtlunit(:)       ! weight (relative to landunit) for
    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