function TAG=latlon2boxtag(BOXLAT,BOXLON) 

% create box tag e.g. 50N60N45W10E
TAG=[]
if BOXLAT(1)>=0
   TAG=cat(2,TAG,int2str(BOXLAT(1)),'N');
else
   TAG=cat(2,TAG,int2str(-BOXLAT(1)),'S');
end
if BOXLAT(2)>=0
   TAG=cat(2,TAG,int2str(BOXLAT(2)),'N');
else
   TAG=cat(2,TAG,int2str(-BOXLAT(2)),'S');
end
if BOXLON(1)>=0
   TAG=cat(2,TAG,int2str(BOXLON(1)),'E');
else
   TAG=cat(2,TAG,int2str(-BOXLON(1)),'W');
end
if BOXLON(2)>=0
   TAG=cat(2,TAG,int2str(BOXLON(2)),'E');
else
   TAG=cat(2,TAG,int2str(-BOXLON(2)),'W');
end
