Create prep.grid.R

prepare the grid!