From 17c3c47dac6340141d7f2c860dbc030a877fa7e9 Mon Sep 17 00:00:00 2001
From: Ignacio Pisso <ip@nilu.no>
Date: Wed, 5 Aug 2020 16:32:48 +0200
Subject: [PATCH] modify caldate.f90 in order to compile 477a094

---
 src/caldate.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/caldate.f90 b/src/caldate.f90
index 81db3385..9c93a52b 100644
--- a/src/caldate.f90
+++ b/src/caldate.f90
@@ -41,10 +41,10 @@ subroutine caldate(juldate,yyyymmdd,hhmiss)
 
   julday=int(juldate)
 ! PS check to avoid 240000 as hhmiss:  
-  if ((xjuldate-julday)*86400._dp .ge. 86399.5_dp) then
+  if ((juldate-julday)*86400._dp .ge. 86399.5_dp) then
     juldate = juldate + juldate-julday-86399.5_dp/86400._dp
     julday=int(juldate)
-  end
+  endif
   if(julday.ge.igreg)then
     jalpha=int(((julday-1867216)-0.25)/36524.25)
     ja=julday+1+jalpha-int(0.25*jalpha)
-- 
GitLab