- Timestamp:
- 2010-06-24T17:27:10+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1784_mid_year_merge_2010/AGRIF/AGRIF_FILES/modinterp.F
r1200 r1953 894 894 C 895 895 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) 897 897 898 898 IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) … … 908 908 memberin1(1) = memberin 909 909 CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 910 & 1,MPI_LOGICAL,MPI_COMM_ WORLD,code)910 & 1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 911 911 912 912 Call Get_External_Data_first(tab4t(:,:,1),
Note: See TracChangeset
for help on using the changeset viewer.