X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=1a1a8a40110905579d6b603c672a0701df4bfffe;hb=c961a6af6d9aec8eba4d58803f890fc514a109cc;hp=d78ff2cd3f007fd67cd7b5233ec3db33551ff699;hpb=fe322eb02369fded6defe0f3fa7ae6530496ef9c;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index d78ff2cd..1a1a8a40 100644
--- 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;