support/HAFS: Update for regular lat-lon grids to FV3 output change o…

…n coordinate (Cherry-picked from Jili.Dong's commit).

sorc/ncep_post.fd/INITPOST_NETCDF.f

@@ -531,6 +531,18 @@ SUBROUTINE INITPOST_NETCDF(ncid3d)
         end do
         lonstart = nint(glon1d(1)*gdsdegr)
         lonlast  = nint(glon1d(im)*gdsdegr)
+
+! Jili Dong add support for regular lat lon (2019/03/22) start
+       if (MAPTYPE .eq. 0) then
+        if(lonstart<0.)then
+         lonstart=lonstart+360.*gdsdegr
+        end if
+        if(lonlast<0.)then
+         lonlast=lonlast+360.*gdsdegr
+        end if
+       end if
+! Jili Dong add support for regular lat lon (2019/03/22) end 
+
       else if(numDims==2)then
         Status=nf90_get_var(ncid3d,varid,dummy)
         if(maxval(abs(dummy))<2.0*pi)convert_rad_to_deg=.true.