Ignore:
Timestamp:
11/15/17 12:14:34 (6 years ago)
Author:
yushan
Message:

dev_omp

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1134 r1328  
    11PROGRAM server_main 
    22  USE xios 
    3   USE mod_wait 
    43  IMPLICIT NONE 
    54  INCLUDE "mpif.h" 
    6   INTEGER :: ierr, th_level 
    7      
    8     CALL MPI_INIT(ierr) 
    9     !CALL MPI_INIT_thread(3, th_level, ierr) 
    10     CALL init_wait 
     5  INTEGER :: ierr 
     6   
    117    CALL xios_init_server 
    12      
    13     CALL MPI_FINALIZE(ierr) 
    148 
    159  END PROGRAM server_main 
Note: See TracChangeset for help on using the changeset viewer.