diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_read.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
index d0d6ad4eec6cb7e55a40fa0a6dd754cc24385f03..7ce7335251f4dbb99a1175f21d230bda60382d88 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_read.f90
@@ -559,7 +559,6 @@ USE MODE_GA
 USE MODI_GET_HALO
 #endif
 USE MODE_IO_TOOLS,         ONLY: IO_Level2filenumber_get
-USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
 USE MODE_MNH_TIMING,       ONLY: SECOND_MNH2
 USE MODE_SCATTER_ll
 !
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index 81f7ae0291830d7117dbd1d0c5fa73c2d8c1ad0d..35837824598519ee45de0286535eea339aefc291 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
@@ -546,8 +546,6 @@ end subroutine IO_Ndimlist_reduce
   SUBROUTINE IO_Field_write_byfield_X0(TPFILE,TPFIELD,PFIELD,KRESP)
     USE MODD_IO,               ONLY: GSMONOPROC, ISP
     !
-    USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
-    !
     IMPLICIT NONE
     !
     !*      0.1   Declarations of arguments
@@ -647,7 +645,6 @@ end subroutine IO_Ndimlist_reduce
     !
     USE MODE_ALLOCBUFFER_ll
     USE MODE_GATHER_ll
-    USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
     !
     IMPLICIT NONE
     !
@@ -1040,7 +1037,6 @@ end subroutine IO_Ndimlist_reduce
     USE MODE_GA
 #endif
     USE MODE_GATHER_ll
-    USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
     USE MODE_IO_TOOLS,         ONLY: IO_Level2filenumber_get
     USE MODE_MNH_TIMING,       ONLY: SECOND_MNH2
     !
@@ -2810,7 +2806,6 @@ end subroutine IO_Ndimlist_reduce
   SUBROUTINE IO_Field_write_byfield_L0(TPFILE,TPFIELD,OFIELD,KRESP)
     USE MODD_IO,               ONLY: GSMONOPROC, ISP
     !
-    USE MODE_IO_MANAGE_STRUCT, ONLY: IO_File_find_byname
     !*      0.    DECLARATIONS
     !             ------------
     !
diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index 86dd9354044480edd86bc6c615b57f6cb82d7e34..041a534471f7f4f96535dcec1d9adfaad7e9eff2 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -131,7 +131,6 @@ USE MODD_PARAM_RAD_n,       only: NRAD_COLNBR
 USE MODD_RADIATIONS_N,      ONLY: NCLEARCOL_TM1, NDLON, NFLEV, NSTATM,                                  &
                                   XAER, XAZIM, XCCO2, XDIR_ALB, XDIRFLASWD, XDIRSRFSWD, XDTHRAD, XEMIS, &
                                   XFLALWD, XSCA_ALB, XSCAFLASWD, XSTATM, XTSRAD, XZENITH
-USE MODD_RAD_TRANSF,        ONLY: JPGEOST
 USE MODD_REF_n,             ONLY: XRHODREF
 USE MODD_SALT,              ONLY: LSALT
 USE MODD_TIME_n,            ONLY: TDTCUR
@@ -182,8 +181,6 @@ REAL,    DIMENSION(:,:,:), ALLOCATABLE        :: ZWORK31,ZTEMP
 !
 ! variables needed for the transfer radiatif diagnostic code
 INTEGER :: ITOTGEO
-INTEGER, DIMENSION (JPGEOST) :: INDGEO
-CHARACTER(LEN=8), DIMENSION (JPGEOST) :: YNAM_SAT
 REAL, DIMENSION(:,:), ALLOCATABLE :: ZIRBT, ZWVBT
 REAL  :: ZUNDEF ! undefined value in SURFEX
 !