diff --git a/src/grid/discretization_grid.f90 b/src/grid/discretization_grid.f90 index 1758fd855..e16001feb 100644 --- a/src/grid/discretization_grid.f90 +++ b/src/grid/discretization_grid.f90 @@ -96,9 +96,9 @@ subroutine discretization_grid_init(restart) call MPI_Bcast(origin,3,MPI_DOUBLE,0,MPI_COMM_WORLD, ierr) if (ierr /= 0) error stop 'MPI error' - print'(/,a,3(i12 ))', ' cells a b c: ', grid - print'(a,3(es12.5))', ' size x y z: ', geomSize - print'(a,3(es12.5))', ' origin x y z: ', origin + print'(/,a,3(i12 ))', ' cells a b c: ', grid + print'(a,3(es12.5))', ' size x y z: ', geomSize + print'(a,3(es12.5))', ' origin x y z: ', origin if(worldsize>grid(3)) call IO_error(894, ext_msg='number of processes exceeds grid(3)')