From 4fb0cea631b414d70ca7d3dcabb2f426d856678c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Vi=C3=A9?= <benoit.vie@meteo.fr>
Date: Mon, 9 May 2022 09:37:23 +0200
Subject: [PATCH] Ice nucleation for LIMA_ICE1M
---
src/MNH/ini_lima_cold_mixed.f90 | 27 ++++++++++++++-------------
1 file changed, 14 insertions(+), 13 deletions(-)
diff --git a/src/MNH/ini_lima_cold_mixed.f90 b/src/MNH/ini_lima_cold_mixed.f90
index 756164cfb..5ad96e12b 100644
--- a/src/MNH/ini_lima_cold_mixed.f90
+++ b/src/MNH/ini_lima_cold_mixed.f90
@@ -147,18 +147,6 @@ 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
! ------------------------------
@@ -552,7 +540,20 @@ IF (LMEYERS) THEN
XNUC_CON,XEXTT_CON,XEX_CON
WRITE(UNIT=ILUOUT0,FMT='(" mass of embryo XMNU0=",E13.6)') XMNU0
END IF
-!
+!
+! *****************
+!* 4.3 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
!-------------------------------------------------------------------------------
!
!
--
GitLab