From 808bed49ab4b6e1491bdfb381cc12f9179650779 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 26 Jul 2019 11:19:45 +0200
Subject: [PATCH] Philippe 26/07/2019: bug correction: deallocate of zsea and
ztown done too early
(cherry picked from commit b0bb3125bd4b1daa96ea93284d3acae8285baf28)
---
src/MNH/diag.f90 | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/src/MNH/diag.f90 b/src/MNH/diag.f90
index ace7bab44..8a2502ed3 100644
--- a/src/MNH/diag.f90
+++ b/src/MNH/diag.f90
@@ -91,6 +91,7 @@
! P. Wautelet 07/02/2019: force TYPE to a known value for IO_File_add2list
! P. Wautelet 11/02/2019: added missing use of MODI_CH_MONITOR_n
! P. Wautelet 28/03/2019: use MNHTIME for time measurement variables
+! P. Wautelet 26/07/2019: bug correction: deallocate of zsea and ztown done too early
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -544,19 +545,16 @@ IF ( LAIRCRAFT_BALLOON ) THEN
ZTOWN(:,:)= 0.
CALL MNHGET_SURF_PARAM_n (PSEA=ZSEA(:,:),PTOWN=ZTOWN(:,:))
DO ISTEPBAL=1,NTIME_AIRCRAFT_BALLOON,INT(XSTEP_AIRCRAFT_BALLOON)
-!
CALL AIRCRAFT_BALLOON(XSTEP_AIRCRAFT_BALLOON, &
TDTEXP, TDTMOD, TDTCUR, TXDTBAL, &
XXHAT, XYHAT, XZZ, XMAP, XLONORI, XLATORI, &
XUT, XVT, XWT, XPABST, XTHT, XRT, XSVT, &
XTKET, XTSRAD, XRHODREF,XCIT,ZSEA)
- DEALLOCATE (ZSEA,ZTOWN)
-!
-!-----------------------------
!
TXDTBAL%TIME=TXDTBAL%TIME + XSTEP_AIRCRAFT_BALLOON
CALL DATETIME_CORRECTDATE(TXDTBAL)
ENDDO
+ DEALLOCATE (ZSEA,ZTOWN)
CALL IO_Header_write(TZDIACFILE)
CALL WRITE_LFIFMN_FORDIACHRO_n(TZDIACFILE)
CALL WRITE_AIRCRAFT_BALLOON(TZDIACFILE)
--
GitLab