Changeset 2731 for trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F
- Timestamp:
- 2011-04-08T14:05:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F
r2715 r2731 892 892 C 893 893 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) 895 895 896 896 IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) … … 906 906 memberin1(1) = memberin 907 907 CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 908 & 1,MPI_LOGICAL,MPI_COMM_ WORLD,code)908 & 1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 909 909 910 910 Call Get_External_Data_first(tab4t(:,:,1),
Note: See TracChangeset
for help on using the changeset viewer.