Changeset 1852 for LMDZ5/trunk/libf/dyn3dpar/mod_const_mpi.F90
- Timestamp:
- Aug 30, 2013, 10:47:10 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dpar/mod_const_mpi.F90
r1700 r1852 51 51 52 52 SUBROUTINE Init_mpi 53 #ifdef CPP_XIOS 54 USE wxios 55 #endif 53 56 IMPLICIT NONE 54 57 #ifdef CPP_MPI … … 70 73 COMM_LMDZ=MPI_COMM_WORLD 71 74 MPI_REAL_LMDZ=MPI_REAL8 75 76 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 77 ! Initialisation de XIOS 78 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 79 #ifdef CPP_XIOS 80 CALL wxios_init("LMDZ", outcom=COMM_LMDZ) 81 #endif 72 82 !$OMP END MASTER 83 #else 84 #ifdef CPP_XIOS 85 CALL wxios_init("LMDZ") 73 86 #endif 74 87 #endif 75 88 END SUBROUTINE Init_mpi 76 89
Note: See TracChangeset
for help on using the changeset viewer.