From e47bc9a5657ac3dbf5bbbd562a54d32bdf4d5134 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Mon, 16 Jan 2017 11:56:30 +0100
Subject: [PATCH] 16/01/2017 Juan:abor1_sfx.F90, For MNH , Pb with CLOSE_FILE
// if not all proc abort
---
src/SURFEX/abor1_sfx.F90 | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/src/SURFEX/abor1_sfx.F90 b/src/SURFEX/abor1_sfx.F90
index 555973014..ef01151ea 100644
--- a/src/SURFEX/abor1_sfx.F90
+++ b/src/SURFEX/abor1_sfx.F90
@@ -32,6 +32,7 @@
!! MODIFICATIONS
!! -------------
!! Original 06/2008
+!! 16/01/2017 J.Escobar : For MNH , Pb with CLOSE_FILE // if not all proc abort
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -94,7 +95,11 @@ WRITE(ILUOUT,*)YTEXT
WRITE(ILUOUT,*) '- -'
WRITE(ILUOUT,*) '---------------------------------------------------------------------------'
WRITE(ILUOUT,*) '---------------------------------------------------------------------------'
+#ifndef SFX_MNH
CALL CLOSE_FILE(YPROGRAM,ILUOUT)
+#else
+ CLOSE(UNIT=ILUOUT)
+#endif
!
#ifdef SFX_ARO
call abor1('abort by abor1_sfx')
--
GitLab