% take the merged time series matrix generated by whole and 
% create netcdf files
%
%load wholelp
do_names2

vnames=['east '
        'north'];
[m,n]=size(cdf_groups);
for i=1:m
     group=cdf_groups(i,:);
     cdf=group;
     ind=min(find(group==' '));
     cdf(ind:ind+6)='_lp.cdf' 
     v=[real(wlp(:,i)) imag(wlp(:,i))];
     create2(cdf,v,vnames,ll(i,2),ll(i,1),start,3600,water_depth(i),...
         [inst_depth(i) inst_depth(i)],'''cm/s''');
end
wind_strlp=bb_strlp;
wind=[real(wind_strlp) imag(wind_strlp)];
idepth=[-13.8  -13.8];
wdepth=0.;

create2('wind_str_lp.cdf',wind,vnames,wind_ll(1,2),wind_ll(1,1),...
  start,3600,wdepth,idepth,'''dynes/cm2''');
