Changeset 1134 for XIOS/dev/branch_yushan_merged/src/xios_server.f90
- Timestamp:
- 05/16/17 17:54:30 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan_merged/src/xios_server.f90
r501 r1134 1 1 PROGRAM server_main 2 2 USE xios 3 USE mod_wait 3 4 IMPLICIT NONE 4 5 INCLUDE "mpif.h" 5 INTEGER :: ierr 6 6 INTEGER :: ierr, th_level 7 8 CALL MPI_INIT(ierr) 9 !CALL MPI_INIT_thread(3, th_level, ierr) 10 CALL init_wait 7 11 CALL xios_init_server 12 13 CALL MPI_FINALIZE(ierr) 8 14 9 15 END PROGRAM server_main
Note: See TracChangeset
for help on using the changeset viewer.