Context Navigation

mpi_mod.F90 @ 187

Last change on this file since 187 was 186, checked in by ymipsl, 10 years ago

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

File size: 1.1 KB

Rev	Line
[26]	1	MODULE mpi_mod
	2
	3	#ifdef CPP_USING_MPI
	4	INCLUDE 'mpif.h'
	5	#else
	6	INTEGER :: MPI_COMM_WORLD
	7	INTEGER :: MPI_REAL8
	8	INTEGER :: MPI_INTEGER
	9	INTEGER :: MPI_ANY_SOURCE
	10	INTEGER :: MPI_MAX
	11	INTEGER :: MPI_INFO_NULL
	12	INTEGER :: MPI_STATUS_SIZE
[171]	13	INTEGER :: MPI_SUM
[186]	14	INTEGER :: MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED,
	15	INTEGER :: MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE
	16
[151]	17	INTEGER,PARAMETER :: MPI_ADDRESS_KIND=KIND(INTEGER)
[26]	18	#endif
	19
	20	END MODULE mpi_mod
	21
	22
	23	#ifndef CPP_USING_MPI
	24
	25	SUBROUTINE MPI_INIT
[118]	26	PRINT *, 'Compiled without MPI'
[26]	27	END
[186]	28
	29	SUBROUTINE MPI_INIT_THREAD
	30	PRINT *, 'Compiled without MPI'
	31	END
[26]	32
	33	SUBROUTINE MPI_COMM_SIZE
	34	END
	35
	36	SUBROUTINE MPI_COMM_RANK
	37	END
	38
	39	SUBROUTINE MPI_FINALIZE
	40	END
	41
	42	SUBROUTINE MPI_ALLREDUCE
	43	END
	44
[172]	45	SUBROUTINE MPI_REDUCE
	46	END
	47
[26]	48	SUBROUTINE MPI_ALLTOALL
	49	END
	50
	51	SUBROUTINE MPI_ISEND
	52	END
	53
[151]	54	SUBROUTINE MPI_ISSEND
	55	END
	56
[26]	57	SUBROUTINE MPI_IRECV
	58	END
	59
	60	SUBROUTINE MPI_WAITALL
	61	END
	62
[151]	63	SUBROUTINE MPI_TESTALL
	64	END
	65
[26]	66	SUBROUTINE MPI_BARRIER
	67	END
	68
	69	SUBROUTINE MPI_ALLGATHER
	70	END
[151]	71
	72	SUBROUTINE MPI_TYPE_EXTENT
	73	END
	74
	75	SUBROUTINE MPI_ALLOC_MEM
	76	END
[26]	77
[186]	78	SUBROUTINE MPI_FREE_MEM
	79	END
	80
[26]	81	#endif

Note: See TracBrowser for help on using the repository browser.