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

Re: 20011213: fix for GEMPAK incint.f

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