implement 2D parallel one direction marching REP from global.F