diff --git a/src/LIB/SURCOUCHE/src/modd_io.f90 b/src/LIB/SURCOUCHE/src/modd_io.f90
index e9f052e3d53b85e772c4f7b81f78f012d2edae89..fddb02428922bfa46283adb41d8a401ad663be17 100644
--- a/src/LIB/SURCOUCHE/src/modd_io.f90
+++ b/src/LIB/SURCOUCHE/src/modd_io.f90
@@ -86,6 +86,7 @@ TYPE TFILEDATA
   TYPE(TFILE_ELT),DIMENSION(:),ALLOCATABLE :: TFILES_IOZ !Corresponding Z-splitted files
   !
   ! Fields for LFI files
+  INTEGER(KIND=LFI_INT) :: NLFININAR = 0  !Number of articles of the LFI file (only accurate if file opened in read mode)
   INTEGER(KIND=LFI_INT) :: NLFINPRAR = 0  !Number of predicted articles of the LFI file (non crucial)
   INTEGER               :: NLFITYPE  = -1 !Type of the file (used to generate list of files to transfers)
   INTEGER               :: NLFIVERB  = 1  !LFI verbosity level
diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90
index 0a2e51729ef8f3402b472ed756b8a62618956c24..d381a83280c022a7e4f17bd861ca67eec660fede 100644
--- a/src/LIB/SURCOUCHE/src/mode_fm.f90
+++ b/src/LIB/SURCOUCHE/src/mode_fm.f90
@@ -252,7 +252,7 @@ INTEGER :: IERR
 !JUAN
 INTEGER(KIND=LFI_INT) :: IRESOU,INUMBR8
 INTEGER(KIND=LFI_INT) :: IMELEV,INPRAR
-INTEGER(KIND=LFI_INT) :: ININAR ! Number of articles present in LFI file (unused here)
+INTEGER(KIND=LFI_INT) :: ININAR ! Number of articles present in LFI file
 LOGICAL               :: GNAMFI8,GFATER8,GSTATS8
 INTEGER               :: INB_PROCIO
 !JUAN
@@ -370,7 +370,7 @@ IF (TPFILE%LMASTER) THEN
           IMELEV,            &
           INPRAR,            &
           ININAR)
-     
+     TPFILE%NLFININAR = ININAR
   IF (IRESOU /= 0 ) THEN
         IRESP = IRESOU
      ENDIF
diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index 6e1695126c2f41ecf4e146a4b88274af48ba3069..e6a938507da6fce4e9c44826343a57d211d5de7c 100644
--- a/src/LIB/SURCOUCHE/src/mode_io.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io.f90
@@ -708,7 +708,7 @@ CONTAINS
                         IMELEV,            &
                         INPRAR,            &
                         ININAR8)
-                   !KNINAR = ININAR8
+                   TZSPLITFILE%NLFININAR = ININAR8
                 END IF
              ENDIF
              !