mirror of https://github.com/ecmwf/eccodes.git
19 lines
254 B
Perl
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";
|
||
|
|
|