From b7e4ed7b637d8b48e2b6c072ef4cdd2633ce8973 Mon Sep 17 00:00:00 2001
From: Thierry Fouquet <thierry.fouquet@edf.fr>
Date: Wed, 28 Jun 2023 13:36:25 +0200
Subject: [PATCH] [fix] [tomawac] deallocate STRA40 and STRA41 in deall_tomawac
---
sources/tomawac/deall_tomawac.f | 2 ++
1 file changed, 2 insertions(+)
diff --git a/sources/tomawac/deall_tomawac.f b/sources/tomawac/deall_tomawac.f
index 22e206a264..d86c783808 100644
--- a/sources/tomawac/deall_tomawac.f
+++ b/sources/tomawac/deall_tomawac.f
@@ -159,6 +159,8 @@
CALL BIEF_DEALLOBJ(STRA37)
CALL BIEF_DEALLOBJ(STRA38)
CALL BIEF_DEALLOBJ(STRA39)
+ CALL BIEF_DEALLOBJ(STRA40)
+ CALL BIEF_DEALLOBJ(STRA41)
CALL BIEF_DEALLOBJ(STAUWA)
CALL BIEF_DEALLOBJ(SUSOLD)
CALL BIEF_DEALLOBJ(SDMOY)
--
GitLab