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