modification of simulation box
copy from initial_parker.f90