Skip to content
Snippets Groups Projects
Commit a6397eeb authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe
Browse files

Juan 24/03/2014 : miss placed deallocate in RSV budget

parent f17c641e
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/write_budget.f90
+ 2
− 0
View file @ a6397eeb
...@@ -127,6 +127,7 @@ END MODULE MODI_WRITE_BUDGET ...@@ -127,6 +127,7 @@ END MODULE MODI_WRITE_BUDGET
!! third one is the number of the masks. !! third one is the number of the masks.
!! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after !! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after
!! change of YCOMMENT !! change of YCOMMENT
!! 24/03/2014 (J.Escobar ) miss placed deallocate in RSV budget
!! !!
!! !!
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
...@@ -963,6 +964,7 @@ SELECT CASE (CBUTYPE) ...@@ -963,6 +964,7 @@ SELECT CASE (CBUTYPE)
END DO END DO
END IF END IF
! !
IF (ALLOCATED(ZWORK)) DEALLOCATE(ZWORK)
DEALLOCATE (ZWORKTEMP, ZWORKDATIME) DEALLOCATE (ZWORKTEMP, ZWORKDATIME)
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
......
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