diff --git a/src/MNH/deallocate_model1.f90 b/src/MNH/deallocate_model1.f90
index 04c8cee63eff4e0f734d71db1bf5bd6434b661f2..04ac32db0d7a477b77fd93c4e33f0636f3fe59cc 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