Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
bufr.pm:bufrdump.pl_source [2018-04-25 08:41:39] pals |
bufr.pm:bufrdump.pl_source [2022-05-31 09:29:31] (current) |
||
---|---|---|---|
Line 2: | Line 2: | ||
# | # | ||
- | # (C) Copyright 2010-2018, met.no | + | # (C) Copyright 2010, met.no |
# | # | ||
# This program is free software; you can redistribute it and/or modify | # This program is free software; you can redistribute it and/or modify | ||
Line 39: | Line 39: | ||
' | ' | ||
' | ' | ||
- | ' | + | ' |
' | ' | ||
' | ' | ||
Line 188: | Line 188: | ||
if ($txt) { | if ($txt) { | ||
if ($sort) { | if ($sort) { | ||
- | # Sort wmonr before nationalnr before call | + | # Sort wmonr before nationalnr before call sign before |
- | # sign before | + | # buoy_id before aircraft |
if ($msg{wmonr}) { | if ($msg{wmonr}) { | ||
$stnid = ' | $stnid = ' | ||
Line 200: | Line 200: | ||
} elsif ($msg{aircraft}) { | } elsif ($msg{aircraft}) { | ||
$stnid = ' | $stnid = ' | ||
+ | } elsif ($msg{icao_id}) { | ||
+ | $stnid = ' | ||
} elsif ($msg{wigosid}) { | } elsif ($msg{wigosid}) { | ||
- | $stnid = '50_' . $msg{wigosid}; | + | $stnid = '60_' . $msg{wigosid}; |
} else { | } else { | ||
# Skip observation if no station identification found | # Skip observation if no station identification found | ||
Line 534: | Line 536: | ||
return if !$req_stations; | return if !$req_stations; | ||
die " | die " | ||
- | . "' | + | . "' |
unless $req_stations | unless $req_stations | ||
- | =~ / | + | =~ / |
my ($id, $rest) = split /=/, $req_stations; | my ($id, $rest) = split /=/, $req_stations; | ||
Line 696: | Line 698: | ||
--sort | --sort | ||
first stations with wmonr, then stations with nationalnr, | first stations with wmonr, then stations with nationalnr, | ||
- | | + | |
+ | | ||
--sort_on < | --sort_on < | ||
values of parameter, or decreasing values if a ' | values of parameter, or decreasing values if a ' | ||
Line 836: | Line 839: | ||
--station buoyid=64607, | --station buoyid=64607, | ||
--station aircraft=EU3421, | --station aircraft=EU3421, | ||
+ | --station icao_id=ENGM, | ||
--station wigosid=0-376-0-511, | --station wigosid=0-376-0-511, | ||
You cannot mix different kinds of stations this way (before ' | You cannot mix different kinds of stations this way (before ' | ||
- | must choose either wmonr, nationalnr, call_sign, buoy_id, aircraft | + | must choose either wmonr, nationalnr, call_sign, buoy_id, aircraft, |
- | wigosid). Note also that providing the stations in the BUFR descriptor | + | icao_id or wigosid). Note also that providing the stations in the BUFR |
- | part (first part) of the filter file will speed up execution time | + | descriptor |
- | considerably, | + | execution time considerably, |
- | combine --filter with --station if done with some care, | + | possible to combine --filter with --station if done with some care, |
e.g. specifying WMO block 01 and the required parameters in filter | e.g. specifying WMO block 01 and the required parameters in filter | ||
file, then the requested stations in station list. | file, then the requested stations in station list. |