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

===============================================================================
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