From 72e7d054b40cc82862c490c7c9a8ac9951e4fed5 Mon Sep 17 00:00:00 2001
From: Jan Frederik Engels <engels+git@dkrz.de>
Date: Thu, 25 Apr 2019 11:44:11 +0200
Subject: [PATCH] Add missing deallocation.
---
src/mtime_t_event.inc | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/mtime_t_event.inc b/src/mtime_t_event.inc
index 44c9c11e..e8db15ed 100644
--- a/src/mtime_t_event.inc
+++ b/src/mtime_t_event.inc
@@ -134,6 +134,10 @@
ret = my_isCurrentEventActive(c_loc(tmp_ev), tmp_dt, &
& tmp_plus, tmp_minus)
+
+ CALL my_deallocatedatetime(tmp_dt)
+ if (c_associated(tmp_plus)) CALL my_deallocatetimedelta(tmp_plus)
+ if (c_associated(tmp_minus)) CALL my_deallocatetimedelta(tmp_minus)
END FUNCTION t_event_is_active
! ================================================================================
--
GitLab