From 8ad7af0608fc67147f8303aa8ea0504850a605d0 Mon Sep 17 00:00:00 2001 From: Lin Zhu Date: Wed, 15 Jun 2022 18:44:40 +0000 Subject: [PATCH 1/3] read in dx/dy instead of caculating them --- sorc/ncep_post.fd/grib2_module.f | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/sorc/ncep_post.fd/grib2_module.f b/sorc/ncep_post.fd/grib2_module.f index 01561b6ed..a9ee60e32 100644 --- a/sorc/ncep_post.fd/grib2_module.f +++ b/sorc/ncep_post.fd/grib2_module.f @@ -1779,13 +1779,15 @@ subroutine getgds(ldfgrd,len3,ifield3len,igds,ifield3) ifield3(15) = latlast ifield3(16) = lonlast ! ifield3(17) = NINT(360./(IM)*1.0E6) - ifield3(17) = abs(lonlast-lonstart)/(IM-1) +! ifield3(17) = abs(lonlast-lonstart)/(IM-1) + ifield3(17) = DXVAL ! if(mod(jm,2) == 0 ) then ! ifield3(18) = NINT(180./JM*1.0E6) ! else ! ifield3(18) = NINT(180./(JM-1)*1.0E6) - ifield3(18) = abs(latlast-latstart)/(JM-1) +! ifield3(18) = abs(latlast-latstart)/(JM-1) ! endif + ifield3(18) = DYVAL if( latstart < latlast ) then ifield3(19) = 64 !for SN scan else From 335a638110e05e36f7f68e282cf7bb10eed8b2ab Mon Sep 17 00:00:00 2001 From: Lin Zhu Date: Thu, 16 Jun 2022 12:33:45 +0000 Subject: [PATCH 2/3] add the change log for dxdy code change --- sorc/ncep_post.fd/grib2_module.f | 1 + 1 file changed, 1 insertion(+) diff --git a/sorc/ncep_post.fd/grib2_module.f b/sorc/ncep_post.fd/grib2_module.f index a9ee60e32..0c54faa8c 100644 --- a/sorc/ncep_post.fd/grib2_module.f +++ b/sorc/ncep_post.fd/grib2_module.f @@ -11,6 +11,7 @@ module grib2_module ! March, 2015 Lin Gan Replace XML file with flat file implementation ! with parameter marshalling ! July, 2021 Jesse Meng 2D decomsition +! June, 2011 Lin Zhu change the dx/dy to reading in from calculating for latlon grid !------------------------------------------------------------------------ use xml_perl_data, only: param_t,paramset_t ! From a0d914523da2bde9c76f8585c4737b2f0b8dc767 Mon Sep 17 00:00:00 2001 From: Lin Zhu Date: Thu, 16 Jun 2022 12:39:20 +0000 Subject: [PATCH 3/3] change 2011 to 2022 in the change log --- sorc/ncep_post.fd/grib2_module.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sorc/ncep_post.fd/grib2_module.f b/sorc/ncep_post.fd/grib2_module.f index 0c54faa8c..bb24fc660 100644 --- a/sorc/ncep_post.fd/grib2_module.f +++ b/sorc/ncep_post.fd/grib2_module.f @@ -11,7 +11,7 @@ module grib2_module ! March, 2015 Lin Gan Replace XML file with flat file implementation ! with parameter marshalling ! July, 2021 Jesse Meng 2D decomsition -! June, 2011 Lin Zhu change the dx/dy to reading in from calculating for latlon grid +! June, 2022 Lin Zhu change the dx/dy to reading in from calculating for latlon grid !------------------------------------------------------------------------ use xml_perl_data, only: param_t,paramset_t !