- Timestamp:
- 07/20/18 11:10:21 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/parallel/mpipara.F90
r667 r708 57 57 IF (using_mpi) THEN 58 58 59 required_mode_str=' multiple'59 required_mode_str='funneled' 60 60 CALL getin('mpi_threading_mode',required_mode_str) 61 61 … … 81 81 IF (required_mode==MPI_THREAD_MULTIPLE) PRINT*,'MPI_INIT_THREAD : MPI_THREAD_MULTIPLE required' 82 82 83 84 CALL MPI_INIT_THREAD(MPI_THREAD_MULTIPLE,mpi_threading_mode,ierr) 83 CALL MPI_INIT_THREAD(required_mode,mpi_threading_mode,ierr) 85 84 86 85 IF (mpi_threading_mode==MPI_THREAD_SINGLE) PRINT*,'MPI_INIT_THREAD : MPI_SINGLE_THREAD provided'
Note: See TracChangeset
for help on using the changeset viewer.