Skip to content
Snippets Groups Projects
Commit bf07e64f authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 29/09/2022: bugfix: XTKE_DISS was not communicated

parent 3fd56d32
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/aircraft_balloon_evol.f90
+ 1
− 0
View file @ bf07e64f
...@@ -1459,6 +1459,7 @@ IF ( GSTORE ) THEN ...@@ -1459,6 +1459,7 @@ IF ( GSTORE ) THEN
END DO END DO
IF (SIZE(PTKE)>0) CALL DISTRIBUTE_FLYER(TPFLYER%XTKE (IN)) IF (SIZE(PTKE)>0) CALL DISTRIBUTE_FLYER(TPFLYER%XTKE (IN))
IF (SIZE(PTS) >0) CALL DISTRIBUTE_FLYER(TPFLYER%XTSRAD(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%XZS (IN))
CALL DISTRIBUTE_FLYER(TPFLYER%XTHW_FLUX(IN)) CALL DISTRIBUTE_FLYER(TPFLYER%XTHW_FLUX(IN))
CALL DISTRIBUTE_FLYER(TPFLYER%XRCW_FLUX(IN)) CALL DISTRIBUTE_FLYER(TPFLYER%XRCW_FLUX(IN))
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme