diff --git a/src/MNH/ch_convect_linox.f90 b/src/MNH/ch_convect_linox.f90 index 2642f84c38c4134c53e6616d4cec6f4ade1fc582..aae2b7345d1c1a9d6f824a6adde3133486b027b8 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 c0b51e5dc6b6f25b6d6df56e1641e387ef1816d0..232c84e46bb348e3716f294e012c260a75907b90 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 74638faefbf64dc3f78c0f8f415bc777eb1a4739..cba403b22ef15ca847857dc5b55f6a64149f78cb 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 e31ffce7bb3072819d8b87f0e2530a3be7e8eea8..a5e4a34bd765b4e8abc1551159f69aa0ca63b48b 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 eb97a9091e0451dfe0243d9b393270257c01b9f6..c46d7b840f87370123ad159d2d82724bd71b00e7 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 f12d2fdcc054ab93ba7fcebc59e96ee5a7cfc252..f516368288497c1193be1e82742b2adc51fead91 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