next up previous contents
Next: Fortran: Module Interface CanopyFluxesMod Up: Fortran: Module Interface BiogeophysRestMod Previous: weights_within_roundoff_different   Contents

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



Erik Kluzek 2011-06-15