Skip to content

Commit

Permalink
Merge remote-tracking branch 'origin/release/gfsv16.0.0' into issue240
Browse files Browse the repository at this point in the history
SPA Jen and Qingfu corrected ush/parse-storm-type.pl. Pulled this into
release/gfsv16.0.0 for v16.0.6.

Refs: NOAA-EMC#240
  • Loading branch information
KateFriedman-NOAA committed Feb 2, 2021
2 parents 446a327 + 1871c7a commit 9f3c6df
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions ush/parse-storm-type.pl
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@

while(defined($_=<>)) {
chomp;
/^((?:NHC |JTWC) [0-59]\d[A-Z]) (\S+)\s+(.*\d\d\d\d\d\d\d\d \d\d\d\d.{34} .. .*)/ or do {
/^((?:NHC |JTWC) [0-589]\d[A-Z]) (\S+)\s+(.*\d\d\d\d\d\d\d\d \d\d\d\d.{34} .. .*)/ or do {
warn "Ignoring invalid line: \"$_\"\n";
next;
};
Expand All @@ -19,7 +19,8 @@
if(length($line)>=152) {
$tctype=substr($_,150,2);
} else {
warn "MISSING STORM TYPE (ASSUME XX): $_\n";
# warn "MISSING STORM TYPE (ASSUME XX): $_\n";
warn "NO STORM TYPE: $_\n";
}
if($tctype =~ /DB|EX|LO|WV|XX/i) {
warn "Ignoring line due to TC type $tctype: $_";
Expand Down

0 comments on commit 9f3c6df

Please sign in to comment.