From a6397eeb27588d133db49b8c1b02d598eb4b8687 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Thu, 27 Mar 2014 15:26:48 +0000
Subject: [PATCH] Juan 24/03/2014 : miss placed deallocate in RSV budget
---
src/MNH/write_budget.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/write_budget.f90 b/src/MNH/write_budget.f90
index 616cd3a82..529ef941b 100644
--- a/src/MNH/write_budget.f90
+++ b/src/MNH/write_budget.f90
@@ -127,6 +127,7 @@ END MODULE MODI_WRITE_BUDGET
!! third one is the number of the masks.
!! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after
!! change of YCOMMENT
+!! 24/03/2014 (J.Escobar ) miss placed deallocate in RSV budget
!!
!!
!-------------------------------------------------------------------------------
@@ -963,6 +964,7 @@ SELECT CASE (CBUTYPE)
END DO
END IF
!
+ IF (ALLOCATED(ZWORK)) DEALLOCATE(ZWORK)
DEALLOCATE (ZWORKTEMP, ZWORKDATIME)
!-------------------------------------------------------------------------------
!
--
GitLab