function trm=velx(ffreqs,dirs,wns,z,depth,xpos,ypos)

trm=(i*wns)*sin(dirs);