Re: finding the top and bottom

Sorry, the code before still had a small typo...

Hi Cory,

A loop like this would also work fine (note that negative loop strides
don't work)...

top=new((/x,y/,integer,-1)
do k=0,z
  top = where(data(:,:,z-k).gt.0.0,z-k,top)
end do

Hope this helps,
Oli
_______________________________________________
ncl-talk mailing list
List instructions, subscriber options, unsubscribe:
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Wed Apr 22 2009 - 00:01:21 MDT