From 27657d002e6140858df9948c09a37a8396a7b27b Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 21 Nov 2019 10:21:56 +0100
Subject: [PATCH] Philippe 21/11/2019: bugfix: close call could be done on a
non-opened file
---
src/LIB/SURCOUCHE/src/mode_mnh_world.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 b/src/LIB/SURCOUCHE/src/mode_mnh_world.f90
index 84e99353e..a03ef1c48 100644
--- a/src/LIB/SURCOUCHE/src/mode_mnh_world.f90
+++ b/src/LIB/SURCOUCHE/src/mode_mnh_world.f90
@@ -13,6 +13,7 @@
! P. Wautelet 10/01/2019: use NEWUNIT argument of OPEN
! P. Wautelet 10/07/2019: add identification of version 2.7 of OpenACC + print properties of ACC_DEVICE_HOST
! P. Wautelet 10/10/2019: remove ACC_DEVICE_RADEON and ACC_DEVICE_XEONPHI devices
+! P. Wautelet 21/11/2019: bugfix: close call could be done on a non-opened file
!-----------------------------------------------------------------
MODULE MODE_MNH_WORLD
IMPLICIT NONE
@@ -115,8 +116,8 @@ CONTAINS
IF (IERR.EQ.0) THEN
READ(unit=ilu,NML=NAM_CONF_MNH_WORLD)
WRITE(*,NAM_CONF_MNH_WORLD)
+ CLOSE(unit=ILU)
ENDIF
- CLOSE(unit=ILU)
ENDIF
iroot = 0
! Brodcast mapping
--
GitLab