function opendap_get_WScheldt_DienstZeeland(varargin)
%OPENDAP_GET_WScheldt_DienstZeeland   download all netcdf files from
%http://opendap.deltares.nl/thredds/catalog/opendap/rijkswaterstaat/vaklodingen/catalog.html
%
%See also: opendap_catalog

%% specify

   OPT.server   = 'http://opendap.deltares.nl/thredds/';
   OPT.dataset  = 'rijkswaterstaat/DienstZeeland';
   OPT.base_url = [OPT.server,'/fileServer/opendap/',OPT.dataset];
   OPT.base_loc = 'F:\opendap\thredds\rijkswaterstaat\DienstZeeland';

%% loop ncfiles

   list = opendap_catalog(path2os([OPT.server,'/catalog/opendap/',OPT.dataset,'/catalog.html']));
   list = cellstr(filenameext(char(list)));

%% download all

   nnc = length(list);
   tic
   for inc=1:nnc
       
      disp([num2str(inc,'%0.3d'),' of ',num2str(nnc,'%0.3d')])
       
      ncfile = list{inc};
      urlwrite(path2os([OPT.base_url,filesep,ncfile],'h'),...
                       [OPT.base_loc,filesep,ncfile]);
           
      toc
%       pausedisp
           
   end        