From a1dc9a9520a06446a61e2ed4836904e3f8f6bbb3 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 20 Apr 2022 16:36:43 +0200
Subject: [PATCH] Philippe 20/04/2022: stations: transform modi->mode for
write_station_n
---
src/MNH/modeln.f90 | 4 ++--
src/MNH/write_stationn.f90 | 26 +++++++++++---------------
2 files changed, 13 insertions(+), 17 deletions(-)
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 6ba8d8398..61c50c483 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 754f9d41a..8ff4c2fc2 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
--
GitLab