--- MITgcm/eesupp/inc/EESUPPORT.h	1998/09/29 18:50:56	1.4
+++ MITgcm/eesupp/inc/EESUPPORT.h	2001/09/21 03:54:35	1.7
@@ -1,14 +1,21 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/EESUPPORT.h,v 1.4 1998/09/29 18:50:56 cnh Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/EESUPPORT.h,v 1.7 2001/09/21 03:54:35 cnh Exp $
+C $Name:  $
+CBOP
+C     !ROUTINE: EESUPPORT.h 
+C     !INTERFACE:
+C     include "EESUPPORT.h"
 C
-C     /==========================================================\
+C     !DESCRIPTION:
+C     *==========================================================*
 C     | EESUPPORT.h                                              |
-C     |==========================================================|
+C     *==========================================================*
 C     | Support data structures for the MITgcm UV "execution     |
 C     | environment" code. This data should be private to the    |
 C     | execution environment routines. Data which needs to be   |
-C     | accessed directly by the numerical model goes in         |
+C     | accessed directly by a numerical model goes in           |
 C     | EEPARAMS.h.                                              |
-C     \==========================================================/
+C     *==========================================================*
+CEOP
 
 C     ERROR_HEADER        - String which prefixes error messages
       CHARACTER*(*) ERROR_HEADER
@@ -277,5 +284,9 @@
       INTEGER mpiTagE
       INTEGER mpiTagN
       INTEGER mpiTagS
-#endif /* ALLOW_USE_MPI */
 
+C MPI communicator describing this model realization
+      COMMON /MPI_COMMS/
+     &        MPI_COMM_MODEL
+      INTEGER MPI_COMM_MODEL
+#endif /* ALLOW_USE_MPI */