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