Ignore:
Timestamp:
07/04/18 13:38:47 (6 years ago)
Author:
yushan
Message:

bug fixed in intercomm_create

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1545 r1556  
    33  IMPLICIT NONE 
    44  INCLUDE "mpif.h" 
    5   INTEGER :: ierr 
    6    
     5  INTEGER :: ierr, provided 
     6    
     7    CALL MPI_Init_thread(3, provided, ierr) 
    78    CALL xios_init_server 
    8      
     9    CALL MPI_Finalize(ierr) 
     10  
    911 
    1012  END PROGRAM server_main 
Note: See TracChangeset for help on using the changeset viewer.