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 noneARGUMENTS:
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 foundREVISION HISTORY:
Created by Erik Kluzek