From 2981dae1c5404d41f62d218f22214750bdb92cb6 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 10 Apr 2014 14:27:40 +0000
Subject: [PATCH]  Christine 10/04/2014 : intrdeallocate INPRH/ACPRH

---
 src/MNH/deallocate_model1.f90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/MNH/deallocate_model1.f90 b/src/MNH/deallocate_model1.f90
index 04c8cee63..04ac32db0 100644
--- a/src/MNH/deallocate_model1.f90
+++ b/src/MNH/deallocate_model1.f90
@@ -475,6 +475,11 @@ IF ( ASSOCIATED(XINPRS) .AND. KCALL == 3 ) THEN
   DEALLOCATE(XACPRG)
 END IF
 !
+IF ( ASSOCIATED(XINPRH) .AND. KCALL == 3 ) THEN
+  DEALLOCATE(XINPRH)
+  DEALLOCATE(XACPRH)
+END IF
+!
 !*     13b.     Module MODD_ELEC$n
 !
 IF ( ASSOCIATED(XNI_SDRYG) .AND. KCALL == 3 ) THEN
-- 
GitLab