Changeset 1793 for trunk/AGRIF/AGRIF_FILES/modupdate.F
- Timestamp:
- 2010-01-06T20:20:12+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/AGRIF/AGRIF_FILES/modupdate.F
r1200 r1793 757 757 758 758 CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 759 & MPI_COMM_ WORLD,code)759 & MPI_COMM_AGRIF,code) 760 760 761 761 lubglob(1:nbdim,2) = - lubglob(1:nbdim,2) … … 925 925 926 926 CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 927 & MPI_COMM_ WORLD,code)927 & MPI_COMM_AGRIF,code) 928 928 929 929 lubglob(1:nbdim,2) = - lubglob(1:nbdim,2) … … 1287 1287 C 1288 1288 Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim, 1289 & MPI_INTEGER,MPI_COMM_ WORLD,code)1289 & MPI_INTEGER,MPI_COMM_AGRIF,code) 1290 1290 1291 1291 IF (.not.associated(tempCextend%var)) Allocate(tempCextend%var) … … 1300 1300 memberin1(1) = memberin 1301 1301 CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 1302 & 1,MPI_LOGICAL,MPI_COMM_ WORLD,code)1302 & 1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 1303 1303 1304 1304 Call Get_External_Data_first(tab4t(:,:,1), … … 1419 1419 C 1420 1420 Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim, 1421 & MPI_INTEGER,MPI_COMM_ WORLD,code)1421 & MPI_INTEGER,MPI_COMM_AGRIF,code) 1422 1422 1423 1423 IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) … … 1432 1432 memberin1(1) = member 1433 1433 CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall2, 1434 & 1,MPI_LOGICAL,MPI_COMM_ WORLD,code)1434 & 1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 1435 1435 1436 1436 Call Get_External_Data_first(tab5t(:,:,1),
Note: See TracChangeset
for help on using the changeset viewer.