diff --git a/src/control.F90 b/src/control.F90 index a3f251e5597c379c4838072ce0e0f6516d81215d..a58434165fe1027f365557b216a8e53285902736 100644 --- a/src/control.F90 +++ b/src/control.F90 @@ -9,9 +9,8 @@ SUBROUTINE control !________________________________________________________________________________ ! 1. Prologue ! 1.1 Initialize the parallel environment - IF (my_id .EQ. 0) WRITE(*,*) 'Initialize MPI...' CALL ppinit - IF (my_id .EQ. 0) WRITE(*,'(a/)') '...MPI initialized' + IF (my_id .EQ. 0) WRITE(*,'(a/)') 'MPI initialized' CALL daytim('Start at ')