adapt grain_harvest procedure