diff --git a/src/MNH/ini_radar.f90 b/src/MNH/ini_radar.f90 index dbc94a72621630ef82491f6541fd803553260fef..77002163b393d8f3d9683e300b6a9c9ac7278403 100644 --- a/src/MNH/ini_radar.f90 +++ b/src/MNH/ini_radar.f90 @@ -82,6 +82,7 @@ CHARACTER (LEN=4), INTENT(IN) :: HPRISTINE_ICE ! Indicator of ice cryst !------------------------------------------------------------------------------- ! ! +CALL RAIN_ICE_DESCR_ASSOCIATE() ! !* 1.1 Raindrop characteristics ! diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90 index 3a340fe6f0ce0330b6727c223f8c1b89204fad26..ea749bd3cb1fbef2221e006a78929c3aa9675aa7 100644 --- a/src/MNH/prep_ideal_case.f90 +++ b/src/MNH/prep_ideal_case.f90 @@ -337,6 +337,7 @@ USE MODD_GRID_n USE MODD_IBM_LSF, ONLY: CIBM_TYPE, LIBM_LSF, NIBM_SMOOTH, XIBM_SMOOTH USE MODD_IBM_PARAM_n, ONLY: XIBM_LS USE MODD_METRICS_n +USE MODD_LES, ONLY : LES_ASSOCIATE USE MODD_PGDDIM USE MODD_PGDGRID USE MODD_TIME @@ -655,6 +656,7 @@ CALL INI_NEB ! CALL ALLOC_FIELD_SCALARS() CALL PARAM_ICE_ASSOCIATE() +CALL LES_ASSOCIATE() CALL DEFAULT_DESFM_n(1) ! CSURF = "NONE" diff --git a/src/MNH/prep_real_case.f90 b/src/MNH/prep_real_case.f90 index 01b3b16db84189f7722de5771b398d9bcd50f45d..385bfd59e8f3ca7eeb04da6b3aada32072f755c4 100644 --- a/src/MNH/prep_real_case.f90 +++ b/src/MNH/prep_real_case.f90 @@ -420,6 +420,7 @@ USE MODD_IBM_LSF, ONLY: CIBM_TYPE, LIBM_LSF, NIBM_SMOOTH, XIBM_SMOOTH USE MODD_IBM_PARAM_n, ONLY: XIBM_LS USE MODD_IO, ONLY: TFILEDATA, TFILE_SURFEX USE MODD_LBC_n +USE MODD_LES, ONLY: LES_ASSOCIATE USE MODD_LSFIELD_n USE MODD_LUNIT, ONLY: TPGDFILE,TLUOUT0,TOUTDATAFILE USE MODD_LUNIT_n, ONLY: CINIFILE,TINIFILE,TLUOUT @@ -614,6 +615,7 @@ CPROGRAM='REAL ' ! CALL ALLOC_FIELD_SCALARS() CALL PARAM_ICE_ASSOCIATE() +CALL LES_ASSOCIATE() CALL DEFAULT_DESFM_n(1) NRR=1 IDX_RVT = 1 diff --git a/src/PHYEX/micro/ini_lima_cold_mixed.f90 b/src/PHYEX/micro/ini_lima_cold_mixed.f90 index c06c292124caf83cf1a3854f60f0b4eb44d5f95a..e8af15d58d1d3803bc3d0a555402fb5fe8e3eaf1 100644 --- a/src/PHYEX/micro/ini_lima_cold_mixed.f90 +++ b/src/PHYEX/micro/ini_lima_cold_mixed.f90 @@ -57,7 +57,8 @@ USE MODD_PARAM_LIMA USE MODD_PARAM_LIMA_WARM USE MODD_PARAM_LIMA_COLD USE MODD_PARAM_LIMA_MIXED -use MODD_RAIN_ICE_PARAM, only: XALPHA1, XALPHA2, XBETA1, XBETA2, IMNU0=>XMNU0, XNU10, XNU20 +USE MODD_RAIN_ICE_PARAM, ONLY: XALPHA1, XALPHA2, XBETA1, XBETA2, IMNU0=>XMNU0, XNU10, XNU20, & + RAIN_ICE_PARAM_ASSOCIATE USE MODD_REF ! use mode_msg @@ -155,6 +156,7 @@ ILUOUT0 = TLUOUT0%NLU !* 1. CHARACTERISTICS OF THE SPECIES ! ------------------------------ ! +CALL RAIN_ICE_PARAM_ASSOCIATE() ! !* 1.2 Ice crystal characteristics !