S. Riette 17 Apr 2023: ini_lima converted in mode

src/arome/gmkpack_ignored_files

@@ -298,3 +298,6 @@ phyex/micro/ini_lima.F90
 phyex/micro/init_aerosol_properties.F90
 mpa/micro/interface/aroini_cstmnh.h
 mpa/micro/externals/aroini_cstmnh.F90
+phyex/micro/ini_lima_cold_mixed.F90
+phyex/micro/ini_lima_warm.F90
+

src/common/micro/mode_ini_lima.F90

@@ -39,6 +39,8 @@ CONTAINS
 USE MODD_CST
 USE MODD_PARAM_LIMA
 USE MODD_PARAMETERS
+USE MODE_INI_LIMA_WARM, ONLY: INI_LIMA_WARM
+USE MODE_INI_LIMA_COLD_MIXED, ONLY: INI_LIMA_COLD_MIXED
 !USE MODD_LUNIT, ONLY : TLUOUT0
 !
 IMPLICIT NONE

src/common/micro/ini_lima_cold_mixed.F90 → src/common/micro/mode_ini_lima_cold_mixed.F90

@@ -4,20 +4,13 @@
 !MNH_LIC for details. version 1.
 !-----------------------------------------------------------------
 !      ###############################
-       MODULE MODI_INI_LIMA_COLD_MIXED
+       MODULE MODE_INI_LIMA_COLD_MIXED
 !      ###############################
 !
-INTERFACE
-      SUBROUTINE INI_LIMA_COLD_MIXED (PTSTEP, PDZMIN)
-!
-REAL,                    INTENT(IN) :: PTSTEP    ! Effective Time step 
-REAL,                    INTENT(IN) :: PDZMIN    ! minimun vertical mesh size
-!
-END SUBROUTINE INI_LIMA_COLD_MIXED
+IMPLICIT NONE
 !
-END INTERFACE
+CONTAINS
 !
-END MODULE MODI_INI_LIMA_COLD_MIXED
 !     ###############################################
       SUBROUTINE INI_LIMA_COLD_MIXED (PTSTEP, PDZMIN)
 !     ###############################################
@@ -1778,3 +1771,5 @@ XFREFFI = 0.5 * ZGAMI(8) * (1.0/XLBI)**XLBEXI
 !------------------------------------------------------------------------------
 !
 END SUBROUTINE INI_LIMA_COLD_MIXED
+!
+END MODULE MODE_INI_LIMA_COLD_MIXED

src/common/micro/ini_lima_warm.F90 → src/common/micro/mode_ini_lima_warm.F90

@@ -4,20 +4,12 @@
 !MNH_LIC for details. version 1.
 !-----------------------------------------------------------------
 !      #########################
-       MODULE MODI_INI_LIMA_WARM
+       MODULE MODE_INI_LIMA_WARM
 !      #########################
 !
-INTERFACE
-      SUBROUTINE INI_LIMA_WARM (PTSTEP, PDZMIN)
-!
-REAL,                    INTENT(IN) :: PTSTEP    ! Effective Time step 
-REAL,                    INTENT(IN) :: PDZMIN    ! minimun vertical mesh size
-!
-END SUBROUTINE INI_LIMA_WARM
-!
-END INTERFACE
+IMPLICIT NONE
 !
-END MODULE MODI_INI_LIMA_WARM
+CONTAINS
 !     #########################################
       SUBROUTINE INI_LIMA_WARM (PTSTEP, PDZMIN)
 !     #########################################
@@ -474,3 +466,5 @@ XCRER = 1.0/ (ZGAMR(6) * XAR**(2.0/3.0))
 !------------------------------------------------------------------------------
 !
 END SUBROUTINE INI_LIMA_WARM
+!
+END MODULE MODE_INI_LIMA_WARM