cycling/make_w_files.m

   1 function wrfs = make_w_files(varargin)
   2 %make matlab file from wrfouts
   3
   4 if nargin > 0
   5     cwd = varargin{1};
   6 else
   7     cwd = pwd;
   8 end
   9
  10 d = dir(cwd);
  11 % d(1).name
  12 % d(2).name
  13 %all directories have '.' and '..' as dir(1),dir(2)??
  14 for i = 3:length(d)
  15     if d(i).isdir
  16         dir_name = ([d(i).name,'/']);
  17         dir_fold = ([d(i).folder,'/']);
  18         dir_path = ([dir_fold,dir_name]);
  19         %cd(dir_path)
  20         fprintf('calling make_w_files on %s \n',dir_path)
  21         make_w_files(dir_path)
  22         %cd('../')
  23         %fprintf('moved to %s \n',pwd)
  24
  25         %%%strcmp can avoid this...
  26     elseif length(d(i).name) > 6 & strcmp(d(i).name(1:6),'wrfout')
  27     %elseif length(d(i).name) > 6
  28         if d(i).name(end) ~= 't'
  29
  30             %dir_name = ([d(i).name,'/']);
  31             wrf_fold = ([d(i).folder,'/']);
  32             wrf_path = ([wrf_fold,d(i).name]);
  33             save_str = ([wrf_path,'.mat']);
  34             fprintf('Working in %s \n', cwd)
  35             if ~exist(save_str,'file')
  36                 w = read_wrfout_tign(wrf_path);
  37                 fprintf('Saving %s \n',save_str)
  38                 save(save_str,'w');
  39             else
  40                 fprintf('%s already exists \n',save_str)
  41             end
  42
  43
  44
  45         end
  46         %
  47     end
  48
  49 end