weights_tooDifferent

INTERFACE:

   logical function weights_tooDifferent( begp, endp, pptr, wtgcell, adiff, maxdiff )

DESCRIPTION:

Determine if the weights read in are too different and should flag an error

USES:

     use clmtype     , only : pft_type
     implicit none

ARGUMENTS:

     integer, intent(IN)     :: begp, endp         ! per-proc beginning and ending pft indices
     type(pft_type), pointer :: pptr               ! pointer to pft derived subtype
     real(r8), intent(IN)    :: wtgcell(begp:endp) ! grid cell weights for each PFT
     real(r8), intent(IN)    :: adiff              ! tolerance of acceptible difference
     real(r8), intent(OUT)   :: maxdiff            ! maximum difference found

REVISION HISTORY:

   Created by Erik Kluzek