Changeset 1717 for LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/parallel.F90
- Timestamp:
- Jan 25, 2013, 9:26:03 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/parallel.F90
r1476 r1717 476 476 enddo 477 477 478 endif 478 else 479 ! Ehouarn: When in debug mode, ifort complains (for call MPI_GATHERV 480 ! below) about Buffer_Recv() being not allocated. 481 ! So make a dummy allocation. 482 allocate(Buffer_Recv(1)) 483 endif ! of if (MPI_Rank==rank) 479 484 480 485 !$OMP CRITICAL (MPI)
Note: See TracChangeset
for help on using the changeset viewer.