Ignore:
Timestamp:
2010-01-06T20:20:12+01:00 (11 years ago)
Author:
rblod
Message:

Adaptation to use iomput with AGRIF, see ticket #630

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/AGRIF/AGRIF_FILES/modinterp.F

    r1200 r1793  
    894894C 
    895895      Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim, 
    896      &                   MPI_INTEGER,MPI_COMM_WORLD,code) 
     896     &                   MPI_INTEGER,MPI_COMM_AGRIF,code) 
    897897 
    898898      IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) 
     
    908908      memberin1(1) = memberin 
    909909      CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 
    910      &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code) 
     910     &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 
    911911 
    912912       Call Get_External_Data_first(tab4t(:,:,1), 
Note: See TracChangeset for help on using the changeset viewer.