--- MITgcm/eesupp/inc/GLOBAL_SUM.h	2004/03/27 03:51:50	1.4
+++ MITgcm/eesupp/inc/GLOBAL_SUM.h	2005/09/28 01:58:25	1.5
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/GLOBAL_SUM.h,v 1.4 2004/03/27 03:51:50 edhill Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/GLOBAL_SUM.h,v 1.5 2005/09/28 01:58:25 edhill Exp $
 C $Name:  $
 CBOP
 C     !ROUTINE: GLOBAL_SUM.h
@@ -28,11 +28,20 @@
 C     | the way the global sum routines work.                    |
 C     *==========================================================*
 CEOP
-      COMMON / GSUM_COMMON_R8 / phiGSRL
-      Real*8  phiGSRL(lShare8, MAX_NO_THREADS )
 
-      COMMON / GSUM_COMMON_R4 / phiGSRS
-      Real*4  phiGSRS(lShare4, MAX_NO_THREADS )
+      COMMON / GSUM_COMMON_R8 / phiGSRL, phiVGSRL
+      Real*8  phiGSRL (lShare8, MAX_NO_THREADS )
+      Real*8  phivGSRL(MAX_VGS, MAX_NO_THREADS )
+
+      COMMON / GSUM_COMMON_R4 / phiGSRS, phiVGSRS
+      Real*4  phiGSRS (lShare4, MAX_NO_THREADS )
+      Real*4  phivGSRS(MAX_VGS, MAX_NO_THREADS )
+
+      COMMON / GSUM_COMMON_I  / phiGSI, phiVGSI
+      INTEGER phiGSI  (lShare4, MAX_NO_THREADS )
+      INTEGER phivGSI (MAX_VGS, MAX_NO_THREADS )
+
+CEH3 ;;; Local Variables: ***
+CEH3 ;;; mode:fortran ***
+CEH3 ;;; End: ***
 
-      COMMON / GSUM_COMMON_I  / phiGSI
-      INTEGER phiGSI (lShare4, MAX_NO_THREADS )