Changeset 186 for codes/icosagcm/trunk/src/mpi_mod.F90

Timestamp:

01/09/14 09:56:11 (10 years ago)

Author:

ymipsl

Message:

Add new openMP parallelism based on distribution of domains on threads. There is no more limitation of number of threads by MPI process.

YM

File:

• codes/icosagcm/trunk/src/mpi_mod.F90 (modified) (3 diffs)

codes/icosagcm/trunk/src/mpi_mod.F90

@@ -12 +12 @@
   INTEGER :: MPI_STATUS_SIZE 
   INTEGER :: MPI_SUM
+  INTEGER :: MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED, 
+  INTEGER :: MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE
+  
   INTEGER,PARAMETER :: MPI_ADDRESS_KIND=KIND(INTEGER)
 #endif
@@ -21 +24 @@
 
  SUBROUTINE  MPI_INIT
+   PRINT *, 'Compiled without MPI'
+ END
+
+ SUBROUTINE  MPI_INIT_THREAD
    PRINT *, 'Compiled without MPI'
  END
@@ -69 +76 @@
  END
 
+ SUBROUTINE MPI_FREE_MEM
+ END
+
 #endif