Changeset 477a094 in flexpart.git

Timestamp:

Jul 27, 2020, 10:52:49 AM (4 years ago)

Author:

pesei <petra.seibert at univie.ac.at>

Branches:

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

Children:

17c3c47

Parents:

3405994

Message:

Modified caldate.f90 to avoid output of hhmiss as 240000
(will become 000000 with date addjusted), see ticket:281

File:

• src/caldate.f90 (modified) (2 diffs)

src/caldate.f90

@@ -27 +27 @@
   !     igreg          help constant                                           *
   !                                                                            *
+  !     PS 2020-07-27: add a check to avoid giving back 240000 for hhmiss      *
+  !                                                                            *
   !*****************************************************************************
 
@@ -39 +41 @@
 
   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)