From a50a1fbf445b3da7e3886b0b69a5bbc28bb6f6e4 Mon Sep 17 00:00:00 2001
From: Florian Prill <florian.prill@dwd.de>
Date: Tue, 25 Jun 2019 08:04:56 +0200
Subject: [PATCH] [develop] fixed initialization of result datetime.
---
src/mtime_t_event.inc | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/mtime_t_event.inc b/src/mtime_t_event.inc
index 521b32f9..4769771c 100644
--- a/src/mtime_t_event.inc
+++ b/src/mtime_t_event.inc
@@ -161,6 +161,8 @@
TYPE(c_ptr) :: event_triggerNextEventDateTime, c_pointer1
LOGICAL(c_bool) :: event_nextEventIsFirst
+ res = this%triggerNextEventDateTime
+
IF (PRESENT(query_start_dt)) THEN
! if a start for our query is given, invoke
! "my_gettriggernexteventatdatetime":
@@ -204,9 +206,6 @@
& CALL my_deallocatedatetime(event_triggerNextEventDateTime )
CALL my_deallocatedatetime(c_pointer1)
-
- ELSE
- res = this%triggerNextEventDateTime
END IF
END FUNCTION t_event_getNextOccurrenceDatetime
--
GitLab