Changeset 708 for codes/icosagcm/trunk/src/parallel

Timestamp:

07/20/18 11:10:21 (6 years ago)

Author:

ymipsl

Message:

Default MPI initialization is set to funneled mode rather than thread_multiple

YM

File:

• codes/icosagcm/trunk/src/parallel/mpipara.F90 (modified) (2 diffs)

codes/icosagcm/trunk/src/parallel/mpipara.F90

@@ -57 +57 @@
     IF (using_mpi) THEN
     
-      required_mode_str='multiple'
+      required_mode_str='funneled'
       CALL getin('mpi_threading_mode',required_mode_str)
       
@@ -81 +81 @@
       IF (required_mode==MPI_THREAD_MULTIPLE)   PRINT*,'MPI_INIT_THREAD : MPI_THREAD_MULTIPLE required'
 
-      
-      CALL MPI_INIT_THREAD(MPI_THREAD_MULTIPLE,mpi_threading_mode,ierr)
+      CALL MPI_INIT_THREAD(required_mode,mpi_threading_mode,ierr)
       
       IF (mpi_threading_mode==MPI_THREAD_SINGLE)     PRINT*,'MPI_INIT_THREAD : MPI_SINGLE_THREAD provided'