From 2980011431bf8226680a0c112509ff8cb0307883 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 17 Mar 2020 10:17:40 +0100
Subject: [PATCH] Philippe 17/03/2020: minor improvements (missing implicit
none and unused module variables)
---
src/LIB/SURCOUCHE/src/modd_structure_ll.f90 | 20 +++++++++++---------
src/MNH/ini_modeln.f90 | 2 +-
src/MNH/ini_spectren.f90 | 2 +-
3 files changed, 13 insertions(+), 11 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/modd_structure_ll.f90 b/src/LIB/SURCOUCHE/src/modd_structure_ll.f90
index 570dcba7e..f2ce9fe5c 100644
--- a/src/LIB/SURCOUCHE/src/modd_structure_ll.f90
+++ b/src/LIB/SURCOUCHE/src/modd_structure_ll.f90
@@ -1,11 +1,11 @@
-!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1998-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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
-! ########################
- MODULE MODD_STRUCTURE_ll
-! ########################
+!#######################
+MODULE MODD_STRUCTURE_ll
+!#######################
!
!!**** *MODD_STRUCTURE_lll* - declaration of parallel structure
!
@@ -45,10 +45,12 @@
!
!-------------------------------------------------------------------------------
!
- USE MODD_ARGSLIST_ll, ONLY : LIST_ll
- USE MODD_PARAMETERS, ONLY : NNEGUNDEF
- USE MODD_PARAMETERS_ll, ONLY : NMAXRIM
-!
+USE MODD_ARGSLIST_ll, ONLY : LIST_ll
+USE MODD_PARAMETERS, ONLY : NNEGUNDEF
+USE MODD_PARAMETERS_ll, ONLY : NMAXRIM
+
+implicit none
+
!-------------------------------------------------------------------------------
!
! Routines for allocation of structured types
diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index e195ef603..d9b1a256e 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -343,7 +343,7 @@ USE MODD_VAR_ll, ONLY : IP
!
USE MODD_STAND_ATM, ONLY : XSTROATM, XSMLSATM, XSMLWATM, XSPOSATM, XSPOWATM
USE MODD_CH_MNHC_n, ONLY : LUSECHEM, LUSECHAQ, LUSECHIC, LCH_INIT_FIELD, &
- CCHEM_INPUT_FILE, LCH_CONV_LINOX, &
+ LCH_CONV_LINOX, &
XCH_TUV_DOBNEW, LCH_PH, CSPEC_BUDGET, CSPEC_PRODLOSS
USE MODD_CH_PH_n
USE MODD_CH_AEROSOL, ONLY : LORILAM
diff --git a/src/MNH/ini_spectren.f90 b/src/MNH/ini_spectren.f90
index c3dd25be2..bc70618f2 100644
--- a/src/MNH/ini_spectren.f90
+++ b/src/MNH/ini_spectren.f90
@@ -48,7 +48,7 @@ USE MODD_BUDGET
USE MODD_CH_AERO_n, ONLY: XSOLORG,XMI
USE MODD_CH_AEROSOL, ONLY: LORILAM
USE MODD_CH_MNHC_n, ONLY: LUSECHEM, LUSECHAQ, LUSECHIC, LCH_INIT_FIELD, &
- CCHEM_INPUT_FILE, LCH_CONV_LINOX, &
+ LCH_CONV_LINOX, &
XCH_TUV_DOBNEW, LCH_PH
USE MODD_CH_PH_n
USE MODD_CLOUD_MF_n
--
GitLab