Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-05 23:49:00 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

[lib/ocaml] update leap_seconds

Browse Source 
most recent leap second was inserted on June 30, 2012 at 23:59:60 UTC
So since the gps epoch 1980 we have 16 leap seconds.

closes #549
This commit is contained in:
Felix Ruess
2013-10-05 13:19:08 +02:00
parent cf2e893204
commit 1008f946d8
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/latlong.ml
+9 -2
View File
@@ -469,9 +469,16 @@ let bearing = fun geo1 geo2 ->
((Rad>>Deg)(atan2 dx dy), sqrt(dx*.dx+.dy*.dy))
let leap_seconds = 15 (* http://www.leapsecond.com/java/gpsclock.htm *)
(** Offset between GPS and UTC times in seconds.
* Update when a new leap second is inserted and be careful about times in the
* past when this offset was different.
* Last leap second was inserted on June 30, 2012 at 23:59:60 UTC
* http://www.leapsecond.com/java/gpsclock.htm
*)
let leap_seconds = 16
let gps_epoch = 315964800. (* In seconds, in the unix reference *)
(** Unix timestamp of the GPS epoch 1980-01-06 00:00:00 UTC *)
let gps_epoch = 315964800.
let gps_tow_of_utc = fun ?wday hour min sec ->
let wday =