Skip to content

Commit

Permalink
Fix scaling of negative starting latitude for Gaussian grids in g2print
Browse files Browse the repository at this point in the history
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.
  • Loading branch information
mgduda committed Apr 22, 2020
1 parent 37461b0 commit ddfbcba
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion ungrib/src/g2print.F
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit ddfbcba

Please sign in to comment.