Scripts: WMO tables and surface types

This commit is contained in:
Shahram Najm 2021-04-28 16:22:28 +01:00
parent ebe1670b66
commit db0a97e39a
1 changed files with 5 additions and 2 deletions

View File

@ -180,8 +180,11 @@ sub TranslateCodes_Table_4_4 {
###################################################################################################
sub TranslateCodes_Table_4_5 {
my ($code) = @_;
return "sfc" if ($code eq "1" || $code eq "8" || $code eq "17" || $code eq "18" ||
$code eq "101" || $code eq "103" || $code eq "106" || $code eq "177");
return "sfc" if ($code eq "1" || $code eq "7" ||
$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 "ml" if ($code eq "105");
return "pt" if ($code eq "107");