From 6aeabedbfe2f1016c3f104905456ec2e7bf82f1c Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 5 Nov 2020 14:19:50 +0100
Subject: [PATCH] Philippe 05/11/2020: minor: remove unused use
---
src/MNH/ch_convect_linox.f90 | 10 ++--------
src/MNH/ini_elec.f90 | 10 ++--------
src/MNH/lima_meyers_nucleation.f90 | 1 -
src/MNH/one_wayn.f90 | 3 ---
src/MNH/prep_ideal_case.f90 | 7 +++----
src/MNH/series_cloud_elec.f90 | 4 ++--
6 files changed, 9 insertions(+), 26 deletions(-)
diff --git a/src/MNH/ch_convect_linox.f90 b/src/MNH/ch_convect_linox.f90
index 2642f84c3..aae2b7345 100644
--- a/src/MNH/ch_convect_linox.f90
+++ b/src/MNH/ch_convect_linox.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2003-2020 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 chimie 2006/07/12 18:36:21
-!-----------------------------------------------------------------
! ############################
MODULE MODI_CH_CONVECT_LINOX
! ############################
@@ -115,7 +110,6 @@ END MODULE MODI_CH_CONVECT_LINOX
USE MODD_CST
USE MODD_PARAMETERS
USE MODD_CONVPAREXT
-USE MODD_NSV, ONLY : NSV_CHEMBEG, NSV_CHEMEND
!
!
USE MODE_ll
diff --git a/src/MNH/ini_elec.f90 b/src/MNH/ini_elec.f90
index c0b51e5dc..232c84e46 100644
--- a/src/MNH/ini_elec.f90
+++ b/src/MNH/ini_elec.f90
@@ -1,13 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2002-2020 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 init 2006/05/18 13:07:25
-!-----------------------------------------------------------------
! ################################################################
SUBROUTINE INI_ELEC(KMI,HINIFILE,HLUOUT,PTSTEP,PDZMIN,KSPLITR, &
PDXX,PDYY,PDZZ,PDZX,PDZY )
@@ -55,7 +50,6 @@ USE MODE_FM
USE MODE_FMREAD
!
USE MODD_LUNIT_n
-USE MODD_NSV, ONLY : NSV,NSV_ELEC,NSV_ELECBEG,NSV_ELECEND
USE MODD_PARAMETERS
USE MODD_CST
USE MODD_CONF
diff --git a/src/MNH/lima_meyers_nucleation.f90 b/src/MNH/lima_meyers_nucleation.f90
index 74638faef..cba403b22 100644
--- a/src/MNH/lima_meyers_nucleation.f90
+++ b/src/MNH/lima_meyers_nucleation.f90
@@ -81,7 +81,6 @@ USE MODD_PARAM_LIMA
USE MODD_PARAM_LIMA_COLD
USE MODD_BUDGET
USE MODI_BUDGET
-USE MODD_NSV, ONLY : NSV_LIMA_NC, NSV_LIMA_NI
!
USE MODI_LIMA_FUNCTIONS, ONLY : COUNTJV
!
diff --git a/src/MNH/one_wayn.f90 b/src/MNH/one_wayn.f90
index e31ffce7b..a5e4a34bd 100644
--- a/src/MNH/one_wayn.f90
+++ b/src/MNH/one_wayn.f90
@@ -297,8 +297,6 @@ REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: ZCONCT
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: ZCHEMT
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: ZCHEMTI
!
-INTEGER :: N_VAR_LIMA
-!
!-------------------------------------------------------------------------------
!
!* 0. INITIALISATION
@@ -938,7 +936,6 @@ END IF
! ------------------------------------------------
!
IF (NSV_A(KMI) > 0) THEN
- ! Users scalar variables
DO JSV = 1,NSV_A(KMI)
CALL COMPUTE_LB_M(PLBXSVM(:,:,:,JSV),PLBYSVM(:,:,:,JSV), &
PLBXSVS(:,:,:,JSV),PLBYSVS(:,:,:,JSV),ZTSVT(:,:,:,JSV))
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index eb97a9091..c46d7b840 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2020 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
! #######################
@@ -347,8 +347,7 @@ USE MODD_LUNIT, ONLY: TLUOUT0, TOUTDATAFILE
USE MODD_LUNIT_n
USE MODD_IO_ll, ONLY: NIO_VERB,NVERB_DEBUG,TFILE_DUMMY,TFILE_OUTPUTLISTING
USE MODD_CONF_n
-USE MODD_NSV, ONLY : NSV,NSV_CHEM, &
- NSV_DSTEND, NSV_DSTBEG
+USE MODD_NSV, ONLY: NSV
!
USE MODN_BLANK
!
diff --git a/src/MNH/series_cloud_elec.f90 b/src/MNH/series_cloud_elec.f90
index f12d2fdcc..f51636828 100644
--- a/src/MNH/series_cloud_elec.f90
+++ b/src/MNH/series_cloud_elec.f90
@@ -1,7 +1,8 @@
-!MNH_LIC Copyright 2010-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2010-2020 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.
+!-------------------------------------------------------------------------------
! #############################
MODULE MODI_SERIES_CLOUD_ELEC
! #############################
@@ -99,7 +100,6 @@ USE MODD_DYN_n, ONLY : XDXHATM, XDYHATM
!
USE MODD_RAIN_ICE_DESCR
USE MODD_RAIN_ICE_PARAM
-USE MODD_NSV, ONLY : NSV_ELECBEG, NSV_ELECEND
!
USE MODI_MOMG
USE MODI_RADAR_RAIN_ICE
--
GitLab