Changeset 1856 for LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90
- Timestamp:
- Aug 30, 2013, 3:59:10 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90
r1823 r1856 367 367 368 368 subroutine Finalize_parallel 369 #ifdef CPP_XIOS 370 ! ug Pour les sorties XIOS 371 USE wxios 372 #endif 369 373 #ifdef CPP_COUPLE 370 374 use mod_prism_proto … … 400 404 #endif 401 405 else 406 #ifdef CPP_XIOS 407 !Fermeture propre de XIOS 408 CALL wxios_close() 409 #endif 402 410 #ifdef CPP_MPI 403 411 IF (using_mpi) call MPI_FINALIZE(ierr)
Note: See TracChangeset
for help on using the changeset viewer.