[
Date Prev][
Date Next][
Thread Prev][
Thread Next][
Date Index][
Thread Index]
Re: 20011213: fix for GEMPAK incint.f
- Subject: Re: 20011213: fix for GEMPAK incint.f
- Date: Thu, 13 Dec 2001 12:42:03 -0700
David,
I have made the change to incint.f for our next distribution and passed
this information back to NCEP.
Thanks,
Steve Chiswell
Unidata User SUpport
On Thu, 13 Dec 2001, Unidata Support wrote:
>
> ------- Forwarded Message
>
> >To: address@hidden
> >cc: address@hidden (Harry Edmon)
> >From: David Ovens <address@hidden>
> >Subject: fix for GEMPAK incint.f
> >Organization: UCAR/Unidata
> >Keywords: 200111270046.fAR0ksN21676
>
> Gempak Support Folks (Steve Chiswell),
>
> I have a fix for incint.f that now allows a user to specify FINT in
> gdplot2 with more than 72 characters (before this the values get
> truncated at character 72) so the following
>
> FINT =
> -50;-47;-44;-41;-38;-35;-32;-29;-26;-23;-20;-17;-14;-11;-8;-5;-2;1;4;7;10;13;16;19;22;25;28;31;34;37
>
> is treated like
>
> FINT =
> -50;-47;-44;-41;-38;-35;-32;-29;-26;-23;-20;-17;-14;-11;-8;-5;-2;1;4;7;1
>
> and you get
> [GEMPLT -30] NOMONO - Points are not monotonic.
>
> So in NAWIPS-5.6.E.1/gempak/source/gemlib/in/incint.f, change:
> CHARACTER*72 substr (3)
> to
> CHARACTER*(LLMXLN) substr (3)
>
> I have not examined the other files in the directory in detail, but a
> 'grep 72 *.f' yields these other potential problems:
>
> inaxis.f: CHARACTER*72 substr (4)
> incclr.f: CHARACTER carr (4)*72, first*4, last*4, inc*4,
> tstr*72
> incint.f: CHARACTER*72 substr (3)
> inintc.f: CHARACTER*72 substr (3)
> inparm.f: CHARACTER prmstr*72
> inrvec.f: CHARACTER rrr*72, rrr2*72
> inskip.f: CHARACTER carr (2)*72
> intxtn.f: CHARACTER chtext (6) *72
>
>
> Thanks,
>
> David
> --
>
> David Ovens e-mail: address@hidden
> (206) 685-8108 plan: Real-time MM5 forecasting for Pacific Northwest
> Research Meteorologist
> Dept of Atmospheric Sciences, Box 351640
> University of Washington
> Seattle, WA 98195
>
>
> ------- End of Forwarded Message
>
