Simulations of dense atomic hydrogen in the Wigner crystal phase