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
This archive was generated by hypermail 2.2.0 : Fri Apr 24 2009 - 14:12:40 MDT