function ddb_plotXBeachGrid(handles,id);

ii=strmatch('XBeach',{handles.Model.name},'exact');

% switch lower(opt)
% 
%     case{'plot'}

        h=findall(gca,'Tag','XBeachGrid','UserData',id);
        delete(h);
        
        x=handles.Model(ii).Input(id).GridX;
        y=handles.Model(ii).Input(id).GridY;
        xori = handles.Model(ii).Input(id).xori;
        yori = handles.Model(ii).Input(id).yori;
        alfa = handles.Model(ii).Input(id).alfa;
        xw =  xori+x*cos(alfa)-y*sin(alfa);
        yw =  yori+x*sin(alfa)+y*cos(alfa);
        
        grd=plot(xw,yw,'k');
        set(grd,'Color',[0 0 0]);
        set(grd,'HitTest','off');
        set(grd,'Tag','XBeachGrid','UserData',id);

        grd=plot(xw',yw','k');
        set(grd,'Color',[0 0 0]);
        set(grd,'HitTest','off');
        set(grd,'Tag','XBeachGrid','UserData',id);

%     case{'delete'}
%         h=findall(gca,'Tag','XBeachGrid','UserData',id);
%         delete(h);
% 
%     case{'activate'}
%         h=findall(gca,'Tag','XBeachGrid','UserData',id);
%         if ~isempty(h)
%             set(h,'Color',[0 0 0]);
%         end
% 
%     case{'deactivate'}
%         h=findall(gca,'Tag','XBeachGrid','UserData',id);
%         if ~isempty(h)
%             set(h,'Color',[0.7 0.7 0.7]);
%         end
% end
