From 9b05207593b2224eb4369d26f5ee0d90ef74788f Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 7 Jun 2019 13:15:06 +0200
Subject: [PATCH] Philippe 07/06/2019: bugfix: deallocate XLSRVM only if
allocated
---
src/MNH/deallocate_model1.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/MNH/deallocate_model1.f90 b/src/MNH/deallocate_model1.f90
index 11a577e2e..dc3107d54 100644
--- a/src/MNH/deallocate_model1.f90
+++ b/src/MNH/deallocate_model1.f90
@@ -67,6 +67,7 @@ END MODULE MODI_DEALLOCATE_MODEL1
!! 10/2016 M.Mazoyer New KHKO output fields
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
!! 02/2019 C.Lac add rain fraction as an output field
+! P. Wautelet 07/06/2019: bugfix: deallocate XLSRVM only if allocated
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -306,7 +307,7 @@ IF ( KCALL == 3 ) THEN
DEALLOCATE(XLSVM)
DEALLOCATE(XLSWM)
DEALLOCATE(XLSTHM)
- DEALLOCATE(XLSRVM)
+ IF(ASSOCIATED(XLSRVM)) DEALLOCATE(XLSRVM)
IF (ASSOCIATED(XLBXUM)) THEN
DEALLOCATE(XLBXUM)
DEALLOCATE(XLBYUM)
--
GitLab