Changeset 1072 for XIOS/dev/branch_yushan/src/test

Timestamp:

03/14/17 19:12:25 (7 years ago)

Author:

yushan

Message:

Using threads : modif for xios_initialize

File:

• XIOS/dev/branch_yushan/src/test/test_client.f90 (modified) (3 diffs)

XIOS/dev/branch_yushan/src/test/test_client.f90

@@ -3 +3 @@
   USE xios
   USE mod_wait
+  use omp_lib
   IMPLICIT NONE
   INCLUDE "mpif.h"
@@ -32 +33 @@
   INTEGER :: i,j,l,ts,n
 
-!!! MPI Initialization
+!!! MPI Initialization   
 
   CALL MPI_INIT(ierr)
@@ -44 +45 @@
   CALL MPI_COMM_RANK(comm,rank,ierr)
   CALL MPI_COMM_SIZE(comm,size,ierr)
-  
 
   DO j=1,nj_glo