source: XIOS/dev/branch_openmp/src/xios_server.f90 @ 1620

Last change on this file since 1620 was 1556, checked in by yushan, 6 years ago

bug fixed in intercomm_create

  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 225 bytes
Line 
1PROGRAM server_main
2  USE xios
3  IMPLICIT NONE
4  INCLUDE "mpif.h"
5  INTEGER :: ierr, provided
6   
7    CALL MPI_Init_thread(3, provided, ierr)
8    CALL xios_init_server
9    CALL MPI_Finalize(ierr)
10 
11
12  END PROGRAM server_main
Note: See TracBrowser for help on using the repository browser.