From ddfbcba361a7c9409eea835b4fe729b7e8e10bc2 Mon Sep 17 00:00:00 2001
From: Michael Duda <duda@ucar.edu>
Date: Wed, 22 Apr 2020 13:26:19 -0600
Subject: [PATCH] Fix scaling of negative starting latitude for Gaussian grids
 in g2print

Following the change in the preceding commit, this commit modifies the g2print
code to ensure that negative starting latitudes for Gaussian grids are scaled
appropriately.
---
 ungrib/src/g2print.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ungrib/src/g2print.F b/ungrib/src/g2print.F
index caebcf8bc..1d33a3567 100644
--- a/ungrib/src/g2print.F
+++ b/ungrib/src/g2print.F
@@ -562,7 +562,7 @@ SUBROUTINE r_grib2(junit, gribflnm, hdate,  &
               endif
 
               ! Scale lat/lon values to 0-180, default range is 1e6.
-              if (map%lat1.ge.scale_factor) then 
+              if (abs(map%lat1).ge.scale_factor) then 
                  map%lat1 = map%lat1/scale_factor
               endif
               if (map%lon1.ge.scale_factor) then