Ignore:
Timestamp:
05/16/17 17:54:30 (7 years ago)
Author:
yushan
Message:

branch merged with trunk r1130

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/branch_yushan_merged/src/xios_server.f90

    r501 r1134  
    11PROGRAM server_main 
    22  USE xios 
     3  USE mod_wait 
    34  IMPLICIT NONE 
    45  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 
    711    CALL xios_init_server 
     12     
     13    CALL MPI_FINALIZE(ierr) 
    814 
    915  END PROGRAM server_main 
Note: See TracChangeset for help on using the changeset viewer.