diff --git a/src/MNH/mode_thermo.f90 b/src/MNH/mode_thermo.f90
index afe39bda9ef4bc7510d6854a35b73f24f5ad432e..66212f2bfd88c038089a014984d4339e39fd3c9e 100644
--- a/src/MNH/mode_thermo.f90
+++ b/src/MNH/mode_thermo.f90
@@ -33,6 +33,7 @@
 !!    -------------
 !!      Original    28/08/94 
 !!  Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+!!  J.Escobar : 5/10/2018 : add FLUSH , for better logging in case of PB
 !--------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -374,6 +375,7 @@ IF ( ANY(ZDT > ZEPS) ) THEN
   WRITE(ILUOUT,*) 'MR AT THIS MAXIMUM : ', PMR(IMAXLOC(1),IMAXLOC(2),IMAXLOC(3))
   WRITE(ILUOUT,*) 'T AT THIS MAXIMUM : ', ZT(IMAXLOC(1),IMAXLOC(2),IMAXLOC(3))
   WRITE(ILUOUT,*) 'JOB ABORTED '
+  CALL FLUSH(ILUOUT)
   CALL ABORT
   STOP 
 END IF