886,11 → 886,10 |
{ |
push(@{$self->{sky}},$tok); |
push(@{$self->{SKY}}, "Sky Clear"); |
push(@{$self->{SKY_RUS}}, "ясно"); |
push(@{$self->{SKY_RUS}}, "Ясно"); |
push(@{$self->{SKY_RAW}},$tok); |
push(@{$self->{weather}},$tok); |
push(@{$self->{WEATHER}},"No significant weather"); |
push(@{$self->{WEATHER_RUS}},"без существенных изменений"); |
$self->{visibility} = '9999'; |
$parsestate = $expect_temperature; |
next; |
904,7 → 903,7 |
{ |
push(@{$self->{sky}},$tok); |
push(@{$self->{SKY}}, "Sky Clear"); |
push(@{$self->{SKY_RUS}}, "ясно"); |
push(@{$self->{SKY_RUS}}, "Ясно"); |
push(@{$self->{SKY_RAW}},$tok); |
print "[$tok] is a sky condition.\n" if $self->{debug}; |
$parsestate = $expect_clouds; |
1440,8 → 1439,8 |
## |
|
{ |
my $windspeed = $self->{WIND_MS}*3.6; |
$self->{TEMP_WC} = 13.12 + 0.6215*$self->{TEMP_C} - 11.37*($windspeed**0.16) + 0.3965*$self->{TEMP_C}*($windspeed**0.16); |
my $windspeed = $self->{WIND_MS}*3.6; |
$self->{TEMP_WC} = 13.12 + 0.6215*$self->{TEMP_C} - 11.37*($windspeed**0.16) + 0.3965*$self->{TEMP_C}*($windspeed**0.16); |
} |
|
## |
1895,7 → 1894,7 |
|
Test suite is small and incomplete. Needs work yet. |
|
Older versions of original module were installed as "METAR" instaed of |
Older versions of this module were installed as "METAR" instaed of |
"Geo::METAR" |
|
=head1 BUGS |