Changeset 1793 for trunk/AGRIF/AGRIF_FILES/modtypes.F

Timestamp:

2010-01-06T20:20:12+01:00 (14 years ago)

Author:

rblod

Message:

Adaptation to use iomput with AGRIF, see ticket #630

File:

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

trunk/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