From 6aead8f3df07876cc97d36b559acdaced87acc9c Mon Sep 17 00:00:00 2001
From: Sergey Kosukhin <sergey.kosukhin@mpimet.mpg.de>
Date: Fri, 17 Jan 2025 12:14:14 +0100
Subject: [PATCH] Fix the uniq example
---
examples/uniq.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/examples/uniq.f90 b/examples/uniq.f90
index 7f98bac..02444ca 100644
--- a/examples/uniq.f90
+++ b/examples/uniq.f90
@@ -158,7 +158,7 @@ PROGRAM output_test
WRITE (0, *) ' remaining events: ', remaining_event_steps
IF (remaining_event_steps > SIZE(mtime_date_container_a)) THEN
- ALLOCATE (tmp(SIZE(mtime_date_container_a)), stat=ierrstat)
+ ALLOCATE (tmp(remaining_event_steps), stat=ierrstat)
IF (ierrstat /= 0) STOP 'allocate failed'
tmp(1:remaining_event_steps) = mtime_date_uniq(1:remaining_event_steps)
CALL MOVE_ALLOC(tmp, mtime_date_container_a)
@@ -172,7 +172,7 @@ PROGRAM output_test
DEALLOCATE (mtime_date_container_a)
DEALLOCATE (mtime_date_container_b)
- DEALLOCATE (tmp_jd)
+ CALL deallocateJulianday(tmp_jd)
CONTAINS
--
GitLab