bufr.pm:bufrresolve_source

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

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:
 #!/usr/bin/perl #!/usr/bin/perl
  
-# (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 => '/usr/local/lib/bufrtables'; use constant DEFAULT_TABLE_PATH_BUFRDC => '/usr/local/lib/bufrtables';
 use constant DEFAULT_TABLE_PATH_ECCODES => '/usr/local/share/eccodes/definitions/bufr/tables'; use constant DEFAULT_TABLE_PATH_ECCODES => '/usr/local/share/eccodes/definitions/bufr/tables';
-# Ought to be your most up-to-date B table 
-use constant DEFAULT_TABLE_BUFRDC => 'B0000000000000037000'; 
-use constant DEFAULT_TABLE_ECCODES => '0/wmo/37'; 
  
 # 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::BUFR->get_max_table_version();
-    ($tableformat eq 'BUFRDC' ? DEFAULT_TABLE_BUFRDC DEFAULT_TABLE_ECCODES);+
  
 my $bufr = Geo::BUFR->new(); my $bufr = Geo::BUFR->new();
Line 251: Line 247:
 =head1 COPYRIGHT =head1 COPYRIGHT
  
-Copyright (C) 2010-2023 MET Norway+Copyright (C) 2010-2025 MET Norway
  
 =cut =cut
 </code> </code>
  • bufr.pm/bufrresolve_source.1675592144.txt.gz
  • Last modified: 2023-02-05 10:15:44
  • by pals