cycling/autocycle.m

   1 % script automates cycling process
   2 fprintf('autocycle script starting. \n');
   3
   4 %get cycle number
   5 force = 0;
   6 cycle_num = input_num('Enter the cycle number',1,force);
   7
   8 %start the cycle script
   9 fprintf('Starting cycle script for cycle %i \n',cycle_num);
  10 cycles(cycle_num)
  11
  12 % cleanup stage
  13 % make_dir = sprintf('mkdir cycle_%i',cycle_num);
  14 % fprintf('Making new storage directory cycle_%i\n',cycle_num)
  15 % system(make_dir);
  16 % mv_str = sprintf('mv wrfout* *.png *.fig rsl.* cycle_%i/.',cycle_num);
  17 % fprintf('Moving files with: %s \n',mv_str);
  18 % system(mv_str);
  19 % close all
  20
  21 %exit
  22 fprintf('autocycle script completed. \n');
  23
  24
  25
  26
  27