diff --git a/src/LIB/SURCOUCHE/src/mode_io_file.f90 b/src/LIB/SURCOUCHE/src/mode_io_file.f90
index 3841a5cebcc1ee34c2b108feba49f11b461d2095..3196588b8020133d744f31b4fcbc0e3dab3f4e6c 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_file.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_file.f90
@@ -41,6 +41,7 @@
 !  P. Wautelet 19/08/2022: bugfix: IO_File_check_format_exist: broadcast cformat if changed
 !  P. Wautelet 13/01/2023: IO_File_close: add optional dummy argument TPDTMODELN to force written model time
 !  P. Wautelet 16/09/2024: remove unnecessary .des files
+!  P. Wautelet 24/09/2024: remove IO_Transfer_list_addto (file_for_xtransfer)
 !-----------------------------------------------------------------
 module mode_io_file
 
@@ -584,8 +585,6 @@ SELECT CASE(TPFILE%CTYPE)
 #endif
     end if
     !
-    CALL IO_Transfer_list_addto(TPFILE)
-    !
     ! Close all Zsplit subfiles
     SUBFILES: DO JI = 1,TPFILE%NSUBFILES_IOZ
       TZFILE_IOZ => TPFILE%TFILES_IOZ(JI)%TFILE
@@ -633,54 +632,6 @@ IF (PRESENT(KRESP)) KRESP=IRESP
 END SUBROUTINE IO_File_close
 
 
-subroutine IO_Transfer_list_addto(TPFILE)
-
-USE MODD_CONF,  ONLY: CPROGRAM
-
-USE MODI_SYSTEM_MNH
-
-TYPE(TFILEDATA), INTENT(INOUT) :: TPFILE ! File structure
-
-CHARACTER(len=:),allocatable :: YFILEM  ! name of the file
-CHARACTER(len=:),allocatable :: YCPIO
-CHARACTER(len=:),allocatable :: YTRANS
-CHARACTER(LEN=100)           :: YCOMMAND
-INTEGER, SAVE                :: ICPT = 0
-
-YFILEM  = TPFILE%CNAME
-
-CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Transfer_list_addto','called for '//TRIM(YFILEM))
-
-IF (TPFILE%LMASTER .AND. CPROGRAM/='LFICDF') THEN
-  !! Write in pipe
-#if defined(MNH_SX5)
-  YTRANS='nectransfer.x'
-#else
-  YTRANS='xtransfer.x'
-#endif
-
-  SELECT CASE (TPFILE%NLFITYPE)
-    CASE(:-1,3:)
-      CALL PRINT_MSG(NVERB_ERROR,'IO','IO_Transfer_list_addto',TRIM(YFILEM)//': incorrect NLFITYPE')
-    CASE(0)
-      YCPIO='NIL'
-    CASE(1)
-      YCPIO='MESONH'
-    CASE(2)
-      CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Transfer_list_addto','file '//TRIM(YFILEM)//' not transferred')
-  END SELECT
-
-  if (TPFILE%NLFITYPE==0 .or. TPFILE%NLFITYPE==1) then
-    ICPT=ICPT+1
-    WRITE (YCOMMAND,'(A," ",A," ",A," >> OUTPUT_TRANSFER",I3.3,"  2>&1 &")') YTRANS,YCPIO,TRIM(YFILEM),ICPT
-    CALL PRINT_MSG(NVERB_DEBUG,'IO','IO_Transfer_list_addto','YCOMMAND='//TRIM(YCOMMAND))
-    CALL SYSTEM_MNH(YCOMMAND)
-  end if
-END IF
-
-end subroutine IO_Transfer_list_addto
-
-
 subroutine IO_File_check_format_exist( tpfile )
 use modd_mpif
 
diff --git a/src/LIB/SURCOUCHE/src/system_mnh.f90 b/src/LIB/SURCOUCHE/src/system_mnh.f90
deleted file mode 100644
index b43981265170ba8f28768d5d1664868f6cba45b6..0000000000000000000000000000000000000000
--- a/src/LIB/SURCOUCHE/src/system_mnh.f90
+++ /dev/null
@@ -1,42 +0,0 @@
-!MNH_LIC Copyright 1994-2019 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-!-----------------------------------------------------------------
-SUBROUTINE SYSTEM_MNH(HCOMMAND)
-!!
-!!    PURPOSE
-!!    -------
-!!    This subroutine writes the 1 command line HCOMMAND
-!!    in the file pipe_name and flushes the buffer.
-!!    Modifications:
-!!      Philippe Wautelet: 10/01/2019: use NEWUNIT argument of OPEN
-!!
-!!
-!*       0.    DECLARATIONS
-!              ------------
-!
-  IMPLICIT NONE
-!
-!*       0.1   Declaration of arguments
-!              ------------------------
-!
-  CHARACTER(LEN=*)    :: HCOMMAND
-!
-!*       0.2   Declaration of local variables
-!              ------------------------------
-#ifdef MNH_SX5
-  CHARACTER(LEN=*),PARAMETER :: CFILE="file_for_nectransfer"
-#else
-  CHARACTER(LEN=*),PARAMETER :: CFILE="file_for_xtransfer"
-#endif
-  INTEGER                    :: IUNIT
-!
-!
-!
-  IUNIT = -1
-  OPEN(NEWUNIT=IUNIT,FILE=CFILE,ACCESS="sequential",FORM="formatted",POSITION="append")
-  WRITE(IUNIT,*) HCOMMAND
-  CLOSE(IUNIT)
-
-END SUBROUTINE SYSTEM_MNH