diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 6ba8d83984325d8138102903d0428b07887e3a3d..61c50c48391e1f2b9eddf6c51207e4316050f764 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2022 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.
@@ -383,6 +383,7 @@ USE MODE_ONE_WAY_n
 use mode_write_les_n,               only: Write_les_n
 use mode_write_lfifmn_fordiachro_n, only: WRITE_LFIFMN_FORDIACHRO_n
 USE MODE_WRITE_PROFILER_n,          ONLY: WRITE_PROFILER_n
+USE MODE_WRITE_STATION_n,           ONLY: WRITE_STATION_n
 !
 USE MODI_ADDFLUCTUATIONS
 USE MODI_ADVECTION_METSV
@@ -450,7 +451,6 @@ USE MODI_WRITE_DESFM_n
 USE MODI_WRITE_DIAG_SURF_ATM_N
 USE MODI_WRITE_LFIFM_n
 USE MODI_WRITE_SERIES_n
-USE MODI_WRITE_STATION_n
 USE MODI_WRITE_SURF_ATM_N
 !
 IMPLICIT NONE
diff --git a/src/MNH/write_stationn.f90 b/src/MNH/write_stationn.f90
index 754f9d41aab173a10bb17a23df920d1ddc91392a..8ff4c2fc24bc0fdcb81e9654fb023027168ada25 100644
--- a/src/MNH/write_stationn.f90
+++ b/src/MNH/write_stationn.f90
@@ -4,22 +4,16 @@
 !MNH_LIC for details. version 1.
 !-----------------------------------------------------------------
 !      ###########################
-MODULE MODI_WRITE_STATION_n
+MODULE MODE_WRITE_STATION_n
 !      ###########################
-!
-INTERFACE
-!
-      SUBROUTINE WRITE_STATION_n(TPDIAFILE)
-!
-USE MODD_IO, ONLY: TFILEDATA
-!
-TYPE(TFILEDATA),  INTENT(IN) :: TPDIAFILE ! diachronic file to write
-!
-END SUBROUTINE WRITE_STATION_n
-!
-END INTERFACE
-!
-END MODULE MODI_WRITE_STATION_n
+
+implicit none
+
+private
+
+public :: WRITE_STATION_n
+
+contains
 !
 !     ##########################################
       SUBROUTINE WRITE_STATION_n(TPDIAFILE)
@@ -931,3 +925,5 @@ DEALLOCATE (IGRID   )
 END SUBROUTINE STATION_DIACHRO_n
 !
 END SUBROUTINE WRITE_STATION_n
+
+END MODULE MODE_WRITE_STATION_n