SortBy[Flatten[ImagePartition[,80]],ImageMeasurements[#,"TotalIntensity"]&]