Changeset 26999

Timestamp:

2013-03-05T11:08:22+13:00 (11 years ago)

Author:

jmt12

Message:

Ensuring MPI binds to correct interface, and passing through environment variable (GSDLHOME) to compute nodes

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/parallel_dspace_filtermedia.pl (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/bin/script/parallel_dspace_filtermedia.pl

@@ -150 +150 @@
       # Determine if we've been provided a mpi.conf file to indicate the other
       # machines (slave nodes) this parallizable process should run on
-      my $mpi_conf_path = &util::filename_cat($dspace_home, 'mpi.conf');
-      my $mpi_flags = '--show-progress --timestamp-output --verbose --report-bindings --tag-output';
+      my $mpi_conf_path = $dspace_home . '/mpi.conf';
+      my $mpi_flags = '--show-progress --timestamp-output ';
       if (-f $mpi_conf_path)
       {
         print STDERR " ***** CLUSTER MODE *****\n";
-        $mpi_flags .= ' -nolocal -machinefile "' . $mpi_conf_path . '"';
+        $mpi_flags .= '-machinefile "' . $mpi_conf_path . '" ';
+        #$mpi_flags .= '-nolocal ';
       }
       else
@@ -161 +162 @@
         print STDERR " ***** SINGLE COMPUTER MODE *****\n";
       }
+      # Excessive force! Ensure we bind to the correct network interface
+      $mpi_flags .= '--mca btl tcp,sm,self --mca btl_tcp_if_include eth0 ';
 
-      my $mpi_cmd = 'mpirun ' . $mpi_flags . ' -np ' . ($worker_count + 1) . ' "' . $dspace_home . '/bin/mpidspacemediafilter" "' . $dspace_home . '" "' . $file_list_path . '"';
+      my $mpi_cmd = 'mpirun ' . $mpi_flags . ' -np ' . ($worker_count + 1) . ' "' . $dspace_home . '/bin/mpidspacemediafilter" "' . $ENV{'GSDLHOME'} . '" "' . $dspace_home . '" "' . $file_list_path . '"';
       if ($debug)
       {