Sync merge remote-tracking branch 'origin/release/gfs.v16.3.21' into …

…release/gfs.v16.3.22

* origin/release/gfs.v16.3.21:
  Fix for syndat_getjtbul code parsing 3-character storm names (GFSv16.3.21) (#3200)

sorc/syndat_getjtbul.fd/getjtbul.f

@@ -104,27 +104,35 @@ PROGRAM SYNDAT_GETJTBUL
            END IF
          END DO
 
-         IF(INL1(26).EQ.' '.or.INL1(27).EQ.' ') THEN
+         IF(INL1(25).EQ.' '.or.INL1(26).EQ.' '.or.INL1(27).EQ.' ') THEN
 
 c ... THIS RECORD STILL CONTAINS THE OLD 2-DIGIT FORM OF THE YEAR -
 c ... THIS PROGRAM WILL NOW CONVERT THE RECORD TO A 4-DIGIT YEAR USING
 c      THE "WINDOWING" TECHNIQUE SINCE SUBSEQUENT LOGIC EXPECTS THIS
 
-          IF(INL(18:19).EQ.'20') THEN
+          IF(INL(17:18).EQ.'20') THEN
+            DUMY2K(1:16) = INL(1:16)
+            DUMY2K(17:19) = '   '
+            DUMY2K(20:80) = INL(17:77)
+            INL= DUMY2K
+            PRINT *, ' '
+            PRINT *, '==> This is a record with a 4-digit year'
+            PRINT *, ' '
+          ELSE IF(INL(18:19).EQ.'20') THEN
             DUMY2K(1:17) = INL(1:17)
             DUMY2K(18:19) = '  '
             DUMY2K(20:80) = INL(18:78)
             INL= DUMY2K
             PRINT *, ' '
-            PRINT *, '==> This is an new-format record with a 4-digit '
+            PRINT *, '==> This is a record with a 4-digit year'
             PRINT *, ' '
           ELSE IF(INL(19:20).EQ.'20') THEN
             DUMY2K(1:18) = INL(1:18)
             DUMY2K(19:19) = ' '
             DUMY2K(20:80) = INL(19:79)
             INL= DUMY2K
             PRINT *, ' '
-            PRINT *, '==> This is an new-format record with a 4-digit '
+            PRINT *, '==> This is a record with a 4-digit year'
             PRINT *, ' '
           ELSE
             PRINT *, ' '