diff options
| author | eschnett <eschnett@83718e91-0e4f-0410-abf4-91180603181f> | 2012-03-07 19:56:05 +0000 |
|---|---|---|
| committer | eschnett <eschnett@83718e91-0e4f-0410-abf4-91180603181f> | 2012-03-07 19:56:05 +0000 |
| commit | 4ea05ed2d8dcf7919768b75f3b8d5bb0763cdd60 (patch) | |
| tree | 5bfb0fbfa4e3b72545100a8ea06abad957e74bec | |
| parent | 122bfcfd2623fe30a9e25d00035727f3257d25a2 (diff) | |
Limit number of parallel writes to 10
git-svn-id: http://svn.cactuscode.org/arrangements/CactusUtils/Formaline/trunk@218 83718e91-0e4f-0410-abf4-91180603181f
| -rw-r--r-- | src/output_source.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/output_source.c b/src/output_source.c index a4ca9c7..31c2d92 100644 --- a/src/output_source.c +++ b/src/output_source.c @@ -34,7 +34,7 @@ Formaline_OutputSource (CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - size_t myproc, nprocs; + size_t myproc, nprocs, nioprocs; char filename [10000]; FILE * file; size_t count; @@ -42,6 +42,7 @@ Formaline_OutputSource (CCTK_ARGUMENTS) myproc = CCTK_MyProc (cctkGH); nprocs = CCTK_nProcs (cctkGH); + nioprocs = nprocs < 10 ? nprocs : 10; { CCTK_PRINTSEPARATOR } CCTK_VInfo (CCTK_THORNSTRING, @@ -55,7 +56,7 @@ Formaline_OutputSource (CCTK_ARGUMENTS) /* Output all thorns' tarballs */ for (count = 0; cactus_source[count]; ++ count) { - if (count % nprocs != myproc) continue; + if (count % nioprocs != myproc) continue; snprintf (filename, sizeof filename, "%s/%s/Cactus-source-%s.tar.gz", |