From bf07e64ff8749606964af4fff013f9debbbf8b70 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 29 Sep 2022 10:33:24 +0200
Subject: [PATCH] Philippe 29/09/2022: bugfix: XTKE_DISS was not communicated

---
 src/MNH/aircraft_balloon_evol.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/MNH/aircraft_balloon_evol.f90 b/src/MNH/aircraft_balloon_evol.f90
index e6cfc21ba..6a81850ba 100644
--- a/src/MNH/aircraft_balloon_evol.f90
+++ b/src/MNH/aircraft_balloon_evol.f90
@@ -1459,6 +1459,7 @@ IF ( GSTORE ) THEN
   END DO
   IF (SIZE(PTKE)>0) CALL DISTRIBUTE_FLYER(TPFLYER%XTKE  (IN))
   IF (SIZE(PTS) >0) CALL DISTRIBUTE_FLYER(TPFLYER%XTSRAD(IN))
+  IF (LDIAG_IN_RUN) CALL DISTRIBUTE_FLYER(TPFLYER%XTKE_DISS(IN))
   CALL DISTRIBUTE_FLYER(TPFLYER%XZS  (IN))
   CALL DISTRIBUTE_FLYER(TPFLYER%XTHW_FLUX(IN))
   CALL DISTRIBUTE_FLYER(TPFLYER%XRCW_FLUX(IN))
-- 
GitLab