Fixed console to wrap.

[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) {
+                       if ($myr) {
+                               $r = 0 + $myr;
+                       } else {
+                               $r = 0 unless abs ($mysfi - $sfi) > 3;
+                       }
                        $sfi = 0 + $mysfi;
-            $r = 0 + $myr unless !$r && $myk == $k;
                        $k = 0 + $myk;
                        $a = 0 + $mya;
                        $forecast = $myforecast;