function hopsgui_velocity_settingsmenu()

% This funtion open a window where differents setting for the 
% velocities can be modificated.

global hopsgui_obj


a = figure('Units','normalized', ...
	'Color',[0.8 0.8 0.8], ...
	'InvertHardcopy','off', ...
	'MenuBar','none', ...
	'Name','Velocity Settings', ...
	'PaperType','a4letter', ...
	'Position',[0.1 0.5 0.125 0.344727], ...
	'Tag','Fig1', ...
	'NumberTitle','off',....
	'DefaultuicontrolUnits','normalized');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.1125 0.314448 0.75 0.0623229], ...
	'String','Velocity Var.', ...
	'Style','text', ...
	'Tag','StaticText1');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','hopsgui_menu_command setarrowreference', ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.1125 0.413598 0.75 0.0594901], ...
	'String',num2str(hopsgui_obj{1}.refvector), ...
	'Style','edit', ...
	'Tag','ColorEdit');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.1125 0.467422 0.75 0.0623229], ...
	'String','Reference Arrow', ...
	'Style','text', ...
	'Tag','StaticText1');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','hopsgui_menu_command setarrowcolor', ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.1125 0.566572 0.75 0.0594901], ...
	'String',hopsgui_obj{1}.vectorcolor, ...
	'Style','edit', ...
	'Tag','ColorEdit');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.1125 0.617564 0.75 0.0594901], ...
	'String','Arrow Color', ...
	'Style','text', ...
	'Tag','StaticText1');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','hopsgui_menu_command setarrowscale', ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.1125 0.708215 0.75 0.0594901], ...
	'String',num2str(hopsgui_obj{1}.fac), ...
	'Style','edit', ...
	'Tag','Arrow Edit Box', ...
	'Value',1);
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.1125 0.764873 0.75 0.0594901], ...
	'String','Arrow Scale', ...
	'Style','text', ...
	'Tag','Arrow Text');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','hopsgui_menu_command setarrowsampling', ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.1125 0.855524 0.75 0.0594901], ...
	'String',num2str(hopsgui_obj{1}.isub), ...
	'Style','edit', ...
	'Tag','Sampling Edit Box');
b = uicontrol('Parent',a, ...
	'Units','normalized', ...
	'BackgroundColor',[0.70196 0.70196 0.70196], ...
	'FontName','times', ...
	'FontSize',12, ...
	'Position',[0.1125 0.912181 0.75 0.0594901], ...
	'String','Sampling', ...
	'Style','text', ...
	'Tag','Sampling Text');
b = uicontrol('Parent',a, ...
	'Units','points', ...
	'BackgroundColor',[0.701961 0.701961 0.701961], ...
	'FontName','times', ...
	'FontSize',12, ...
	'Max',3, ...
	'Min',1, ...
	'Position',[12.8 67.2 96 21.6], ...
	'String',['Total      ';'Baroclinic ';'Geostrophic'], ...
	'Style','popupmenu', ...
	'Callback','hopsgui_menu_command setarrowrvariable', ...	
	'Tag','PopupMenu1', ...
	'Value',1);
