Changeset 193 for codes/icosagcm/trunk
- Timestamp:
- 06/26/14 17:32:14 (10 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/mpipara.F90
r186 r193 71 71 IF (mpi_threading_mode > required_mode) mpi_threading_mode=required_mode 72 72 73 IF (mpi_threading_mode==MPI_THREAD_SINGLE) PRINT*,'MPI_INIT_THREAD : MPI_SINGLE_THREAD used' 73 IF (mpi_threading_mode==MPI_THREAD_SINGLE) THEN 74 PRINT*,'MPI_INIT_THREAD : MPI_SINGLE_THREAD used : Warning : openMP is not garanted to work' 75 ENDIF 74 76 IF (mpi_threading_mode==MPI_THREAD_FUNNELED) PRINT*,'MPI_INIT_THREAD : MPI_THREAD_FUNNELED used' 75 77 IF (mpi_threading_mode==MPI_THREAD_SERIALIZED) PRINT*,'MPI_INIT_THREAD : MPI_THREAD_SERIALIZED used' -
codes/icosagcm/trunk/src/transfert_mpi.f90
r188 r193 720 720 req%nreq_mpi=req%nreq_mpi+1 721 721 req%nreq_send=req%nreq_send+1 722 IF (mpi_threading_mode==MPI_THREAD_FUNNELED ) THEN722 IF (mpi_threading_mode==MPI_THREAD_FUNNELED .OR. mpi_threading_mode==MPI_THREAD_SINGLE) THEN 723 723 rank_list(nsend)=req%send(isend)%rank 724 724 ELSE … … 758 758 req%nreq_mpi=req%nreq_mpi+1 759 759 req%nreq_recv=req%nreq_recv+1 760 IF (mpi_threading_mode==MPI_THREAD_FUNNELED ) THEN760 IF (mpi_threading_mode==MPI_THREAD_FUNNELED .OR. mpi_threading_mode==MPI_THREAD_SINGLE) THEN 761 761 rank_list(nrecv)=req%recv(irecv)%rank 762 762 ELSE … … 1329 1329 ENDIF 1330 1330 1331 IF (mpi_threading_mode==MPI_THREAD_FUNNELED ) THEN1331 IF (mpi_threading_mode==MPI_THREAD_FUNNELED .OR. mpi_threading_mode==MPI_THREAD_SINGLE) THEN 1332 1332 !$OMP BARRIER 1333 1333 !$OMP MASTER
Note: See TracChangeset
for help on using the changeset viewer.