Commit 17c3c47d authored by Ignacio Pisso's avatar Ignacio Pisso
Browse files

modify caldate.f90 in order to compile 477a0944

parent 477a0944
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment