How can events like the Tunguska Event take place and not leave a crater because they disintegrate in the atmosphere but cause massive damage, but some asteroids make it to the ground without causing nearly as much damage?