diff --git a/src/arome/micro/modd_rain_ice_param.F90 b/src/arome/micro/modd_rain_ice_param.F90
deleted file mode 100644
index 19f8fcce26ebf7895fbcae02e610687e40b14e7c..0000000000000000000000000000000000000000
--- a/src/arome/micro/modd_rain_ice_param.F90
+++ /dev/null
@@ -1,181 +0,0 @@
-! ######spl
- MODULE MODD_RAIN_ICE_PARAM
-! ##########################
-!
-!!**** *MODD_RAIN_ICE_PARAM* - declaration of some microphysical factors
-!! extensively used in the warm and cold schemes.
-!!
-!! PURPOSE
-!! -------
-! The purpose of this declarative module is to declare some precomputed
-! microphysical paramters directly used in routine RAIN_ICE.
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (MODD_RAIN_ICE_PARAM)
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty *Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/12/95
-!! J.-P. Pinty 29/11/02 add ICE4
-!! S. Riette 11/2016: new ICE3/ICE4 processes
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-REAL,DIMENSION(2),SAVE :: XFSEDC ! Constants for sedimentation fluxes of C
-REAL,SAVE :: XFSEDR,XEXSEDR, & ! Constants for sedimentation
- XFSEDI,XEXCSEDI,XEXRSEDI, & ! fluxes of R, I, S and G
- XFSEDS,XEXSEDS, &
- XFSEDG,XEXSEDG
-!
-REAL,SAVE :: XNU10,XALPHA1,XBETA1, & ! Constants for heterogeneous
- XNU20,XALPHA2,XBETA2, & ! ice nucleation : HEN
- XMNU0 ! mass of nucleated ice crystal
-!
-REAL,SAVE :: XALPHA3,XBETA3, & ! Constants for homogeneous
- XHON ! ice nucleation : HON
-!
-REAL,SAVE :: XSCFAC, & ! Constants for raindrop
- X0EVAR,X1EVAR,XEX0EVAR,XEX1EVAR, & ! evaporation: EVA and for
- X0DEPI,X2DEPI, & ! deposition : DEP on I,
- X0DEPS,X1DEPS,XEX0DEPS,XEX1DEPS, & ! on S and
- X0DEPG,X1DEPG,XEX0DEPG,XEX1DEPG ! on G
-!
-REAL,SAVE :: XTIMAUTI,XTEXAUTI,XCRIAUTI, & ! Constants for pristine ice
- XT0CRIAUTI,XACRIAUTI,XBCRIAUTI ! autoconversion : AUT
-!
-REAL,SAVE :: XCOLIS,XCOLEXIS, & ! Constants for snow
- XFIAGGS, & ! aggregation : AGG
- XEXIAGGS
-!
-REAL,SAVE :: XTIMAUTC, & ! Constants for cloud droplet
- XCRIAUTC ! autoconversion : AUT
-!
-REAL,SAVE :: XFCACCR, & ! Constants for cloud droplet
- XEXCACCR ! accretion on raindrops : ACC
-!
-REAL,SAVE :: XDCSLIM,XCOLCS, & ! Constants for the riming of
- XEXCRIMSS,XCRIMSS, & ! the aggregates : RIM
- XEXCRIMSG,XCRIMSG, & !
- XEXSRIMCG,XSRIMCG, & !
- XEXSRIMCG2,XSRIMCG2, & !
- XSRIMCG3, & !
- XGAMINC_BOUND_MIN, & ! Min val. of Lbda_s for RIM
- XGAMINC_BOUND_MAX, & ! Max val. of Lbda_s for RIM
- XRIMINTP1,XRIMINTP2 ! Csts for lin. interpol. of
- ! the tab. incomplete Gamma law
-INTEGER,SAVE :: NGAMINC ! Number of tab. Lbda_s
-REAL, DIMENSION(:), SAVE, ALLOCATABLE &
- :: XGAMINC_RIM1, & ! Tab. incomplete Gamma funct.
- XGAMINC_RIM2, & ! for XDS+2 and for XBS
- XGAMINC_RIM4 ! and for 2+XDS+XBS-XBG
-!
-REAL,SAVE :: XFRACCSS, & ! Constants for the accretion
- XLBRACCS1,XLBRACCS2,XLBRACCS3, & ! raindrops onto the aggregates
- XFSACCRG, & ! ACC (processes RACCSS and
- XLBSACCR1,XLBSACCR2,XLBSACCR3, & ! SACCRG)
- XACCLBDAS_MIN, & ! Min val. of Lbda_s for ACC
- XACCLBDAS_MAX, & ! Max val. of Lbda_s for ACC
- XACCLBDAR_MIN, & ! Min val. of Lbda_r for ACC
- XACCLBDAR_MAX, & ! Max val. of Lbda_r for ACC
- XACCINTP1S,XACCINTP2S, & ! Csts for bilin. interpol. of
- XACCINTP1R,XACCINTP2R ! Lbda_s and Lbda_r in the
- ! XKER_RACCSS and XKER_SACCRG
- ! tables
-INTEGER,SAVE :: NACCLBDAS, & ! Number of Lbda_s values and
- NACCLBDAR ! of Lbda_r values in the
- ! XKER_RACCSS and XKER_SACCRG
- ! tables
-REAL,DIMENSION(:,:), SAVE, ALLOCATABLE &
- :: XKER_RACCSS, & ! Normalized kernel for RACCSS
- XKER_RACCS, & ! Normalized kernel for RACCS
- XKER_SACCRG ! Normalized kernel for SACCRG
-REAL,SAVE :: XFSCVMG ! Melting-conversion factor of
- ! the aggregates
-!
-REAL,SAVE :: XCOLIR, & ! Constants for rain contact
- XEXRCFRI,XRCFRI, & ! freezing : CFR
- XEXICFRR,XICFRR !
-!
-REAL,SAVE :: XFCDRYG, & ! Constants for the dry growth
- XCOLIG,XCOLEXIG,XFIDRYG, & ! of the graupeln : DRY
- XFIDRYG2, XEXFIDRYG, &
- XCOLSG,XCOLEXSG,XFSDRYG, & ! processes RCDRYG
- XLBSDRYG1,XLBSDRYG2,XLBSDRYG3, & ! RIDRYG
- XFRDRYG, & ! RSDRYG
- XLBRDRYG1,XLBRDRYG2,XLBRDRYG3, & ! RRDRYG
- XDRYLBDAR_MIN, & ! Min val. of Lbda_r for DRY
- XDRYLBDAR_MAX, & ! Max val. of Lbda_r for DRY
- XDRYLBDAS_MIN, & ! Min val. of Lbda_s for DRY
- XDRYLBDAS_MAX, & ! Max val. of Lbda_s for DRY
- XDRYLBDAG_MIN, & ! Min val. of Lbda_g for DRY
- XDRYLBDAG_MAX, & ! Max val. of Lbda_g for DRY
- XDRYINTP1R,XDRYINTP2R, & ! Csts for bilin. interpol. of
- XDRYINTP1S,XDRYINTP2S, & ! Lbda_r, Lbda_s and Lbda_g in
- XDRYINTP1G,XDRYINTP2G ! the XKER_SDRYG and XKER_RDRYG
- ! tables
-INTEGER,SAVE :: NDRYLBDAR, & ! Number of Lbda_r,
- NDRYLBDAS, & ! of Lbda_s and
- NDRYLBDAG ! of Lbda_g values in
- ! the XKER_SDRYG and XKER_RDRYG
- ! tables
-REAL,DIMENSION(:,:), SAVE, ALLOCATABLE &
- :: XKER_SDRYG, & ! Normalized kernel for SDRYG
- XKER_RDRYG ! Normalized kernel for RDRYG
-!
-! addition of Hail category
-!
-REAL,SAVE :: XFSEDH,XEXSEDH ! Constants for sedimentation
-!
-!
-REAL,SAVE :: X0DEPH,X1DEPH,XEX0DEPH,XEX1DEPH ! Constants for deposition
-!
-REAL,SAVE :: XCOLIH, XCOLEXIH, & ! Constants for the dry growth
- & XCOLSH, XCOLEXSH, & ! of the hail
- & XCOLGH, XCOLEXGH !
-!
-REAL,SAVE :: XFWETH,XFSWETH, & ! Constants for the wet growth
- XLBSWETH1,XLBSWETH2,XLBSWETH3, & ! of the hailstones : WET
- XFGWETH, & ! processes RSWETH
- XLBGWETH1,XLBGWETH2,XLBGWETH3, & ! RGWETH
- XFRWETH, & ! RRWETH
- XLBRWETH1,XLBRWETH2,XLBRWETH3, & !
- XWETLBDAS_MIN, & ! Min val. of Lbda_s for WET
- XWETLBDAS_MAX, & ! Max val. of Lbda_s for WET
- XWETLBDAG_MIN, & ! Min val. of Lbda_g for WET
- XWETLBDAG_MAX, & ! Max val. of Lbda_g for WET
- XWETLBDAR_MIN, & ! Min val. of Lbda_r for WET
- XWETLBDAR_MAX, & ! Max val. of Lbda_r for WET
- XWETLBDAH_MIN, & ! Min val. of Lbda_h for WET
- XWETLBDAH_MAX, & ! Max val. of Lbda_h for WET
- XWETINTP1S,XWETINTP2S, & ! Csts for bilin. interpol. of
- XWETINTP1G,XWETINTP2G, & ! Lbda_r, Lbda_s, Lbda_g
- XWETINTP1R,XWETINTP2R, & ! and Lbda_h in
- XWETINTP1H,XWETINTP2H ! the XKER_SWETH, XKER_GWETH
- ! and XKER_RWETH tables
-INTEGER,SAVE :: NWETLBDAS, & ! Number of Lbda_s,
- NWETLBDAG, & ! of Lbda_g,
- NWETLBDAR, & ! of Lbda_r and
- NWETLBDAH ! of Lbda_h values in
- ! the XKER_SWETH, XKER_GWETH
- ! and XKER_RWETH tables
-REAL,DIMENSION(:,:), SAVE, ALLOCATABLE &
- :: XKER_SWETH, & ! Normalized kernel for SWETH
- XKER_GWETH, & ! Normalized kernel for GWETH
- XKER_RWETH ! Normalized kernel for RWETH
-!
-END MODULE MODD_RAIN_ICE_PARAM
diff --git a/src/common/micro/modd_neb.f90 b/src/common/micro/modd_neb.F90
similarity index 100%
rename from src/common/micro/modd_neb.f90
rename to src/common/micro/modd_neb.F90
diff --git a/src/arome/micro/modd_rain_ice_descr.F90 b/src/common/micro/modd_rain_ice_descr.F90
similarity index 89%
rename from src/arome/micro/modd_rain_ice_descr.F90
rename to src/common/micro/modd_rain_ice_descr.F90
index 3fe3d083e68bc3c0f62852f5d3be89ecd728d205..2f6c6a5bca16c263acb89c2ea5c3eb1687965d34 100644
--- a/src/arome/micro/modd_rain_ice_descr.F90
+++ b/src/common/micro/modd_rain_ice_descr.F90
@@ -1,4 +1,8 @@
-! ######spl
+!MNH_LIC Copyright 1994-2014 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 MODD_RAIN_ICE_DESCR
! ##########################
!
@@ -41,6 +45,7 @@
!! -------------
!! Original 04/12/95
!! J.-P. Pinty 29/11/02 add ICE4
+!! C. LAC 26/01/2012 : suppression de XCONC qui n'était pas utilisé
!!
!-------------------------------------------------------------------------------
!
@@ -69,7 +74,6 @@ REAL,SAVE :: XLBDAR_MAX,XLBDAS_MAX,XLBDAG_MAX ! Max values allowed for the shape
! parameters (rain,snow,graupeln)
!
REAL,DIMENSION(:),SAVE,ALLOCATABLE :: XRTMIN ! Min values allowed for the mixing ratios
-REAL,DIMENSION(:,:,:), SAVE, ALLOCATABLE :: XCONC ! Concentration of cloud droplet
REAL,SAVE :: XCONC_SEA ! Diagnostic concentration of droplets over sea
REAL,SAVE :: XCONC_LAND ! Diagnostic concentration of droplets over land
REAL,SAVE :: XCONC_URBAN ! Diagnostic concentration of droplets over urban area
diff --git a/src/mesonh/micro/modd_rain_ice_param.f90 b/src/common/micro/modd_rain_ice_param.F90
similarity index 100%
rename from src/mesonh/micro/modd_rain_ice_param.f90
rename to src/common/micro/modd_rain_ice_param.F90
diff --git a/src/common/micro/mode_ice4_sedimentation_split_momentum.f90 b/src/common/micro/mode_ice4_sedimentation_split_momentum.F90
similarity index 100%
rename from src/common/micro/mode_ice4_sedimentation_split_momentum.f90
rename to src/common/micro/mode_ice4_sedimentation_split_momentum.F90
diff --git a/src/mesonh/micro/modd_rain_ice_descr.f90 b/src/mesonh/micro/modd_rain_ice_descr.f90
deleted file mode 100644
index 96295e4e7841c57028903c03f50731d03b9a9c6c..0000000000000000000000000000000000000000
--- a/src/mesonh/micro/modd_rain_ice_descr.f90
+++ /dev/null
@@ -1,87 +0,0 @@
-!MNH_LIC Copyright 1994-2014 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.
-!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 modd 2006/10/16 14:23:23
-!-----------------------------------------------------------------
-! ##########################
- MODULE MODD_RAIN_ICE_DESCR
-! ##########################
-!
-!!**** *MODD_RAIN_ICE_DESCR* - declaration of the microphysical descriptive
-!! constants for use in the warm and cold schemes.
-!!
-!! PURPOSE
-!! -------
-! The purpose of this declarative module is to declare the microphysical
-! constants. This includes the descriptive parameters for the raindrop and
-! the ice crystal habits and the parameters relevant of the dimensional
-! distributions.
-!
-! m(D) = XAx * D**XBx : Mass-MaxDim relationship
-! v(D) = XCx * D**XDx : Fallspeed-MaxDim relationship
-! N(Lbda) = XCCx * Lbda**XCXx : NumberConc-Slopeparam relationship
-! XF0x, XF1x, XF2x : Ventilation factors
-! XC1x : Shape parameter for deposition
-!
-! and
-!
-! XALPHAx, XNUx : Generalized GAMMA law
-! Lbda = XLBx * (r_x*rho_dref)**XLBEXx : Slope parameter of the
-! distribution law
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!! Book2 of documentation of Meso-NH (MODD_RAIN_ICE_DESCR)
-!!
-!! AUTHOR
-!! ------
-!! J.-P. Pinty *Laboratoire d'Aerologie*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 04/12/95
-!! J.-P. Pinty 29/11/02 add ICE4
-!! C. LAC 26/01/2012 : suppression de XCONC qui n'était pas utilisé
-!!
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-REAL,SAVE :: XCEXVT ! air density fall speed correction
-!
-REAL,SAVE :: XAC,XBC,XCC,XDC ! Cloud droplet charact.
-REAL,SAVE :: XAR,XBR,XCR,XDR,XCCR ,XF0R,XF1R,XC1R ! Raindrop charact.
-REAL,SAVE :: XAI,XBI,XC_I,XDI ,XF0I,XF2I,XC1I ! Cloud ice charact.
-REAL,SAVE :: XAS,XBS,XCS,XDS,XCCS,XCXS,XF0S,XF1S,XC1S ! Snow/agg. charact.
-REAL,SAVE :: XAG,XBG,XCG,XDG,XCCG,XCXG,XF0G,XF1G,XC1G ! Graupel charact.
-REAL,SAVE :: XAH,XBH,XCH,XDH,XCCH,XCXH,XF0H,XF1H,XC1H ! Hail charact.
-!
-REAL,SAVE :: XALPHAC,XNUC,XALPHAC2,XNUC2, XLBEXC ! Cloud droplet distribution parameters
-REAL,DIMENSION(2), SAVE :: XLBC ! Cloud droplet distribution parameters
-REAL,SAVE :: XALPHAR,XNUR,XLBEXR,XLBR ! Raindrop distribution parameters
-REAL,SAVE :: XALPHAI,XNUI,XLBEXI,XLBI ! Cloud ice distribution parameters
-REAL,SAVE :: XALPHAS,XNUS,XLBEXS,XLBS ! Snow/agg. distribution parameters
-REAL,SAVE :: XALPHAG,XNUG,XLBEXG,XLBG ! Graupel distribution parameters
-REAL,SAVE :: XALPHAH,XNUH,XLBEXH,XLBH ! Hail distribution parameters
-!
-REAL,SAVE :: XLBDAR_MAX,XLBDAS_MAX,XLBDAG_MAX ! Max values allowed for the shape
- ! parameters (rain,snow,graupeln)
-!
-REAL,DIMENSION(:),SAVE,ALLOCATABLE :: XRTMIN ! Min values allowed for the mixing ratios
-REAL,SAVE :: XCONC_SEA ! Diagnostic concentration of droplets over sea
-REAL,SAVE :: XCONC_LAND ! Diagnostic concentration of droplets over land
-REAL,SAVE :: XCONC_URBAN ! Diagnostic concentration of droplets over urban area
-!
-END MODULE MODD_RAIN_ICE_DESCR