S. Riette 29/06/2022 ini_rain_ice common version

src/common/micro/modi_ini_rain_ice.F90

+!     ######spl
+       MODULE MODI_INI_RAIN_ICE
+!      ########################
+!
+INTERFACE
+      SUBROUTINE INI_RAIN_ICE ( KLUOUT, HCLOUD )
+!
+INTEGER,                 INTENT(IN) :: KLUOUT    ! Logical unit number for prints
+!
+CHARACTER (LEN=4), INTENT(IN)       :: HCLOUD    ! Indicator of the cloud scheme
+!
+END SUBROUTINE INI_RAIN_ICE
+!
+END INTERFACE
+!
+END MODULE MODI_INI_RAIN_ICE

src/mesonh/micro/ini_rain_ice.f90

@@ -3,29 +3,6 @@
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
 !-----------------------------------------------------------------
-!     ######spl
-       MODULE MODI_INI_RAIN_ICE
-!      ########################
-!
-INTERFACE
-      SUBROUTINE INI_RAIN_ICE ( KLUOUT, PTSTEP, PDZMIN, KSPLITR, HCLOUD )
-!
-INTEGER,                 INTENT(IN) :: KLUOUT    ! Logical unit number for prints
-INTEGER,                 INTENT(OUT):: KSPLITR   ! Number of small time step
-                                                 ! integration for  rain
-                                                 ! sedimendation
-!
-REAL,                    INTENT(IN) :: PTSTEP    ! Effective Time step
-!
-REAL,                    INTENT(IN) :: PDZMIN    ! minimun vertical mesh size
-!
-CHARACTER (LEN=4), INTENT(IN)       :: HCLOUD    ! Indicator of the cloud scheme
-!
-END SUBROUTINE INI_RAIN_ICE
-!
-END INTERFACE
-!
-END MODULE MODI_INI_RAIN_ICE
 !     ######spl
       SUBROUTINE INI_RAIN_ICE ( KLUOUT, PTSTEP, PDZMIN, KSPLITR, HCLOUD )
 !     ###########################################################

src/mesonh/micro/modi_ini_rain_ice.F90

+!     ######spl
+       MODULE MODI_INI_RAIN_ICE
+!      ########################
+!
+INTERFACE
+      SUBROUTINE INI_RAIN_ICE ( KLUOUT, PTSTEP, PDZMIN, KSPLITR, HCLOUD )
+!
+INTEGER,                 INTENT(IN) :: KLUOUT    ! Logical unit number for prints
+INTEGER,                 INTENT(OUT):: KSPLITR   ! Number of small time step
+                                                 ! integration for  rain
+                                                 ! sedimendation
+!
+REAL,                    INTENT(IN) :: PTSTEP    ! Effective Time step
+!
+REAL,                    INTENT(IN) :: PDZMIN    ! minimun vertical mesh size
+!
+CHARACTER (LEN=4), INTENT(IN)       :: HCLOUD    ! Indicator of the cloud scheme
+!
+END SUBROUTINE INI_RAIN_ICE
+!
+END INTERFACE
+!
+END MODULE MODI_INI_RAIN_ICE