Create regrid.station.R

New script for regrid station. Not tested