eccodes/definitions/taf/list_gen.pl

19 lines
254 B
Perl

use strict;
my $end=90;
my $i;
#print "//|Missing\n";
print "00|0.0\n";
for ($i=1; $i<=$end; $i++) {
printf("%02d|%g\n",$i,$i/100);
}
print "92|10";
print "93|15";
print "94|20";
print "95|25";
print "96|30";
print "97|35";
print "98|40 or more";