Changeset 2054 for LMDZ5/trunk/libf/dyn3dmem
- Timestamp:
- Jun 3, 2014, 5:07:16 PM (10 years ago)
- Location:
- LMDZ5/trunk/libf/dyn3dmem
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/mod_const_mpi.F90
r1965 r2054 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) 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 -
LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90
r1965 r2054 422 422 423 423 if (type_ocean == 'couple') then 424 #ifdef CPP_XIOS 425 !Fermeture propre de XIOS 426 CALL wxios_close() 427 #else 424 428 #ifdef CPP_COUPLE 425 429 call prism_terminate_proto(ierr) … … 428 432 endif 429 433 #endif 434 #endif 430 435 else 431 436 #ifdef CPP_XIOS
Note: See TracChangeset
for help on using the changeset viewer.