diff --git a/src/MNH/ini_cpl.f90 b/src/MNH/ini_cpl.f90
index adf7e31b193fb91497fb10a673816b695f0b0cbf..b0c85759783e00eb7c64195581925849c477cd9f 100644
--- a/src/MNH/ini_cpl.f90
+++ b/src/MNH/ini_cpl.f90
@@ -351,7 +351,7 @@ CALL FMLOOK_ll(HLUOUT,HLUOUT,ILUOUT,IRESP)
 DO JCI=1,NCPL_NBR
   WRITE(YCI,'(I2.0)') JCI
   CALL IO_FILE_ADD2LIST(TCPLFILE(JCI)%TZFILE,CCPLFILE(JCI),'UNKNOWN','READ',KLFINPRAR=0,KLFITYPE=2,KLFIVERB=NVERB)
-  CALL IO_FILE_OPEN_ll(TCPLFILE(JCI)%TZFILE)
+  CALL IO_FILE_OPEN_ll(TCPLFILE(JCI)%TZFILE,KRESP=IRESP)
   IF (IRESP /= 0) THEN
     CALL PRINT_MSG(NVERB_FATAL,'IO','INI_CPL','problem when opening coupling file '//TRIM(YCI))
   END IF
diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index 831cd6bea6dec0feef10cc5ba5f4d523b263e5e5..10c9d22759f8391ed8a3ec3d5ca6f4e86a7eed8b 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -1934,7 +1934,7 @@ IF (CSURF=='EXTE' .AND. (CPROGRAM=='MESONH' .OR. CPROGRAM=='DIAG  ')) THEN
   ! ouverture du fichier PGD
   IF  ( LEN_TRIM(CINIFILEPGD) > 0 ) THEN
     CALL IO_FILE_ADD2LIST(TINIFILEPGD,TRIM(CINIFILEPGD),'UNKNOWN','READ',KLFITYPE=2,KLFIVERB=NVERB)
-    CALL IO_FILE_OPEN_ll(TINIFILEPGD,OPARALLELIO=.FALSE.)
+    CALL IO_FILE_OPEN_ll(TINIFILEPGD,OPARALLELIO=.FALSE.,KRESP=IRESP)
     IF (IRESP/=0) THEN
       WRITE(ILUOUT,FMT=*) "INI_MODEL_n ERROR TO OPEN THE FILE CINIFILEPGD=",CINIFILEPGD
       WRITE(ILUOUT,FMT=*) "CHECK YOUR NAMELIST NAM_LUNITn"
@@ -1972,7 +1972,7 @@ END IF
 IF (CSURF=='EXTE' .AND. (CPROGRAM=='SPAWN ')) THEN
   ! ouverture du fichier PGD
   CALL IO_FILE_ADD2LIST(TINIFILEPGD,TRIM(CINIFILEPGD),'UNKNOWN','READ',KLFITYPE=2,KLFIVERB=NVERB)
-  CALL IO_FILE_OPEN_ll(TINIFILEPGD,OPARALLELIO=.FALSE.)
+  CALL IO_FILE_OPEN_ll(TINIFILEPGD,OPARALLELIO=.FALSE.,KRESP=IRESP)
   IF (IRESP/=0) THEN
     WRITE(ILUOUT,FMT=*) "INI_MODEL_n ERROR TO OPEN THE FILE CINIFILEPGD=",CINIFILEPGD
     WRITE(ILUOUT,FMT=*) "CHECK YOUR NAMELIST NAM_LUNIT2_SPA"
diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90
index 7ce7b8a2275ede422612780f2b7f923dc8f98454..f70fe6d0a415c2f3239a5636f37266c8a917e8a8 100644
--- a/src/MNH/ini_segn.f90
+++ b/src/MNH/ini_segn.f90
@@ -425,7 +425,7 @@ IF (CPROGRAM=='MESONH' .OR. CPROGRAM=='SPAWN ') THEN
 END IF
 !
 ! Read the storage type
-  CALL IO_READ_FIELD(TPINIFILE,'STORAGE_TYPE',CSTORAGE_TYPE)
+  CALL IO_READ_FIELD(TPINIFILE,'STORAGE_TYPE',CSTORAGE_TYPE,IRESP)
   IF (IRESP /= 0) THEN
     WRITE(ILUOUT,FMT=9002) 'STORAGE_TYPE',IRESP
 !callabortstop
diff --git a/src/MNH/read_dummy_gr_fieldn.f90 b/src/MNH/read_dummy_gr_fieldn.f90
index b10f715d3b103076fca2839fe527f12bb4aed65e..d17d5d73e09c72d3c9c589e338c11ec3ec721386 100644
--- a/src/MNH/read_dummy_gr_fieldn.f90
+++ b/src/MNH/read_dummy_gr_fieldn.f90
@@ -201,7 +201,7 @@ DO JDUMMY=1,NDUMMY_GR_NBR
   TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 2
   !
-  CALL IO_READ_FIELD(TPINIFILE,TZFIELD,ZWORK(:,:))
+  CALL IO_READ_FIELD(TPINIFILE,TZFIELD,ZWORK(:,:),IRESP)
   !
   IF (IRESP/=0) THEN
     !callabortstop
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index 467b1bdba73d0143596bb0ca7c54b1179bac44a3..9066a915bb7d53c68f22e1bf89b017f923027dad 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -1174,7 +1174,7 @@ END SELECT
 !
 IRESP=0
 IF(HGETCLDFR=='READ') THEN           ! cloud fraction
-    CALL IO_READ_FIELD(TPINIFILE,'CLDFR',PCLDFR)
+  CALL IO_READ_FIELD(TPINIFILE,'CLDFR',PCLDFR,IRESP)
 ENDIF
 IF(HGETCLDFR=='INIT' .OR. IRESP /= 0) THEN
   IF(SIZE(PRT,4) > 3) THEN
diff --git a/src/MNH/read_hgrid.f90 b/src/MNH/read_hgrid.f90
index ca8c0063c9167eb2512d510ffa46d1823ccf775d..6814a9495976229e10df1e1f1e803ea4eccc640a 100644
--- a/src/MNH/read_hgrid.f90
+++ b/src/MNH/read_hgrid.f90
@@ -175,19 +175,19 @@ CALL IO_READ_FIELD(TPFMFILE,'YHAT',XPGDYHAT)
 !
 !*       3.   Read the configuration (MODD_CONF)
 !
-CALL IO_READ_FIELD(TPFMFILE,'L1D',G1D)
+CALL IO_READ_FIELD(TPFMFILE,'L1D',G1D,IRESP)
 IF (IRESP/=0) THEN
   G1D=.FALSE.
   IF( (NPGDIMAX == 1).AND.(NPGDJMAX == 1) ) G1D=.TRUE.
 ENDIF
 !
-CALL IO_READ_FIELD(TPFMFILE,'L2D',G2D)
+CALL IO_READ_FIELD(TPFMFILE,'L2D',G2D,IRESP)
 IF (IRESP/=0) THEN
   G2D=.FALSE.
   IF( (NPGDIMAX /= 1).AND.(NPGDJMAX == 1) ) G2D=.TRUE.
 ENDIF
 !
-CALL IO_READ_FIELD(TPFMFILE,'PACK',GPACK)
+CALL IO_READ_FIELD(TPFMFILE,'PACK',GPACK,IRESP)
 IF (IRESP/=0) GPACK=.TRUE.
 !
 CALL SET_FMPACK_ll(G1D,G2D,GPACK)
diff --git a/src/MNH/read_hgridn.f90 b/src/MNH/read_hgridn.f90
index 99ca4e03442831851d4430f4b270d8c4e494bd6c..9c141e4ce30c7491d9511bf17fea4b605175b978 100644
--- a/src/MNH/read_hgridn.f90
+++ b/src/MNH/read_hgridn.f90
@@ -144,7 +144,7 @@ ELSE
 ENDIF
 CALL IO_READ_FIELD(TPFMFILE,'LAT0',ZLAT0)
 CALL IO_READ_FIELD(TPFMFILE,'LON0',ZLON0)
-CALL IO_READ_FIELD(TPFMFILE,'BETA',ZBETA)
+CALL IO_READ_FIELD(TPFMFILE,'BETA',ZBETA,IRESP)
 IF(IRESP/=0) ZBETA=0.
 IF (.NOT.LCARTESIAN ) THEN
   CALL IO_READ_FIELD(TPFMFILE,'RPK',   ZRPK)
@@ -209,19 +209,19 @@ END IF
 !*       2.1  Read the configuration (MODD_CONF)
 !
 IF (IMI == 1) THEN   
-  CALL IO_READ_FIELD(TPFMFILE,'L1D',L1D)
+  CALL IO_READ_FIELD(TPFMFILE,'L1D',L1D,IRESP)
   IF (IRESP/=0) THEN
     L1D=.FALSE.
     IF( (NIMAX == 1).AND.(NJMAX == 1) ) L1D=.TRUE.
   ENDIF
 !
-  CALL IO_READ_FIELD(TPFMFILE,'L2D',L2D)
+  CALL IO_READ_FIELD(TPFMFILE,'L2D',L2D,IRESP)
   IF (IRESP/=0) THEN
     L2D=.FALSE.
     IF( (NIMAX /= 1).AND.(NJMAX == 1) ) L2D=.TRUE.
   ENDIF
 !
-  CALL IO_READ_FIELD(TPFMFILE,'PACK',LPACK)
+  CALL IO_READ_FIELD(TPFMFILE,'PACK',LPACK,IRESP)
   IF (IRESP/=0) LPACK=.TRUE.
 !  CALL SET_FMPACK_ll(L1D,L2D,LPACK)
 END IF