MPI implementation on sh.F90