From 2981362f5cf4ea70ca66dc07605dd608e5ed2c9e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 27 Feb 2024 08:59:34 +0100
Subject: [PATCH] Philippe 27/02/2024: bugfix: missing call to FILL_DIMPHYEX in
modeln
---
src/MNH/modeln.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index ee532312b..c6d688a9a 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -384,6 +384,7 @@ USE MODE_AIRCRAFT_BALLOON
use mode_budget, only: Budget_store_init, Budget_store_end
USE MODE_DATETIME
USE MODE_ELEC_ll
+USE MODE_FILL_DIMPHYEX, ONLY: FILL_DIMPHYEX
USE MODE_GRIDCART
USE MODE_GRIDPROJ
USE MODE_IO_FIELD_WRITE, only: IO_Field_user_write, IO_Fieldlist_write, IO_Header_write
@@ -2016,6 +2017,7 @@ IF (CCLOUD /= 'NONE') THEN
! Lessivage des CCN et IFN nucléables par Slinn
!
IF (LSCAV .AND. (CCLOUD == 'LIMA')) THEN
+ CALL FILL_DIMPHYEX( YLDIMPHYEX, SIZE(XTHT,1), SIZE(XTHT,2), SIZE(XTHT,3) )
CALL LIMA_PRECIP_SCAVENGING( YLDIMPHYEX,CST,TBUCONF,TBUDGETS,SIZE(TBUDGETS), &
CCLOUD, CCONF, ILUOUT, KTCOUNT,XTSTEP,XRT(:,:,:,3), &
XRHODREF, XRHODJ, XZZ, XPABST, XTHT, &
--
GitLab