Skip to content
Snippets Groups Projects
Commit 17c3c47d authored by Ignacio Pisso's avatar Ignacio Pisso
Browse files

modify caldate.f90 in order to compile 477a0944

parent 477a0944
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment