X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=1a1a8a40110905579d6b603c672a0701df4bfffe;hb=5ba129dc8a6560155ab5560b2f603d161d34cecb;hp=d78ff2cd3f007fd67cd7b5233ec3db33551ff699;hpb=0542c1871c9563b7577a4b9a1282fd5d2c203047;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;