[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: no data decoded by Gempak 02/29? (fwd)

This archive contains answers to questions sent to Unidata support through mid-2025. Note that the archive is no longer being updated. We provide the archive for reference; many of the answers presented here remain technically correct, even if somewhat outdated. For the most up-to-date information on the use of NSF Unidata software and data services, please consult the Software Documentation first.

  • Subject: Re: no data decoded by Gempak 02/29? (fwd)
  • Date: Tue, 29 Feb 2000 10:25:22 -0700 (MST)

===============================================================================
Robb Kambic                                Unidata Program Center
Software Engineer III                      Univ. Corp for Atmospheric Research
address@hidden             WWW: http://www.unidata.ucar.edu/
===============================================================================

---------- Forwarded message ----------
Date: Tue, 29 Feb 2000 09:32:35 -0700 (MST)
From: John D. Horel <address@hidden>
To: address@hidden, address@hidden
     address@hidden
Subject: Re: no data decoded by Gempak 02/29?

all:

one of the problems is in gemlib/ti/tictoi.f

there is a fix for the year 1900 that screws up the year 2000.

 here is a temporary patch
C
C*      Change February in leap year.
C
        jmonth = imonth
        IF  ( ( jmonth .eq. 2 ) .and.
     +        ( MOD ( iyear, 4 ) .eq. 0 ) )  jmonth = 13

you can fix it more elegantly if you want by looking at the other routines in 
that directory, but right now i'm scrambling to get things going again. (while 
trying to figure out where the problem was, i'd disabled the more elegant 
solutions and am just checking for mod (iyear,4))

with this fix i'm now able to process surface data that we need to get mesonet 
going again.

john