Changeset 2056 for LMDZ5/branches/testing/libf/dyn3dmem/mod_const_mpi.F90
- Timestamp:
- Jun 11, 2014, 3:46:46 PM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1998,2000-2023,2025-2029,2032,2034,2036-2049,2051-2055
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3dmem/mod_const_mpi.F90
r1999 r2056 21 21 USE mod_prism 22 22 #endif 23 #ifdef CPP_XIOS 24 USE wxios, only: wxios_init 25 #endif 23 26 IMPLICIT NONE 24 27 #ifdef CPP_MPI … … 41 44 #ifdef CPP_COUPLE 42 45 !$OMP MASTER 43 CALL prism_init_comp_proto (comp_id, 'lmdz.x', ierr) 46 #ifdef CPP_XIOS 47 CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean) 48 #else 49 CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr) 44 50 CALL prism_get_localcomm_proto(COMM_LMDZ,ierr) 51 #endif 45 52 !$OMP END MASTER 46 53 #endif
Note: See TracChangeset
for help on using the changeset viewer.