mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-03-31 17:50:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

changes to get parallel I/O working with spock's new brain.

Browse Source
This commit is contained in:
Ed Hartnett 2010-12-14 18:33:45 +00:00
parent 345de82ac7
commit 6ecbe1209f
3 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
nf_test/ftst_parallel.F
View File

@ -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.'

1
nf_test/run_f77_par_test.sh
View File

@ -1,2 +1 @@
mpd&
mpiexec -n 4 ./ftst_parallel

3
nf_test/run_f90_par_test.sh
View File

@ -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