Philippe 21/11/2019: bugfix: close call could be done on a non-opened file

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