From 712e1410db32800fc690be91775127e3621010f9 Mon Sep 17 00:00:00 2001
From: Hrvoje Jasak <h.jasak@wikki.co.uk>
Date: Thu, 26 May 2011 11:30:05 +0100
Subject: [PATCH] Fix for communications clash; under review

---
 .../derived/global/GlobalPointPatchField.C                | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/OpenFOAM/fields/PointPatchFields/derived/global/GlobalPointPatchField.C b/src/OpenFOAM/fields/PointPatchFields/derived/global/GlobalPointPatchField.C
index 05dcfccfc..2dec37887 100644
--- a/src/OpenFOAM/fields/PointPatchFields/derived/global/GlobalPointPatchField.C
+++ b/src/OpenFOAM/fields/PointPatchFields/derived/global/GlobalPointPatchField.C
@@ -1147,6 +1147,14 @@ void GlobalPointPatchField
 
     // Reduce/extract the result and enforce over all processors
 
+    // Requires global sync points to flush buffers before gather-scatter
+    // communications.  Reconsider.  HJ, 29/Mar/2011
+    if (Pstream::defaultCommsType == Pstream::nonBlocking)
+    {
+        IPstream::waitRequests();
+        OPstream::waitRequests();
+    }
+
     tmp<Field<scalar> > trpf =
         reduceExtractPoint<scalar>(localMult);