From 6ecbe1209f098b8655b41d103314c7d6b392d4cf Mon Sep 17 00:00:00 2001 From: Ed Hartnett Date: Tue, 14 Dec 2010 18:33:45 +0000 Subject: [PATCH] changes to get parallel I/O working with spock's new brain. --- nf_test/ftst_parallel.F | 3 --- nf_test/run_f77_par_test.sh | 1 - nf_test/run_f90_par_test.sh | 3 --- 3 files changed, 7 deletions(-) diff --git a/nf_test/ftst_parallel.F b/nf_test/ftst_parallel.F index e6f171075..9c9658ae2 100644 --- a/nf_test/ftst_parallel.F +++ b/nf_test/ftst_parallel.F @@ -32,15 +32,12 @@ call MPI_Init(ierr) call MPI_Comm_rank(MPI_COMM_WORLD, my_rank, ierr) call MPI_Comm_size(MPI_COMM_WORLD, p, ierr) - print*, my_rank, p if (my_rank .eq. 0) then print *, ' ' print *, '*** Testing netCDF-4 parallel I/O from Fortran 77.' endif - print*, my_rank - ! There must be 4 procs for this test. if (p .ne. 4) then print *, 'This test program must be run on 4 processors.' diff --git a/nf_test/run_f77_par_test.sh b/nf_test/run_f77_par_test.sh index 47017a649..b9958f316 100755 --- a/nf_test/run_f77_par_test.sh +++ b/nf_test/run_f77_par_test.sh @@ -1,2 +1 @@ -mpd& mpiexec -n 4 ./ftst_parallel diff --git a/nf_test/run_f90_par_test.sh b/nf_test/run_f90_par_test.sh index c85211a7b..c996fa1e5 100755 --- a/nf_test/run_f90_par_test.sh +++ b/nf_test/run_f90_par_test.sh @@ -1,10 +1,7 @@ set -e -mpd& -sleep 2 mpiexec -n 4 ./f90tst_parallel mpiexec -n 4 ./f90tst_parallel2 mpiexec -n 4 ./f90tst_parallel3 -mpiexec -n 8 ./f90tst_nc4_par1 mpiexec -n 8 ./f90tst_nc4_par #mpiexec -n 4 ./f90tst_parallel_fill