Quentin 14/12/2022: correction of delete of modd_ref : ini_snow use XTHVREF as 300.0 hard coded

src/arome/ext/aroini_micro.F90

@@ -64,7 +64,6 @@ USE MODD_RAIN_ICE_DESCR
 USE MODD_RAIN_ICE_PARAM
 USE MODD_PARAM_ICE
 USE MODD_PARAM_C1R3
-USE MODD_REF, ONLY: XTHVREFZ
 
 USE MODI_INI_RAIN_ICE
 USE MODI_INI_TIWMX
@@ -156,7 +155,7 @@ IF(PRESENT(PFRMIN))THEN
    WRITE(UNIT=KULOUT,FMT='('' UPDATED VALUES OF XFRMIN FROM NAMPARAR :'')')
    WRITE(UNIT=KULOUT,FMT='('' XFRMIN = '',40E10.3)') XFRMIN
    IF(XFRMIN(16) > 0.) THEN
-      CALL INI_SNOW(KULOUT,XTHVREFZ) ! Recalculate snow parameters :  XCCS = XFRMIN(16),XCXS = XFRMIN(17)
+      CALL INI_SNOW(KULOUT) ! Recalculate snow parameters :  XCCS = XFRMIN(16),XCXS = XFRMIN(17)
    ENDIF
 ENDIF
 

src/common/micro/ini_snow.F90

 !     ######spl
-      SUBROUTINE INI_SNOW ( KLUOUT, PTHVREFZ )
+      SUBROUTINE INI_SNOW ( KLUOUT )
       USE PARKIND1, ONLY : JPRB
       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
 !     ###########################################################
@@ -69,12 +69,8 @@ IMPLICIT NONE
 !
 !
 INTEGER,                 INTENT(IN) :: KLUOUT   ! Logical unit number for prints
-REAL, DIMENSION(:) :: PTHVREFZ
 !*       0.2   Declarations of local variables :
 !
-INTEGER :: IKB                ! Coordinates of the first physical
-                              ! points along z
-
 REAL :: ZRHO00                ! Surface reference air density
 
 REAL :: ZCONC_MAX ! Maximal concentration for snow
@@ -86,8 +82,7 @@ IF (LHOOK) CALL DR_HOOK('INI_RAIN_ICE',0,ZHOOK_HANDLE)
 
 XCCS = XFRMIN(16)
 XCXS = XFRMIN(17)
-IKB = 1 + JPVEXT
-ZRHO00 = XP00/(XRD*PTHVREFZ(IKB))
+ZRHO00 = XP00/(XRD*300.0)
 !     recalculate ini_rain_ice stuff:
 
 !     3.4    Constants for shape parameter