function [z,x] = roms_slice_var(data,grd,index,slice,time)

