Philippe 01/12/2017: bug correction: IRESP was not initialised in MNHOPEN_AUX_IO_SURF

src/MNH/mnhopen_aux_io_surf.f90

@@ -105,6 +105,8 @@ INTEGER           :: IJPHEXT
 !
 !*       1.    initialization of output listing name
 !
+IRESP = 0
+!
 SELECT CASE(CPROGRAM)
   CASE('MESONH','SPAWN ')
     TOUT => TLUOUT
@@ -123,7 +125,7 @@ END IF
 !
 IF (HFILE/=COUTFMFILE .AND. HFILE/=CPGDFILE) THEN
   CALL IO_FILE_ADD2LIST(TPINFILE,TRIM(HFILE),'UNKNOWN','READ',KLFITYPE=2,KLFIVERB=5,OOLD=.TRUE.)
-  CALL IO_FILE_OPEN_ll(TPINFILE,OPARALLELIO=.FALSE.)
+  CALL IO_FILE_OPEN_ll(TPINFILE,KRESP=IRESP,OPARALLELIO=.FALSE.)
   !
   IF (IRESP .NE. 0) THEN
     PRINT*," /!\  MNHOPEN_AUX_IO_SURF :: FATAL PROBLEM OPENING INPUT/READ FILES =", HFILE