Changeset 26999


Ignore:
Timestamp:
2013-03-05T11:08:22+13:00 (8 years ago)
Author:
jmt12
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/bin/script/parallel_dspace_filtermedia.pl

    r25943 r26999  
    150150      # Determine if we've been provided a mpi.conf file to indicate the other
    151151      # machines (slave nodes) this parallizable process should run on
    152       my $mpi_conf_path = &util::filename_cat($dspace_home, 'mpi.conf');
    153       my $mpi_flags = '--show-progress --timestamp-output --verbose --report-bindings --tag-output';
     152      my $mpi_conf_path = $dspace_home . '/mpi.conf';
     153      my $mpi_flags = '--show-progress --timestamp-output ';
    154154      if (-f $mpi_conf_path)
    155155      {
    156156        print STDERR " ***** CLUSTER MODE *****\n";
    157         $mpi_flags .= ' -nolocal -machinefile "' . $mpi_conf_path . '"';
     157        $mpi_flags .= '-machinefile "' . $mpi_conf_path . '" ';
     158        #$mpi_flags .= '-nolocal ';
    158159      }
    159160      else
     
    161162        print STDERR " ***** SINGLE COMPUTER MODE *****\n";
    162163      }
     164      # Excessive force! Ensure we bind to the correct network interface
     165      $mpi_flags .= '--mca btl tcp,sm,self --mca btl_tcp_if_include eth0 ';
    163166
    164       my $mpi_cmd = 'mpirun ' . $mpi_flags . ' -np ' . ($worker_count + 1) . ' "' . $dspace_home . '/bin/mpidspacemediafilter" "' . $dspace_home . '" "' . $file_list_path . '"';
     167      my $mpi_cmd = 'mpirun ' . $mpi_flags . ' -np ' . ($worker_count + 1) . ' "' . $dspace_home . '/bin/mpidspacemediafilter" "' . $ENV{'GSDLHOME'} . '" "' . $dspace_home . '" "' . $file_list_path . '"';
    165168      if ($debug)
    166169      {
Note: See TracChangeset for help on using the changeset viewer.