Changeset 17c3c47 in flexpart.git

Timestamp:

Aug 5, 2020, 2:32:48 PM (4 years ago)

Author:

Ignacio Pisso <ip@…>

Branches:

10.4.1_pesei, bugfixes+enhancements, release-10.4.1, scaling-bug

Children:

f0a2e58

Parents:

477a094

Message:

modify caldate.f90 in order to compile 477a094

File:

• src/caldate.f90 (modified) (1 diff)

src/caldate.f90

@@ -42 +42 @@
   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)