From eabb99c96e7767bb40521d586ca65749626af762 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Vi=C3=A9?= <benoit.vie@meteo.fr>
Date: Tue, 25 Jan 2022 14:53:19 +0100
Subject: [PATCH] Bugfix default_desfmn for nesting with LIMA
---
src/MNH/default_desfmn.f90 | 16 +++++++---------
src/MNH/lima_ice_deposition.f90 | 2 +-
2 files changed, 8 insertions(+), 10 deletions(-)
diff --git a/src/MNH/default_desfmn.f90 b/src/MNH/default_desfmn.f90
index c1be2c51e..c656a19af 100644
--- a/src/MNH/default_desfmn.f90
+++ b/src/MNH/default_desfmn.f90
@@ -972,13 +972,13 @@ ENDIF
!* 19.BIS SET DEFAULT VALUES FOR MODD_PARAM_LIMA :
! ----------------------------------------
!
-LPTSPLIT = .FALSE.
-L_LFEEDBACKT = .TRUE.
-L_NMAXITER = 1
-L_XMRSTEP = 0.
-L_XTSTEP_TS = 0.
-!
IF (KMI == 1) THEN
+ LPTSPLIT = .FALSE.
+ L_LFEEDBACKT = .TRUE.
+ L_NMAXITER = 1
+ L_XMRSTEP = 0.
+ L_XTSTEP_TS = 0.
+!
YNUC = 1.0
YALPHAC = 3.0
YNUR = 2.0
@@ -1017,9 +1017,7 @@ IF (KMI == 1) THEN
LCCN_HOM = .TRUE.
CCCN_MODES = 'COPT'
XCCN_CONC(:)=300.
-ENDIF
-!
-IF (KMI == 1) THEN
+
LHHONI = .FALSE.
LCOLD = .TRUE.
LNUCL = .TRUE.
diff --git a/src/MNH/lima_ice_deposition.f90 b/src/MNH/lima_ice_deposition.f90
index 752feb93b..fc212f33b 100644
--- a/src/MNH/lima_ice_deposition.f90
+++ b/src/MNH/lima_ice_deposition.f90
@@ -72,7 +72,7 @@ SUBROUTINE LIMA_ICE_DEPOSITION (PTSTEP, LDCOMPUTE, &
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS , LSNOW
USE MODD_PARAM_LIMA_COLD, ONLY : XCXS, XCCS, &
XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, &
XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, &
--
GitLab