mirror of https://github.com/ecmwf/eccodes.git
Scripts: WMO tables and surface types
This commit is contained in:
parent
ebe1670b66
commit
db0a97e39a
|
@ -180,8 +180,11 @@ sub TranslateCodes_Table_4_4 {
|
||||||
###################################################################################################
|
###################################################################################################
|
||||||
sub TranslateCodes_Table_4_5 {
|
sub TranslateCodes_Table_4_5 {
|
||||||
my ($code) = @_;
|
my ($code) = @_;
|
||||||
return "sfc" if ($code eq "1" || $code eq "8" || $code eq "17" || $code eq "18" ||
|
return "sfc" if ($code eq "1" || $code eq "7" ||
|
||||||
$code eq "101" || $code eq "103" || $code eq "106" || $code eq "177");
|
$code eq "8" || $code eq "17" || $code eq "18" ||
|
||||||
|
$code eq "101" || $code eq "103" || $code eq "106" ||
|
||||||
|
$code eq "162" || $code eq "166" || $code eq "174" ||
|
||||||
|
$code eq "177");
|
||||||
return "pl" if ($code eq "100");
|
return "pl" if ($code eq "100");
|
||||||
return "ml" if ($code eq "105");
|
return "ml" if ($code eq "105");
|
||||||
return "pt" if ($code eq "107");
|
return "pt" if ($code eq "107");
|
||||||
|
|
Loading…
Reference in New Issue