19991005: gdstat

Steve, 
LLMXTM in $GEMPAKHOME/include/gemprm.$NA_OS is defined by
default to be 200.

$GEMPAKHOME/src/programs/gd/gdstat/gdstat.f uses this size to
define the time array sizes...however, in looking at the code,
I think it should more appropriately use LLMXGT - the maximum number
of grid times which by default is 1000.

So, you can try just changing in gdstat.f the 3 occurances of
LLMXTM to LLMXGT, eg:
       CHARACTER       gtimes ( 2, LLMXTM )*20, times ( LLMXTM )*20,
and
       CALL GD_GTIM  ( igdfln, LLMXTM, gtimes, ntimf, ier)

and then recompiling gdstat with:
cd $GEMPAKHOME/src/programs/gd/gdstat/
make clean
make all
make install
make clean

There doesn't appear to be anything else in the code that is limited by
LLMXTM, and the grid time functions in gemlib should be using LLMXGT.
You should double check that your copy of
$GEMPAKHOME/src/gemlib/gr/grtlst.f has:

CHARACTER*20    timlst (LLMXGT), timout*4
                        ^^^^^^

I made that fix back in January in response to your question:
http://www.unidata.ucar.edu/glimpse/gempak/2683

Steve Chiswell
Unidata User Support



On Tue, 5 Oct 1999, Steven L. Mullen wrote:

> Chiz,
> 
> I need to increase the number to times that GDSTAT
> can process. It appears that the upper limit is 200, because
> when I run with 200 times it works but give bus errors with
> >200.
> 
> What parameters do I need to change to increase this number?
> 
> Thanks in advance.
> 
> Steve
> 
> P.S. You may have answered this for me
> earlier. If so, I apologize for asking the same
> question again. All of my email archives on our
> old platform (IBM) got clobbered.
> 
> --
> -------------------------------------------------------
>      {}               Steven L. Mullen
>      {} {}            Dept. of Atmospheric Sciences
>   {} {} {}            University of Arizona
>   {} {} {}            1118 E. 4th St.
>    {}{}{}             PO Box 210081
>      {}               Tucson, Arizona 85721-0081
>      {}               Tel:(520) 621-6842
>      {}               Fax:(520) 621-6833
>      {}               Email: address@hidden
> -------------------------------------------------------
> 
> 
>