weights_exactly_the_same

INTERFACE:

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

DESCRIPTION:

Determine if the weights read in are exactly the same as those from surface dataset

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