Changeset 2731 for trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modupdate.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/modupdate.F (modified) (6 diffs)

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

@@ -744 +744 @@
       
       CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN,
-     &                     MPI_COMM_WORLD,code)
+     &                     MPI_COMM_AGRIF,code)
 
       lubglob(1:nbdim,2) = - lubglob(1:nbdim,2)      
@@ -910 +910 @@
       
       CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN,
-     &                     MPI_COMM_WORLD,code)  
+     &                     MPI_COMM_AGRIF,code)  
      
       lubglob(1:nbdim,2) = - lubglob(1:nbdim,2)      
@@ -1270 +1270 @@
 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(tempCextend%var)) Allocate(tempCextend%var)
@@ -1283 +1283 @@
       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),
@@ -1402 +1402 @@
 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)
@@ -1415 +1415 @@
       memberin1(1) = member
       CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall2,
-     &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code)
+     &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code)
  
       Call Get_External_Data_first(tab5t(:,:,1),