cycling/strong_test.m

   1 function details = strong_test()
   2 %sets up directories for strong scaling test
   3
   4 for i = 1:20
   5
   6     cores(i) = (2*i -1)*54;
   7     nodes(i) = 2*i - 1;
   8     wall{i} = '24:00:00'
   9     wall_time(i) = 24;
  10     if nodes(i) > 1
  11        wall_time(i) =  ceil(24/(nodes(i)*.5));
  12        wall{i} = sprintf('%02d:00:00',wall_time(i))
  13     end
  14     %change queue
  15     if nodes < 2
  16         queue{i} = 'small';
  17     else
  18         queue{i} = 'normal';
  19     end
  20
  21     direct(i) = {[pwd,'/ff_sfc_strong_',num2str(i,'%04d')]};
  22
  23     %mkdir_print = sprintf('mkdir %s',direct{i});
  24     core_print = sprintf('sed -i "s/CORE_TARGET/%s/g" run_wrf_small_frontera.template',num2str(cores(i)));
  25     node_print = sprintf('sed -i "s/NODES_TARGET/%s/g" run_wrf_small_frontera.template',num2str(nodes(i)))
  26     wall_print = sprintf('sed -i "s/WALL_TARGET/%s/g" run_wrf_small_frontera.template',num2str(wall{i}))
  27     queue_print = sprintf('sed -i "s/QUEUE_TARGET/%s/g" run_wrf_small_frontera.template',queue{i})
  28     cp_print = sprintf('cp -a ../fireflux_sfc_strong_base %s',direct{i});
  29     system(cp_print);
  30
  31
  32     %change submission script
  33     cd(direct{i});
  34     system(core_print);
  35     system(node_print);
  36     system(queue_print);
  37     system(wall_print);
  38     system('cp run_wrf_small_frontera.template run_wrf_small_frontera')
  39
  40     save details.mat
  41
  42     %move back up
  43     cd ..
  44
  45
  46
  47
  48
  49 end %if i = ...
  50
  51 [nodes',cores']
  52
  53 details.direct = direct';
  54 details.cores = cores';
  55 details.nodes = nodes';
  56 details.wall = wall';
  57 details.wall_time = wall_time';
  58
  59 save details.mat details
  60
  61 end % function