clear all

lyear=2000;
imonth=1;
idaymonth=11;
iwkend=15;

syr=num2str(lyear,'%4.4i');sdy=num2str(idaymonth,'%2.2i');
smn=num2str(imonth,'%2.2i');swkend=num2str(iwkend,'%2.2i');

for itype=1:3,
    switch itype
        case 1  %3-day
            % insert your directory structure:  file_directory='YourDrive\YourDirectory\data\'
            file_directory=''; 
            filename=strcat(file_directory,'qscat_',syr,smn,sdy,'v4_3day');
            
        case 2  %week
            % insert your directory structure:  file_directory='YourDrive\YourDirectory\data\'
            file_directory='';
            filename=strcat(file_directory,'qscat_',syr,smn,swkend,'v4'); 
            
        case 3  %month
            % insert your directory structure:  file_directory='YourDrive\YourDirectory\data\'
            file_directory='';
            filename=strcat(file_directory,'qscat_',syr,smn,'v4');
    end;
    
    [windspd,winddir,scatflag,radrain]=get_scat_averaged_v04(filename);
    
    % write out the data in the verification file
    figure;  imagesc(rot90(fliplr(windspd(144:185,256:297))),[0.0 20.0]);

    for ilat=274:278,
        for ilon=170:175,
             sprintf('%5d %5d %7.2f %7.2f %3d %7.2f',...
                ilon,ilat,windspd(ilon,ilat),winddir(ilon,ilat),...
                scatflag(ilon,ilat),radrain(ilon,ilat))
        end;
    end;
end;