Ignore:
Timestamp:
2011-04-08T14:05:35+02:00 (10 years ago)
Author:
rblod
Message:

Changes for Agrif in MPI

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modupdate.F

    r2715 r2731  
    744744       
    745745      CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 
    746      &                     MPI_COMM_WORLD,code) 
     746     &                     MPI_COMM_AGRIF,code) 
    747747 
    748748      lubglob(1:nbdim,2) = - lubglob(1:nbdim,2)       
     
    910910       
    911911      CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 
    912      &                     MPI_COMM_WORLD,code)   
     912     &                     MPI_COMM_AGRIF,code)   
    913913      
    914914      lubglob(1:nbdim,2) = - lubglob(1:nbdim,2)       
     
    12701270C 
    12711271      Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim, 
    1272      &                   MPI_INTEGER,MPI_COMM_WORLD,code) 
     1272     &                   MPI_INTEGER,MPI_COMM_AGRIF,code) 
    12731273 
    12741274      IF (.not.associated(tempCextend%var)) Allocate(tempCextend%var) 
     
    12831283      memberin1(1) = memberin 
    12841284      CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 
    1285      &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code) 
     1285     &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 
    12861286  
    12871287       Call Get_External_Data_first(tab4t(:,:,1), 
     
    14021402C 
    14031403      Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim, 
    1404      &                   MPI_INTEGER,MPI_COMM_WORLD,code) 
     1404     &                   MPI_INTEGER,MPI_COMM_AGRIF,code) 
    14051405 
    14061406      IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) 
     
    14151415      memberin1(1) = member 
    14161416      CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall2, 
    1417      &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code) 
     1417     &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 
    14181418  
    14191419      Call Get_External_Data_first(tab5t(:,:,1), 
Note: See TracChangeset for help on using the changeset viewer.