mirror of https://github.com/ecmwf/eccodes.git
52 lines
862 B
Perl
Executable File
52 lines
862 B
Perl
Executable File
#!/usr/bin/perl
|
|
use Data::Dumper;
|
|
use tigge;
|
|
|
|
my $info = tigge::read_info(@ARGV[0]);
|
|
|
|
my %x;
|
|
|
|
foreach my $n ( sort keys %{$info} )
|
|
{
|
|
my $p = $info->{$n}->{'mars.param'};
|
|
my $z = $info->{$n};
|
|
|
|
if(exists $x{$p})
|
|
{
|
|
# Find differences
|
|
my %z;
|
|
my @z = keys %{$x{$p}};
|
|
|
|
foreach my $k ( keys %{$z} )
|
|
{
|
|
$z{$k} = $z->{$k} if($x{$p}->{$k} eq $z->{$k});
|
|
}
|
|
|
|
$z = \%z;
|
|
}
|
|
|
|
$x{$p} = $z;
|
|
|
|
}
|
|
|
|
foreach my $k ( sort { $x{$a}->{tigge_name} cmp $x{$b}->{tigge_name} } keys %x )
|
|
{
|
|
print "----------------------------------------------\n";
|
|
print "$x{$k}->{'mars.abbreviation'}\t\t$x{$k}->{tigge_name}\n";
|
|
|
|
foreach my $m ( sort keys %{$x{$k}} )
|
|
{
|
|
|
|
next if($m =~ /\./);
|
|
next if($m =~ /\_/);
|
|
my $v = $x{$k}->{$m};
|
|
next if($v =~ /#/);
|
|
next if($v =~ /missing/i);
|
|
|
|
print " $m = $v;\n";
|
|
}
|
|
|
|
print "----------------------------------------------\n";
|
|
}
|
|
|