cycling/weak_test.m

   1 function d = weak_test()
   2 %sets up directories for weak test...
   3
   4 cwd = pwd;
   5
   6 for i = 1:9
   7
   8     d.cores(i) = 36*i^2;
   9     d.nodes(i) = ceil(36*i^2/24);  %ceil(36*i^2/54); 3
  10     d.direct(i) = {[pwd,'/rain1_weak_ifire1_',num2str(i,'%02d')]};
  11     %d.direct(i) = {[pwd,'/rain1_weak_ifire2_',num2str(i,'%02d')]};
  12     if d.nodes(i) < 2
  13         queue{i} = 'small';
  14     else
  15         queue{i} = 'normal';
  16     end
  17     %     core_print = sprintf('sed -i "s/CORE_TARGET/%s/g" run_wrf_small_frontera.template',num2str(cores(i)));
  18     ewe = sprintf('sed -i "s/EWE/%s/g" namelist.input',num2str(42*i));
  19     esn = sprintf('sed -i "s/ESN/%s/g" namelist.input',num2str(42*i));
  20     %system call for submission script
  21     core_print = sprintf('sed -i "s/CORE_TARGET/%s/g" run_wrf_small_frontera.template',num2str(d.cores(i)));
  22     node_print = sprintf('sed -i "s/NODES_TARGET/%s/g" run_wrf_small_frontera.template',num2str(d.nodes(i)))
  23     %wall_print = sprintf('sed -i "s/WALL_TARGET/%s/g" run_wrf_small_frontera.template',num2str(d.wall{i}))
  24     %queue_print = sprintf('sed -i "s/QUEUE_TARGET/%s/g" run_wrf_small_frontera.template',queue{i})
  25     %change queue
  26
  27
  28     %copy the directory
  29     cp_str = sprintf('cp -a ../rain1_base1 %s',d.direct{i});
  30     %cp_str = sprintf('cp -a ../rain1_base2 %s',d.direct{i});
  31     %cd to directory and change files
  32     system(cp_str);
  33     cd(d.direct{i});
  34     system(ewe);
  35     system(esn);
  36
  37     %change submission
  38     system(core_print);
  39     system(node_print);
  40     system(queue_print);
  41     %system(wall_print);
  42     system('touch copied.txt');
  43     system('cp run_wrf_kings.template run_wrf_kings')
  44
  45     system('./ideal.exe')
  46     pause(5);
  47
  48     %cd back up
  49     cd(cwd)
  50
  51
  52 end
  53 save details.mat d
  54
  55
  56 end % function