diff --git a/src/caldate.f90 b/src/caldate.f90 index 81db3385059f4b5d0900c07dd31d10e27cc59fd2..9c93a52ba970f5b58ee3201f2d768c5771639cd7 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)