skewt_func()

Greetings,

[Maybe this is one for Dennis Shea: his name is all over the code :-) ]

I have an interesting issue with skewt_func() (admittedly slightly
modified)

I hope the code outline below is enough to specify the problem.

procedure sounding(...)
begin
        wks = gsn_open_wks(...)
        skewt_bkgd = skewT_BackGround(wks, opts)
        draw(skewt_bkgd)
        skewt_data = skewT_PlotData(wks, skewt_bkgd, ...)
        frame(wks)
end

procedure plot_contour(...)
begin
        create "name" imageWorkstationClass defaultapp
                ; wkHeight, Width, etc
        end create
        ...
end

If the above are called thus

begin
        ...
        sounding(...)
        plot_contour(...)
        ...
end

then it bombs with
        fatal:_NclCreateHLUObjOp: Parent value is not an hlu object or is undefined

Line number indicated is that of "end create". I get the same behaviour
with xWorkStationClass (Both "sounding" & "plot_contour" use the same
WorkStationClass).

However, if called like this

begin
        ...
        plot_contour(...)
        sounding(...)
end

Everything is OK (for both .png and X11)!

Clearly the fix is obvious, but it would be nice to make the code fully
bulletproof.

Any ideas?

Thanks

PaulS

_______________________________________________
ncl-talk mailing list
List instructions, subscriber options, unsubscribe:
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Tue Feb 14 10:33:32 2012