

function retval = MakeFileNameDescriptor (currspeed, depth, wind, Hs, Tp)
  
retval = ['_c' num2str(currspeed) 'u_d' num2str(depth) '_w' num2str(wind) '_Hs' num2str(Hs)];

if(Hs > 0)
   retval = [retval '_Tp' num2str(Tp)];
end


endfunction
