From 44430e5727a35e42f6a5c53aab651ec91bf68d78 Mon Sep 17 00:00:00 2001
From: Ping-Hsuan <pht2@illinois.edu>
Date: Sat, 20 Jul 2024 15:46:07 -0500
Subject: [PATCH] declare work1 and work2 to avoid run-time error

---
 code/time.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/time.f b/code/time.f
index d6f442f5..f73ed7d4 100644
--- a/code/time.f
+++ b/code/time.f
@@ -267,7 +267,7 @@ subroutine post
       save icalld
       data icalld /0/
 
-      real vort(lt)
+      real vort(lt),work1(lt),work2(lt)
 
       call rom_userchk