From 477a0944cf2b78ec464144be7fe06dda4367af69 Mon Sep 17 00:00:00 2001 From: pesei <petra.seibert at univie.ac.at> Date: Mon, 27 Jul 2020 12:52:49 +0200 Subject: [PATCH] Modified caldate.f90 to avoid output of hhmiss as 240000 (will become 000000 with date addjusted), see ticket:281 --- src/caldate.f90 | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/caldate.f90 b/src/caldate.f90 index a700cb44..81db3385 100644 --- a/src/caldate.f90 +++ b/src/caldate.f90 @@ -26,6 +26,8 @@ subroutine caldate(juldate,yyyymmdd,hhmiss) ! Constants: * ! igreg help constant * ! * + ! PS 2020-07-27: add a check to avoid giving back 240000 for hhmiss * + ! * !***************************************************************************** use par_mod, only: dp @@ -38,6 +40,11 @@ subroutine caldate(juldate,yyyymmdd,hhmiss) integer,parameter :: igreg=2299161 julday=int(juldate) +! PS check to avoid 240000 as hhmiss: + if ((xjuldate-julday)*86400._dp .ge. 86399.5_dp) then + juldate = juldate + juldate-julday-86399.5_dp/86400._dp + julday=int(juldate) + end if(julday.ge.igreg)then jalpha=int(((julday-1867216)-0.25)/36524.25) ja=julday+1+jalpha-int(0.25*jalpha) -- GitLab