Changeset 1953 for branches/DEV_r1784_mid_year_merge_2010/AGRIF/AGRIF_FILES/modtypes.F

Timestamp:

2010-06-24T17:27:10+02:00 (14 years ago)

Author:

acc

Message:

ticket #684 step 3: Add in changes from the trunk between revisions 1784 and 1821. No conflicts so far

File:

• branches/DEV_r1784_mid_year_merge_2010/AGRIF/AGRIF_FILES/modtypes.F (modified) (2 diffs)

branches/DEV_r1784_mid_year_merge_2010/AGRIF/AGRIF_FILES/modtypes.F

@@ -37 +37 @@
       INTEGER, PARAMETER :: Agrif_NbMaxGrids = 10
                   
+C     MPI Communicator
+      INTEGER :: mpi_comm_agrif
 C
 C     **************************************************************************
@@ -409 +411 @@
       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