Changeset 1953 for branches/DEV_r1784_mid_year_merge_2010/AGRIF/AGRIF_FILES/modinterp.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/modinterp.F (modified) (2 diffs)

branches/DEV_r1784_mid_year_merge_2010/AGRIF/AGRIF_FILES/modinterp.F

@@ -894 +894 @@
 C
       Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim,
-     &                   MPI_INTEGER,MPI_COMM_WORLD,code)
+     &                   MPI_INTEGER,MPI_COMM_AGRIF,code)
 
       IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var)
@@ -908 +908 @@
       memberin1(1) = memberin
       CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall,
-     &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code)
+     &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code)
 
        Call Get_External_Data_first(tab4t(:,:,1),