Редакция 7 | Редакция 9 | К новейшей редакции | Весь файл | Не учитывать пробелы | Содержимое файла | Авторство | Последнее изменение | Открыть журнал | RSS
| Редакция 7 | Редакция 8 | ||
|---|---|---|---|
| Строка 328... | Строка 328... | ||
| 328 | CLR => "ясно", |
328 | CLR => "ясно", |
| 329 | SCT => "переменная облачность", |
329 | SCT => "переменная облачность", |
| 330 | BKN => "переменная облачность", |
330 | BKN => "переменная облачность", |
| 331 | FEW => "слабая облачность", |
331 | FEW => "слабая облачность", |
| 332 | OVC => "сплошная облачность", |
332 | OVC => "сплошная облачность", |
| 333 | NSC => "незначительная облачность", |
333 | NSC => "нет существенной облачности", |
| 334 | NCD => "безоблачно", |
334 | NCD => "безоблачно", |
| 335 | ); |
335 | ); |
| 336 | 336 | ||
| 337 | my %_trend_types = ( |
337 | my %_trend_types = ( |
| 338 | BLU => "8 km view", |
338 | BLU => "8 km view", |
| Строка 1328... | Строка 1328... | ||
| 1328 | $mps_gust = $1; |
1328 | $mps_gust = $1; |
| 1329 | $kts_gust = $mps_gust * 1.9438445; |
1329 | $kts_gust = $mps_gust * 1.9438445; |
| 1330 | $mph_gust = $mps_gust * 2.2369363; |
1330 | $mph_gust = $mps_gust * 2.2369363; |
| 1331 | }
|
1331 | }
|
| 1332 | } else { |
1332 | } else { |
| 1333 | warn "Mod::Geo::METAR Parser error: unknown windtype\n"; |
1333 | warn "Geo::ModMETAR Parser error: unknown windtype\n"; |
| 1334 | }
|
1334 | }
|
| 1335 | 1335 | ||
| 1336 | $self->{WIND_KTS} = $kts_speed; |
1336 | $self->{WIND_KTS} = $kts_speed; |
| 1337 | $self->{WIND_MPH} = $mph_speed; |
1337 | $self->{WIND_MPH} = $mph_speed; |
| 1338 | $self->{WIND_MS} = $mps_speed; |
1338 | $self->{WIND_MS} = $mps_speed; |
| Строка 1432... | Строка 1432... | ||
| 1432 | } elsif (($self->{MOD} eq 'AUTO') and ($vis =~ /(\d+)NDV$/)){ |
1432 | } elsif (($self->{MOD} eq 'AUTO') and ($vis =~ /(\d+)NDV$/)){ |
| 1433 | $self->{VISIBILITY} = "$1 meters non-directional visibility"; |
1433 | $self->{VISIBILITY} = "$1 meters non-directional visibility"; |
| 1434 | $self->{VISIBILITY_RUS} = "$1 м непрямой видимости"; |
1434 | $self->{VISIBILITY_RUS} = "$1 м непрямой видимости"; |
| 1435 | } else { |
1435 | } else { |
| 1436 | $self->{VISIBILITY} = $vis . " meters"; |
1436 | $self->{VISIBILITY} = $vis . " meters"; |
| - | 1437 | if ($vis<1000) { |
|
| 1437 | $self->{VISIBILITY_RUS} = $vis . " м"; |
1438 | $self->{VISIBILITY_RUS} = $vis . " м"; |
| - | 1439 | } else { |
|
| - | 1440 | $vis = $vis/1000; |
|
| - | 1441 | if (abs($vis-int($vis))>=0.5) { |
|
| - | 1442 | $vis = int($vis)+1; |
|
| - | 1443 | } else { |
|
| - | 1444 | $vis = int($vis); |
|
| - | 1445 | }
|
|
| - | 1446 | $self->{VISIBILITY_RUS} = $vis . " км"; |
|
| - | 1447 | }
|
|
| 1438 | }
|
1448 | }
|
| 1439 | }
|
1449 | }
|
| 1440 | 1450 | ||
| 1441 | ##
|
1451 | ##
|
| 1442 | ## Calculate F temps for all C temps
|
1452 | ## Calculate F temps for all C temps
|