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 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. !MNH_LIC for details. version 1.
!----------------------------------------------------------------- !-----------------------------------------------------------------
! ######################## !#######################
MODULE MODD_STRUCTURE_ll MODULE MODD_STRUCTURE_ll
! ######################## !#######################
! !
!!**** *MODD_STRUCTURE_lll* - declaration of parallel structure !!**** *MODD_STRUCTURE_lll* - declaration of parallel structure
! !
...@@ -45,10 +45,12 @@ ...@@ -45,10 +45,12 @@
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
USE MODD_ARGSLIST_ll, ONLY : LIST_ll USE MODD_ARGSLIST_ll, ONLY : LIST_ll
USE MODD_PARAMETERS, ONLY : NNEGUNDEF USE MODD_PARAMETERS, ONLY : NNEGUNDEF
USE MODD_PARAMETERS_ll, ONLY : NMAXRIM USE MODD_PARAMETERS_ll, ONLY : NMAXRIM
!
implicit none
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
! Routines for allocation of structured types ! Routines for allocation of structured types
......
...@@ -343,7 +343,7 @@ USE MODD_VAR_ll, ONLY : IP ...@@ -343,7 +343,7 @@ USE MODD_VAR_ll, ONLY : IP
! !
USE MODD_STAND_ATM, ONLY : XSTROATM, XSMLSATM, XSMLWATM, XSPOSATM, XSPOWATM USE MODD_STAND_ATM, ONLY : XSTROATM, XSMLSATM, XSMLWATM, XSPOSATM, XSPOWATM
USE MODD_CH_MNHC_n, ONLY : LUSECHEM, LUSECHAQ, LUSECHIC, LCH_INIT_FIELD, & 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 XCH_TUV_DOBNEW, LCH_PH, CSPEC_BUDGET, CSPEC_PRODLOSS
USE MODD_CH_PH_n USE MODD_CH_PH_n
USE MODD_CH_AEROSOL, ONLY : LORILAM USE MODD_CH_AEROSOL, ONLY : LORILAM
......
...@@ -48,7 +48,7 @@ USE MODD_BUDGET ...@@ -48,7 +48,7 @@ USE MODD_BUDGET
USE MODD_CH_AERO_n, ONLY: XSOLORG,XMI USE MODD_CH_AERO_n, ONLY: XSOLORG,XMI
USE MODD_CH_AEROSOL, ONLY: LORILAM USE MODD_CH_AEROSOL, ONLY: LORILAM
USE MODD_CH_MNHC_n, ONLY: LUSECHEM, LUSECHAQ, LUSECHIC, LCH_INIT_FIELD, & 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 XCH_TUV_DOBNEW, LCH_PH
USE MODD_CH_PH_n USE MODD_CH_PH_n
USE MODD_CLOUD_MF_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