Changeset 1035
- Timestamp:
- 08/05/20 13:42:14 (4 years ago)
- Location:
- codes/icosagcm/devel
- Files:
-
- 3 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/parallel/mpipara.F90
r813 r1035 1 1 MODULE mpipara 2 3 INTEGER,SAVE :: mpi_rank 4 INTEGER,SAVE :: mpi_size 5 INTEGER,SAVE :: mpi_threading_mode 2 IMPLICIT NONE 3 SAVE 6 4 7 INTEGER,SAVE :: comm_icosa 8 INTEGER,SAVE :: ierr 9 LOGICAL,SAVE :: using_mpi 10 LOGICAL,SAVE :: is_mpi_root 11 LOGICAL,SAVE, BIND(C) :: is_mpi_master=.TRUE. 12 INTEGER,SAVE :: mpi_master 5 INTEGER :: mpi_rank 6 INTEGER :: mpi_size 7 INTEGER :: mpi_threading_mode 13 8 14 INTEGER,SAVE :: id_mpi ! id for profiling 9 INTEGER :: comm_icosa 10 INTEGER :: ierr 11 LOGICAL :: using_mpi 12 LOGICAL :: is_mpi_root 13 LOGICAL, BIND(C) :: is_mpi_master=.TRUE. 14 INTEGER :: mpi_master 15 16 INTEGER :: id_mpi ! id for profiling 15 17 16 18 INTERFACE allocate_mpi_buffer
Note: See TracChangeset
for help on using the changeset viewer.