diff --git a/src/MNH/write_budget.f90 b/src/MNH/write_budget.f90 index 616cd3a8219ee859e14b6f54ece57cbb5bf0e7ba..529ef941b5ae97f07586e6a12f9d39a6688a049b 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) !------------------------------------------------------------------------------- !