function makeCodarM2( infile )

if( nargin == 0 )
    infile = '2006_2007';
end
load(infile);

lat_m2 = -122.39;
lon_m2 = 36.70;
index_m2 = find(min(abs(codar_lon-lon_m2)) == abs(codar_lon-lon_m2) & min(abs(codar_lat-lat_m2)) == abs(codar_lat-lat_m2) )
codar_lat_m2 = codar_lat(index_m2);
codar_lon_m2 = codar_lon(index_m2);
codar_u_m2 = codar_u(index_m2,:);
codar_v_m2 = codar_v(index_m2,:);
save([infile '_m2'], 'codar_time', 'codar_lat_m2', 'codar_lon_m2', 'codar_u_m2', 'codar_v_m2');