Changeset 4600 for LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90
- Timestamp:
- Jun 30, 2023, 8:18:43 PM (11 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90
r4146 r4600 11 11 12 12 SUBROUTINE Init_const_mpi 13 USE lmdz_mpi 14 13 15 #ifdef CPP_IOIPSL 14 16 USE IOIPSL, ONLY: getin … … 25 27 #endif 26 28 IMPLICIT NONE 27 #ifdef CPP_MPI28 INCLUDE 'mpif.h'29 #endif30 29 31 30 INTEGER :: ierr … … 52 51 !$OMP END MASTER 53 52 #endif 54 #ifdef CPP_MPI55 53 MPI_REAL_LMDZ=MPI_REAL8 56 #endif57 54 ELSE 58 55 CALL init_mpi … … 62 59 63 60 SUBROUTINE Init_mpi 61 USE lmdz_mpi 62 64 63 #ifdef CPP_XIOS 65 64 USE wxios, only: wxios_init 66 65 #endif 67 66 IMPLICIT NONE 68 #ifdef CPP_MPI69 INCLUDE 'mpif.h'70 #endif71 67 INTEGER :: ierr 72 68 INTEGER :: thread_required 73 69 INTEGER :: thread_provided 74 70 75 #ifdef CPP_MPI76 71 !$OMP MASTER 77 72 thread_required=MPI_THREAD_SERIALIZED … … 92 87 #endif 93 88 !$OMP END MASTER 94 #else95 #ifdef CPP_XIOS96 !$OMP MASTER97 CALL wxios_init("LMDZ")98 !$OMP END MASTER99 #endif100 #endif101 89 102 90 END SUBROUTINE Init_mpi 103 91 104 92 END MODULE mod_const_mpi
Note: See TracChangeset
for help on using the changeset viewer.