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/modinterp.F

    r2715 r2731  
    892892C 
    893893      Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim, 
    894      &                   MPI_INTEGER,MPI_COMM_WORLD,code) 
     894     &                   MPI_INTEGER,MPI_COMM_AGRIF,code) 
    895895 
    896896      IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) 
     
    906906      memberin1(1) = memberin 
    907907      CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 
    908      &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code) 
     908     &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 
    909909 
    910910       Call Get_External_Data_first(tab4t(:,:,1), 
Note: See TracChangeset for help on using the changeset viewer.