diff --git a/src/auxval.F90 b/src/auxval.F90 index 64cdf8b34101fa492437363a46eb5c15cb54c1f2..e6e6ec1aa7b9305dd7c4a86ff638b31c093e7f04 100644 --- a/src/auxval.F90 +++ b/src/auxval.F90 @@ -59,7 +59,7 @@ subroutine auxval CALL mpi_barrier(MPI_COMM_WORLD, ierr) IF (my_id .EQ. i_) THEN IF (my_id .EQ. 0) WRITE(*,*) '' - IF (my_id .EQ. 0) WRITE(*,*) '--------- Parallel environement ----------' + IF (my_id .EQ. 0) WRITE(*,*) '--------- Parallel environment ----------' IF (my_id .EQ. 0) WRITE(*,'(A12,I3)') 'n_procs ', num_procs IF (my_id .EQ. 0) WRITE(*,'(A12,I3,A14,I3,A14,I3)') 'num_procs_p = ', num_procs_p, ', num_procs_ky = ', num_procs_ky, ', num_procs_z = ', num_procs_z IF (my_id .EQ. 0) WRITE(*,*) ''