--- MITgcm/eesupp/inc/EESUPPORT.h 1998/09/29 18:50:56 1.4 +++ MITgcm/eesupp/inc/EESUPPORT.h 1999/03/22 17:37:42 1.5 @@ -1,4 +1,4 @@ -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.5 1999/03/22 17:37:42 adcroft Exp $ C C /==========================================================\ C | EESUPPORT.h | @@ -277,5 +277,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 */