Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision | |||
|
bufr.pm:bufrresolve_source [2023-02-05 10:15:44] pals |
bufr.pm:bufrresolve_source [2025-11-05 09:24:36] (current) pals |
||
|---|---|---|---|
| Line 2: | Line 2: | ||
| # | # | ||
| - | # (C) Copyright 2010-2023 MET Norway | + | # (C) Copyright 2010-2025 MET Norway |
| # | # | ||
| # 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 34: | Line 34: | ||
| use constant DEFAULT_TABLE_PATH_BUFRDC => '/ | use constant DEFAULT_TABLE_PATH_BUFRDC => '/ | ||
| use constant DEFAULT_TABLE_PATH_ECCODES => '/ | use constant DEFAULT_TABLE_PATH_ECCODES => '/ | ||
| - | # Ought to be your most up-to-date B table | ||
| - | use constant DEFAULT_TABLE_BUFRDC => ' | ||
| - | use constant DEFAULT_TABLE_ECCODES => ' | ||
| # Parse command line options | # Parse command line options | ||
| Line 113: | Line 110: | ||
| # BUFR table file to use | # BUFR table file to use | ||
| - | my $table = $option{bufrtable} || | + | my $table = $option{bufrtable} || Geo:: |
| - | ($tableformat eq ' | + | |
| my $bufr = Geo:: | my $bufr = Geo:: | ||
| Line 251: | Line 247: | ||
| =head1 COPYRIGHT | =head1 COPYRIGHT | ||
| - | Copyright (C) 2010-2023 MET Norway | + | Copyright (C) 2010-2025 MET Norway |
| =cut | =cut | ||
| </ | </ | ||