Hi Kevin and others,
I suspect there are more changes needed. Diffing Unidata's GEMPAK against
NCEP's GEMPAK for the gemlib/ti/ folder and removing the timezone changes.
diff --git a/gempak/source/gemlib/ti/ticcnt.f b/gempak/source/gemlib/ti/ticcnt.f
index b5a62e39..722a5bf0 100644
--- a/gempak/source/gemlib/ti/ticcnt.f
+++ b/gempak/source/gemlib/ti/ticcnt.f
@@ -3,8 +3,8 @@
C************************************************************************
C* TI_CCNT *
C* *
C* This subroutine gets the first 2 digits of a 4-digit year based on *
-C* the standard GEMPAK time. Any 2-digit year less than or equal to 20 *
-C* will be assumed to be in the 21st century; years greater than 20 will*
+C* the standard GEMPAK time. Any 2-digit year less than or equal to 40 *
+C* will be assumed to be in the 21st century; years greater than 40 will*
C* be assumed to be in the 20th century. *
C* *
C* TI_CCNT ( DATTIM, CENT, IRET ) *
@@ -22,6 +22,7 @@ C**
*
C* Log:
*
C* D. Kidwell/NCEP 2/99 *
C* D. Kidwell/NCEP 4/99 Allowed 4-digit year; corrected prologue*
+C* B. Hebbard/NCEP 3/18 Moved century break from 2020 to 2040 *
C************************************************************************
CHARACTER*(*) dattim, cent
C------------------------------------------------------------------------
@@ -37,7 +38,7 @@ C
CALL ST_INTG ( dattim ( 1:2 ), iyear, iret )
IF ( iret .ne. 0 .or. iyear .lt. 0 ) THEN
iret = -7
- ELSE IF ( iyear .le. 20 ) THEN
+ ELSE IF ( iyear .le. 40 ) THEN
cent = '20'
ELSE
cent = '19'
diff --git a/gempak/source/gemlib/ti/tidtm4.f b/gempak/source/gemlib/ti/tidtm4.f
index 42adc6fb..56732911 100644
--- a/gempak/source/gemlib/ti/tidtm4.f
+++ b/gempak/source/gemlib/ti/tidtm4.f
@@ -4,8 +4,8 @@ C* TI_DTM4
*
C* *
C* This subroutine modifies a standard GEMPAK time to include a four- *
C* digit year, instead of a 2-digit year. Any 2-digit year less than or*
-C* equal to 20 will be assumed to be in the 21st century; years greater*
-C* than 20 will be assumed to be in the 20th century. *
+C* equal to 40 will be assumed to be in the 21st century; years greater*
+C* than 40 will be assumed to be in the 20th century. *
C* *
C* TI_DTM4 ( DATTIM, DATTM4, IRET ) *
C* *
@@ -22,6 +22,7 @@ C**
*
C* Log:
*
C* D. Kidwell/NCEP 3/99 *
C* D. Kidwell/NCEP 4/99 Added 4-digit year check; fixed prologue*
+C* B. Hebbard/NCEP 3/18 Moved century break from 2020 to 2040 *
C************************************************************************
CHARACTER*(*) dattim, dattm4
C*
diff --git a/gempak/source/gemlib/ti/tiyy24.f b/gempak/source/gemlib/ti/tiyy24.f
index 22a1e509..f2883063 100644
--- a/gempak/source/gemlib/ti/tiyy24.f
+++ b/gempak/source/gemlib/ti/tiyy24.f
@@ -3,8 +3,8 @@
C************************************************************************
C* TI_YY24 *
C* *
C* This subroutine converts a 2-digit year to a 4-digit year. *
-C* Any 2-digit year less than or equal to 20 will be assumed to be in *
-C* the 21st century; years greater than 20 will be assumed to be in the *
+C* Any 2-digit year less than or equal to 40 will be assumed to be in *
+C* the 21st century; years greater than 40 will be assumed to be in the *
C* 20th century. If the year is greater than 999, it is not changed. *
C* *
C* TI_YY24 ( IYY, IYYYY, IRET ) *
@@ -21,6 +21,7 @@ C**
*
C* Log:
*
C* D. Kidwell/NCEP 3/99 *
C* D. Kidwell/NCEP 4/99 Do not allow 3-digit years *
+C* B. Hebbard/NCEP 3/18 Moved century break from 2020 to 2040 *
C************************************************************************
iret = 0
iyyyy = iyy
@@ -28,7 +29,7 @@ C
IF ( iyy .gt. 999 ) THEN
ELSE IF ( iyy .lt. 0 ) THEN
iret = -7
- ELSE IF ( iyy .le. 20 ) THEN
+ ELSE IF ( iyy .le. 40 ) THEN
iyyyy = 2000 + iyy
ELSE IF ( iyy .le. 99 ) THEN
iyyyy = 1900 + iyy
diff --git a/gempak/source/gemlib/ti/tiyymd.f b/gempak/source/gemlib/ti/tiyymd.f
index eb138787..0a4623d0 100644
--- a/gempak/source/gemlib/ti/tiyymd.f
+++ b/gempak/source/gemlib/ti/tiyymd.f
@@ -4,8 +4,8 @@ C* TI_YYMD
*
C* *
C* This subroutine converts an integer 2-digit year, month and day to *
C* an integer 4-digit year, month and day. Any 2-digit year less than *
-C* or equal to 20 will be assumed to be in the 21st century; years *
-C* greater than 20 will be assumed to be in the 20th century. If the *
+C* or equal to 40 will be assumed to be in the 21st century; years *
+C* greater than 40 will be assumed to be in the 20th century. If the *
C* year is greater than 99, it is assumed to be a 4-digit year already. *
C* *
C* TI_YYMD ( IYYMD, IYYYMD, IRET ) *
@@ -21,6 +21,7 @@ C* -7 = invalid year
*
C** *
C* Log:
*
C* D. Kidwell/NCEP 3/99 *
+C* B. Hebbard/NCEP 3/18 Moved century break from 2020 to 2040 *
C************************************************************************
iret = 0
C
diff --git a/gempak/source/gemlib/ti/tiyyyy.f b/gempak/source/gemlib/ti/tiyyyy.f
index 6ebe9dd2..674b986c 100644
--- a/gempak/source/gemlib/ti/tiyyyy.f
+++ b/gempak/source/gemlib/ti/tiyyyy.f
@@ -3,8 +3,8 @@
C************************************************************************
C* TI_YYYY *
C* *
C* This subroutine reorders a list of GEMPAK times so that times in the *
-C* 20th century (YY greater than 20) precede those in the 21st century *
-C* (YY less than or equal to 20). The input and output arrays may be *
+C* 20th century (YY greater than 40) precede those in the 21st century *
+C* (YY less than or equal to 40). The input and output arrays may be *
C* the same. The input times must be sorted smallest to largest. The *
C* output times will be sorted earliest to latest. *
C* *
@@ -23,6 +23,7 @@ C* Log:
*
C* D. Kidwell/NCEP 2/99 *
C* D. Kidwell/NCEP 4/99 Stored to outime; added check for YYYY *
C* T. Piper/SAIC 4/02 Fixed UMR; checked for ntime < 1 *
+C* B. Hebbard/NCEP 3/18 Moved century break from 2020 to 2040 *
C************************************************************************
CHARACTER*(*) timin (*), outime (*)
C*
@@ -54,7 +55,7 @@ C
i = 1
found = .false.
DO WHILE ( .not. found )
- IF ( timin ( i ) ( 1:2 ) .gt. '20' ) THEN
+ IF ( timin ( i ) ( 1:2 ) .gt. '40' ) THEN
found = .true.
IF ( i .gt. ( ntime / 2 ) ) THEN
down = .true.
Frantically testing this to see if it gets dcmetr and friends back happy.
daryl
--
/**
* daryl herzmann
* Systems Analyst III -- Iowa Environmental Mesonet
* https://mesonet.agron.iastate.edu
*/
________________________________________
From: gembud <gembud-bounces@xxxxxxxxxxxxxxxx> on behalf of Tyle, Kevin R
<ktyle@xxxxxxxxxx>
Sent: Saturday, December 26, 2020 12:33 PM
To: gembud@xxxxxxxxxxxxxxxx
Subject: Re: [gembud] NMAP2 Data Selection Window Not seeing gridded data with
fhrs valid past Dec 31 2020
Looks like $GEMPAK/source/gemlib/ti/tiyy24.f is the file that needs to be
changed.
________________________________
From: gembud <gembud-bounces@xxxxxxxxxxxxxxxx> on behalf of Patrick Marsh
<pmarshwx@xxxxxxxxx>
Sent: Saturday, December 26, 2020 1:07 PM
To: Manousos, Peter C <pmanousos@xxxxxxxxxxxxxxxxxxx>
Cc: gembud@xxxxxxxxxxxxxxxx <gembud@xxxxxxxxxxxxxxxx>
Subject: Re: [gembud] NMAP2 Data Selection Window Not seeing gridded data with
fhrs valid past Dec 31 2020
Hi, Pete,
This is the result of a GEMPAK bug within the time library. The version of
GEMPAK you are using does not recognize the year 2021, rather it reverts back
to 1921. So, instead of a Y2K bug, it's a Y2K21 bug.
The internal NCEP version of GEMPAK had a patch released earlier in December to
address this bug, but I suspect no one has incorporated this patch into the
community version.
Patrick
On Sat, Dec 26, 2020 at 12:00 PM Manousos, Peter C via gembud
<gembud@xxxxxxxxxxxxxxxx<mailto:gembud@xxxxxxxxxxxxxxxx>> wrote:
Greetings. We are experiencing an unusual problem. NMAP2’s (v 7.1.1) data
selection window can’t seem to detect grid files for fhrs valid past Dec 31
2020.
This is happening with all our model grid data no matter if it’s the gfs,
ecmwf, naefs, gefs, etc. and for what its worth, the restore files do NOT have
a fhr limit specified.
Quick example is a listing of today’s 00z ECMWF which is typical and contains
the basic 500, 850 and surface fields out to f240 and which we can plot just
fine using gdplot3
-rw-rw-r-- 1 fewx fewx 890368 Dec 26 00:40 ecmwf_2020122600f000
-rw-rw-r-- 1 fewx fewx 888832 Dec 26 00:55 ecmwf_2020122600f024
-rw-rw-r-- 1 fewx fewx 887296 Dec 26 01:00 ecmwf_2020122600f048
-rw-rw-r-- 1 fewx fewx 884736 Dec 26 01:10 ecmwf_2020122600f072
-rw-rw-r-- 1 fewx fewx 882688 Dec 26 01:15 ecmwf_2020122600f096
-rw-rw-r-- 1 fewx fewx 882688 Dec 26 01:20 ecmwf_2020122600f120
-rw-rw-r-- 1 fewx fewx 882176 Dec 26 01:30 ecmwf_2020122600f144
-rw-rw-r-- 1 fewx fewx 883200 Dec 26 01:35 ecmwf_2020122600f168
-rw-rw-r-- 1 fewx fewx 883712 Dec 26 01:45 ecmwf_2020122600f192
-rw-rw-r-- 1 fewx fewx 884224 Dec 26 01:50 ecmwf_2020122600f216
-rw-rw-r-- 1 fewx fewx 884736 Dec 26 01:55 ecmwf_2020122600f240
However the data selection window in NMAP2 only shows data through fhr 120. At
the time of this writing fhr 120 corresponds to Dec 31 2020 00z.
By tomorrow we will only be able to see in NMAP2 data out through fhr 96 and so
on.
We did try to mess with the Calendar function but this did not help. If anyone
else is experiencing this and if so any workarounds?
Pete
[cid:176a0389f154cff311]
________________________________
The information contained in this message is intended only for the personal and
confidential use of the recipient(s) named above. If the reader of this message
is not the intended recipient or an agent responsible for delivering it to the
intended recipient, you are hereby notified that you have received this
document in error and that any review, dissemination, distribution, or copying
of this message is strictly prohibited. If you have received this communication
in error, please notify us immediately, and delete the original message.
_______________________________________________
NOTE: All exchanges posted to Unidata maintained email lists are
recorded in the Unidata inquiry tracking system and made publicly
available through the web. Users who post to any of the lists we
maintain are reminded to remove any personal information that they
do not want to be made public.
gembud mailing list
gembud@xxxxxxxxxxxxxxxx<mailto:gembud@xxxxxxxxxxxxxxxx>
For list information or to unsubscribe, visit:
https://www.unidata.ucar.edu/mailing_lists/
--
Dr. Patrick Marsh (@pmarshwx)
Chief, Science Support Branch
NOAA/NWS/NCEP Storm Prediction Center
http://www.pmarshwx.com<http://www.pmarshwx.com/>
Attachment:
image001.png
Description: image001.png
gembud archives: