Changeset 2731 for trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modtypes.F

Timestamp:

2011-04-08T14:05:35+02:00 (13 years ago)

Author:

rblod

Message:

Changes for Agrif in MPI

File:

• trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modtypes.F (modified) (2 diffs)

trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modtypes.F

@@ -36 +36 @@
 C     Maximum number of grids of the hierarchy
       INTEGER, PARAMETER :: Agrif_NbMaxGrids = 10
-                  
+C     MPI Communicator
+      INTEGER :: MPI_COMM_AGRIF
 C
 C     **************************************************************************
@@ -422 +423 @@
       INTEGER :: Agrif_Nbprocs  ! Number of processors
       INTEGER :: Agrif_ProcRank ! Rank of the current processor 
-      INTEGER :: Agrif_Group    ! Group associated to MPI_COMM_WORLD
+      INTEGER :: Agrif_Group    ! Group associated to MPI_COMM_AGRIF
       INTEGER :: Agrif_MPIPREC
 #endif