Changeset 726 for codes/icosagcm/devel/src/parallel/mpipara.F90

Timestamp:

08/22/18 17:28:01 (6 years ago)

Author:

dubos

Message:

devel : backported from trunk commits r707-r711,r713

File:

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

codes/icosagcm/devel/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'