diff --git a/src/OCE/LBC/mppini.F90 b/src/OCE/LBC/mppini.F90
index 22bc6beb51123c49b730b0b52e0eb8fab42cc6e0..e5cd21c354c4e766e2e79045f80c25ffeda116bb 100644
--- a/src/OCE/LBC/mppini.F90
+++ b/src/OCE/LBC/mppini.F90
@@ -855,6 +855,7 @@ CONTAINS
          IF(lwp) THEN
             WRITE(numout,*)
             WRITE(numout,*)  '  -----------------------------------------------------------'
+            CALL FLUSH(numout)
          ENDIF
          CALL mppsync
          CALL mppstop( ld_abort = .TRUE. )