Re: 20021025: gdcntr malfunction?

Art,

In GDCNTR, the IM_LUTF call is currently before the call to
clear the screen, and this wipes out the lut for the 24 bit xw
driver where the lut is only available after a reload.
A feature introduced the changes to the xw driver were made.

In your copy of $GEMPAK/source/programs/gd/gdcntr/gdcntr.f,
you can comment out the call to IM_LUTF following the
GG_PANL calol and instead add a call between the
GCLEAR and IM_DROP calls like:

C
C*              Draw contours.
C
                IF  ( proces )  THEN
C
C*                Clear screen if requested.
C
                  IF  ( clear )  CALL GCLEAR ( ier )
C
C*                Apply LUT file first time  (add the 2 lines below )
C
                  IF  ( first )
     +                 CALL IM_LUTF ( lutfil, ier )
C
C*                Display satellite image, if desired.
C
                  IF ( ( idrpfl .eq. 1 ) .or.
     +                 ( idrpfl .eq. 0 .and. clear ) ) THEN
                       CALL IM_SBAR ( imbar, iret )
                       CALL IM_DROP ( iret)
                  END IF

Steve Chiswell
Unidata User Support


On Fri, 25 Oct 2002, General Support wrote:

> In-reply-to: Your message of "Fri, 25 Oct 2002 14:14:35 EDT."
>              <Pine.SOL.4.30.0210251411080.512-100000@sysadm>
> Date: Fri, 25 Oct 2002 14:09:17 -0600
> From: Unidata Support <address@hidden>
>
>
>
>
> >From: "Arthur A. Person" <address@hidden>
> >Organization: UCAR/Unidata
> >Keywords: 200210251819.g9PIJSq16036
>
> >Hi...
> >
> >We're trying to use gdcntr to overlay contours on an image background...
> >this seemed to work okay up through version 5.6.e but then from 5.6.f
> >onward the background image doesn't display, only the contours.  Here's an
> >example script we're trying to run:
> >
> >#!/bin/csh -x
> >source /home/gempak/gempak-5.6.f/Gemenviron
> >
> >gdcntr << EOF
> >GDATTIM  = f000
> >GLEVEL   = 500
> >GVCORD   = PRES
> >GFUNC    = HGHT
> >GDFILE   = $HDS/2002102512_eta211.gem
> >LINE     = 22;5/1;1/6;6/0
> >MAP      = 32/1/2
> >TITLE    = 1/-1/~
> >DEVICE   = xw|test|
> >SATFIL   = $SAT/GOES-8/4km/IR/IR_20021025_1215
> >RADFIL   =
> >PROJ     = sat
> >AREA     = DEFAULT
> >GAREA    = US
> >CLEAR    = y
> >PANEL    = 0
> >TEXT     = 1.4/2/1/hw
> >SCALE    = -1
> >LATLON   = 0
> >HILO     =
> >HLSYM    =
> >CLRBAR   =
> >CONTUR   = 3/3
> >SKIP     = 0
> >FINT     =
> >FLINE    =
> >CTYPE    = C
> >LUTFIL   = $GEMPAKHOME/tables/luts/lingray.tbl
> >\$mapfil = mepowo.gsf
> >r
> >
> >e
> >EOF
> >gpend
> >
> >exit
> >
> >
> >Any ideas?
> >
> >                      Thanks.
> >
> >                        Art.
> >
> >Arthur A. Person
> >Research Assistant, System Administrator
> >Penn State Department of Meteorology
> >email:  address@hidden, phone:  814-863-1563
> >
>
>