Skip to content
Snippets Groups Projects
Commit 6f311edd authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 5/10/2018:mode_thermo.f90, add FLUSH , for better logging in case of PB

parent ef34a317
No related branches found
No related tags found
No related merge requests found
...@@ -33,6 +33,7 @@ ...@@ -33,6 +33,7 @@
!! ------------- !! -------------
!! Original 28/08/94 !! Original 28/08/94
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! 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 !* 0. DECLARATIONS
...@@ -374,6 +375,7 @@ IF ( ANY(ZDT > ZEPS) ) THEN ...@@ -374,6 +375,7 @@ IF ( ANY(ZDT > ZEPS) ) THEN
WRITE(ILUOUT,*) 'MR AT THIS MAXIMUM : ', PMR(IMAXLOC(1),IMAXLOC(2),IMAXLOC(3)) 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,*) 'T AT THIS MAXIMUM : ', ZT(IMAXLOC(1),IMAXLOC(2),IMAXLOC(3))
WRITE(ILUOUT,*) 'JOB ABORTED ' WRITE(ILUOUT,*) 'JOB ABORTED '
CALL FLUSH(ILUOUT)
CALL ABORT CALL ABORT
STOP STOP
END IF END IF
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment