diff --git a/src/MNH/mnhopen_aux_io_surf.f90 b/src/MNH/mnhopen_aux_io_surf.f90
index a88cfce9270dfb173174c5dd34b5d84c71bd1b46..778187f8f59dbfb289ebccbcf73352ab980402c4 100644
--- a/src/MNH/mnhopen_aux_io_surf.f90
+++ b/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