Merge pull request #5 from TimMarchok-NOAA/main

Make light changes to sync with Biju's HAFS version
NOAA-GFDL · Apr 12, 2023 · ed1d3e6 · ed1d3e6
2 parents 2628696 + d2725bf
commit ed1d3e6
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/gettrk_main.f b/gettrk_main.f
@@ -8828,6 +8828,7 @@ subroutine get_shear (imax,jmax,inp,dx,dy
       else
 
         shear_dir_from = -999.0
+        shear_dir_point_to = -999.0
 
       endif
 
@@ -10274,7 +10275,6 @@ subroutine output_atcfunix (outlon,outlat,inp,ist
         case ('P','p');  basinid = 'SP'
         case ('S','s');  basinid = 'SI'
         case ('B','b');  basinid = 'BB'
-!zhang        case ('A','a');  basinid = 'NA'
         case ('A','a');  basinid = 'AA'
         case ('Q','q');  basinid = 'SL'
         case default;    basinid = 'HC'
@@ -10692,7 +10692,6 @@ subroutine output_aext (outlon,outlat,inp,ist
         case ('P','p');  basinid = 'SP'
         case ('S','s');  basinid = 'SI'
         case ('B','b');  basinid = 'BB'
-!zhang        case ('A','a');  basinid = 'NA'
         case ('A','a');  basinid = 'AA'
         case ('Q','q');  basinid = 'SL'
         case default;    basinid = 'HC'
@@ -11310,7 +11309,7 @@ subroutine output_atcf (fixlon,fixlat,inp,xmaxwind,maxstorm
           case ('P','p');  basinid(1:2) = 'SP'
           case ('S','s');  basinid(1:2) = 'SI'
           case ('B','b');  basinid(1:2) = 'BB'
-          case ('A','a');  basinid(1:2) = 'NA'
+          case ('A','a');  basinid(1:2) = 'AA'
           case ('Q','q');  basinid(1:2) = 'SL'
           case default;    basinid(1:2) = '**'
         end select