Skip to content
Snippets Groups Projects
Commit 29800114 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 17/03/2020: minor improvements (missing implicit none and unused module variables)

parent e9bc4174
No related branches found
No related tags found
No related merge requests found
!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
......
......@@ -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
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment