--- MITgcm/eesupp/src/ini_communication_patterns.F	2001/05/29 14:01:36	1.4
+++ MITgcm/eesupp/src/ini_communication_patterns.F	2001/09/05 19:59:31	1.5
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/ini_communication_patterns.F,v 1.4 2001/05/29 14:01:36 adcroft Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/ini_communication_patterns.F,v 1.5 2001/09/05 19:59:31 adcroft Exp $
 C $Name:  $
 
 #include "CPP_EEOPTIONS.h"
@@ -52,9 +52,15 @@
       INTEGER biE, biW, bjN, bjS
       INTEGER thePx, thePy, theBj, theBi
 
-C--   Turn off memsync by default
+#ifndef ALWAYS_USE_MPI
+C--   Turn off memsync by default (e.g. needed for threads on SUNs)
       exchNeedsMemsync = .TRUE.
       exchUsesBarrier  = .TRUE.
+#else
+C--   ... except that MPI needs this until some counter problem is fixed.
+      exchNeedsMemsync = .FALSE.
+      exchUsesBarrier  = .FALSE.
+#endif
 
 C--   Define a globally unique tile numbers for each tile.
 C--   We aslo define the tile numbers for our east, west, south