Changeset 26999

Show
Ignore:
Timestamp:
05.03.2013 11:08:22 (7 years ago)
Author:
jmt12
Message:

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

Files:
1 modified

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      {