[cig-commits] [commit] master: buffer needs to be large enough in case of many cpus (49cf2d3)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/axisem

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/eecbb659d1eabb84993eecf4916e0466cf6ed903...49cf2d34d650ddeadc90951f0a3884d9dc5aff2e

>---------------------------------------------------------------

commit 49cf2d34d650ddeadc90951f0a3884d9dc5aff2e
Author: martinvandriel <martin at vandriel.de>
Date:   Thu Sep 25 17:46:53 2014 +0200

    buffer needs to be large enough in case of many cpus
    
    at least give a decent error instead of just segfaulting


>---------------------------------------------------------------

49cf2d34d650ddeadc90951f0a3884d9dc5aff2e
 SOLVER/nc_routines.F90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/SOLVER/nc_routines.F90 b/SOLVER/nc_routines.F90
index 2a8c4c2..423b11e 100644
--- a/SOLVER/nc_routines.F90
+++ b/SOLVER/nc_routines.F90
@@ -958,6 +958,12 @@ subroutine nc_define_outputfile(nrec, rec_names, rec_th, rec_th_req, rec_ph, rec
     end if
 
     call barrier
+
+    if (nc_dumpbuffersize < nproc) then
+        write(6,*) 'ERROR: NETCDF_DUMP_BUFFER needs to be larger then the number of processors'
+        stop
+    endif
+
     dumpstepsnap = int(nc_dumpbuffersize / nproc) * nproc ! Will later be reduced to nstrain, if this is smaller
                                                        ! than value given here