diff --git a/src/MNH/ini_lima_cold_mixed.f90 b/src/MNH/ini_lima_cold_mixed.f90 index e6daea87ebe12a67bd54ca764b4a8b256cc1ee24..756164cfb7423f75f83405cd0fe24e32df4d7746 100644 --- a/src/MNH/ini_lima_cold_mixed.f90 +++ b/src/MNH/ini_lima_cold_mixed.f90 @@ -56,6 +56,7 @@ 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_REF ! use mode_msg @@ -146,6 +147,18 @@ REAL :: ZRHOIW ! ice density ! ILUOUT0 = TLUOUT0%NLU ! +! Ice nucleation for NMOM_I=1 +! +! +XNU10 = 50.*ZFACT_NUCL +XALPHA1 = 4.5 +XBETA1 = 0.6 +! +XNU20 = 1000.*ZFACT_NUCL +XALPHA2 = 12.96 +XBETA2 = 0.639 +! +IMNU0 = 6.88E-13 ! !* 1. CHARACTERISTICS OF THE SPECIES ! ------------------------------ diff --git a/src/MNH/lima_nucleation_procs.f90 b/src/MNH/lima_nucleation_procs.f90 index 91fb9deafed0224be3f978407f5c579e9c06e1de..b28c91cb6cabe68aaecef7a782fba5e1038cc24d 100644 --- a/src/MNH/lima_nucleation_procs.f90 +++ b/src/MNH/lima_nucleation_procs.f90 @@ -313,9 +313,10 @@ IF (LCOLD .AND. LNUCL .AND. NMOM_I.EQ.1) THEN ! Z_TH_HIND=ZTHS*PTSTEP-PTHT ! Z_RI_HIND=ZRIS*PTSTEP-PRIT ! Z_CI_HIND=ZCIT-PCIT -! PCIT=ZCIT -! PRIT=ZRIS*PTSTEP -! PTHT=ZTHS*PTSTEP + PCIT=ZCIT + PRIT=ZRIS*PTSTEP + PTHT=ZTHS*PTSTEP + PRVT=ZRVS*PTSTEP ! Z_TH_HINC=0. ! Z_RC_HINC=0. ! Z_CC_HINC=0.