diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90
index 95d974d336a34aec1d2e8f9b00279e7cdccb2d4d..956f95e6a581e566935e3c32d3f2423693d0ac1a 100644
--- a/src/LIB/SURCOUCHE/src/fmread_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmread_ll.f90
@@ -1274,11 +1274,10 @@ RETURN
 
 END SUBROUTINE FMREADN0_ll
 
-SUBROUTINE IO_READ_FIELD_BYNAME_N0(TPFILE,HNAME,HFIPRI,KFIELD,KRESP)
+SUBROUTINE IO_READ_FIELD_BYNAME_N0(TPFILE,HNAME,KFIELD,KRESP)
 !
 TYPE(TFILEDATA),  INTENT(IN)    :: TPFILE
 CHARACTER(LEN=*), INTENT(IN)    :: HNAME    ! name of the field to write
-CHARACTER(LEN=*), INTENT(IN)    :: HFIPRI   ! output file for error messages
 INTEGER,          INTENT(INOUT) :: KFIELD   ! array containing the data field
 INTEGER,OPTIONAL, INTENT(OUT)   :: KRESP    ! return-code
 !
@@ -1289,7 +1288,7 @@ CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_READ_FIELD_BYNAME_N0',TRIM(TPFILE%CNAME)//':
 !
 CALL FIND_FIELD_ID_FROM_MNHNAME(HNAME,ID,IRESP)
 !
-IF(IRESP==0) CALL IO_READ_FIELD(TPFILE,TFIELDLIST(ID),HFIPRI,KFIELD,IRESP)
+IF(IRESP==0) CALL IO_READ_FIELD(TPFILE,TFIELDLIST(ID),KFIELD,IRESP)
 !
 IF (PRESENT(KRESP)) KRESP = IRESP
 !