weights_within_roundoff_different

INTERFACE:

   logical function weights_within_roundoff_different( pptr, wtgcell, wtlunit, wtcol )

DESCRIPTION:

Determine if the weights are within roundoff different from each other

USES:

     use clmtype     , only : pft_type

ARGUMENTS:

     implicit none
     type(pft_type), pointer :: pptr       ! pointer to pft derived subtype
     real(r8), intent(IN)    :: wtgcell(:) ! grid cell weights for each PFT
     real(r8), intent(IN)    :: wtlunit(:) ! land-unit weights for each PFT
     real(r8), intent(IN)    :: wtcol(:)   ! column weights for each PFT

REVISION HISTORY:

   Created by Erik Kluzek