mirror of https://github.com/ecmwf/eccodes.git
52 lines
1.1 KiB
Perl
52 lines
1.1 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
use tigge;
|
||
|
|
use Data::Dumper;
|
||
|
|
|
||
|
|
my $info = tigge::read_info(@ARGV[0]); # "master.info");
|
||
|
|
my $checks = tigge::read_info(@ARGV[1]); # "tigge_check.info");
|
||
|
|
|
||
|
|
#system("p4 edit ../tigge/tigge_check.h");
|
||
|
|
#open(STDOUT,">../tigge/tigge_check.h");
|
||
|
|
|
||
|
|
print "parameter parameters[] = {\n";
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
foreach my $n ( sort keys %{$info} )
|
||
|
|
{
|
||
|
|
|
||
|
|
if($checks->{$n}->{checks} =~ /potential_vorticity_level/)
|
||
|
|
{
|
||
|
|
delete $info->{$n}->{scaleFactorOfFirstFixedSurface};
|
||
|
|
delete $info->{$n}->{scaledValueOfFirstFixedSurface};
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
print " {\n";
|
||
|
|
print " \"$n\",\n";
|
||
|
|
print " $checks->{$n}->{min1},\n";
|
||
|
|
print " $checks->{$n}->{min2},\n";
|
||
|
|
print " $checks->{$n}->{max1},\n";
|
||
|
|
print " $checks->{$n}->{max2},\n";
|
||
|
|
print " {\n";
|
||
|
|
foreach my $m ( sort keys %{$info->{$n}} )
|
||
|
|
{
|
||
|
|
next if($m =~ /\./);
|
||
|
|
next if($m =~ /\_/);
|
||
|
|
my $v = $info->{$n}->{$m};
|
||
|
|
next if($v =~ /#/);
|
||
|
|
next if($v =~ /missing/i);
|
||
|
|
|
||
|
|
print " {\"$m\", $v},\n";
|
||
|
|
}
|
||
|
|
print " {NULL, },\n";
|
||
|
|
print " },\n";
|
||
|
|
print " {";
|
||
|
|
print join(", ",map {"\&$_"} split(",",$checks->{$n}->{checks}));
|
||
|
|
print "},\n";
|
||
|
|
print " },\n\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
print "};\n";
|