From 6f311edd491ced323f96400b621dcf4635d99f66 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Tue, 18 Sep 2018 15:21:55 +0200
Subject: [PATCH] Juan 5/10/2018:mode_thermo.f90, add FLUSH , for better
 logging in case of PB

---
 src/MNH/mode_thermo.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/MNH/mode_thermo.f90 b/src/MNH/mode_thermo.f90
index afe39bda9..66212f2bf 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
-- 
GitLab