Differences

This shows you the differences between two versions of the page.

--- wiki:customization_tips [2019/02/20 18:42] – [PROMPT BASH for Interactive jobs] neyron
+++ wiki:customization_tips [2020/03/25 15:06] – [NUMA topology optimization] neyron
@@ Line 801: / Line 801: @@
  print YAML::Dump(@{$ref_resource_list});
 </code>
-===== NUMA topology optimization =====
+===== NUMA topology =====
 See the [[#NUMA_topology_optimization_2|NUMA topology optimization]] usecase
 ===== Short, medium and long queues =====
@@ Line 973: / Line 973: @@
     $job_name = 'interactive unnamed job';
  }
+</code>
+===== Filter resources by job walltime =====
+Description: with this admission rule the longer the job walltime is, the fewer resources are available for the job. This encourages a user to shorten the walltime, so that he can use more resources.
+First we define the ''max_walltime'' property and split nodes in several sets with different ''max_walltime'' values.
+<code bash>
+oarproperty -a max_walltime
+for node in <set 1>; do
+  oarnodesetting -h node -p max_walltime=<walltime of set 1>
+done
+for node in <set 2>; do
+  oarnodesetting -h node -p max_walltime=<walltime of set 2>
+done
+...
+</code>
+A node with the ''max_walltime'' property set to a lower value than the actual walltime requested by a job can not be used by that job, as enforced by the following admission rule:
+<code perl>
+if ((($jobType eq "PASSIVE") or ($jobType eq "INTERACTIVE")) and !(grep(/^besteffort/, @{$type_list})) and ($queue_name ne "admin")) {
+  foreach my $mold (@{$ref_resource_list}) {
+    if (defined($mold->[1])) {
+      foreach my $r (@{$mold->[0]}){
+        my $resource = $r->{resources}[0]->{resource};
+        if ($resource =~ /(network_address|host|cpu|core)/){
+          my $max_walltime = $mold->[1] / 60; # convert defined walltime in minutes;
+          my $current_properties = $r->{property};
+          if ($current_properties ne ""){
+            $r->{property} = "($current_properties) AND max_walltime >= $max_walltime";
+          } else {
+            $r->{property} = "max_walltime >= $max_walltime";
+          }
+        }
+      }
+    }
+  }
+}
 </code>