projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
incoming pc39 doesn't cause an outgoing one
[spider.git]
/
perl
/
Geomag.pm
diff --git
a/perl/Geomag.pm
b/perl/Geomag.pm
index d78ff2cd3f007fd67cd7b5233ec3db33551ff699..1a1a8a40110905579d6b603c672a0701df4bfffe 100644
(file)
--- a/
perl/Geomag.pm
+++ b/
perl/Geomag.pm
@@
-73,8
+73,12
@@
sub update
# my $trydate = cltounix($mydate, sprintf("%02d18Z", $mytime));
if ($mydate >= $date) {
# my $trydate = cltounix($mydate, sprintf("%02d18Z", $mytime));
if ($mydate >= $date) {
+ if ($myr) {
+ $r = 0 + $myr;
+ } else {
+ $r = 0 unless abs ($mysfi - $sfi) > 3;
+ }
$sfi = 0 + $mysfi;
$sfi = 0 + $mysfi;
- $r = 0 + $myr unless !$r && $myk == $k;
$k = 0 + $myk;
$a = 0 + $mya;
$forecast = $myforecast;
$k = 0 + $myk;
$a = 0 + $mya;
$forecast = $myforecast;