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

Timestamp:

03/15/17 17:17:30 (7 years ago)

Author:

yushan

Message:

add test_omp ; Using threads : modif for context_initialize

Location:

XIOS/dev/branch_yushan/src/test

Files:

• test_client.f90 (modified) (3 diffs)
• test_omp.f90 (added)

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

@@ -3 +3 @@
   USE xios
   USE mod_wait
-  use omp_lib
   IMPLICIT NONE
   INCLUDE "mpif.h"
@@ -40 +39 @@
   CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr)
   if(rank < 2) then
+
   
   CALL xios_initialize(id,return_comm=comm)
@@ -45 +45 @@
   CALL MPI_COMM_RANK(comm,rank,ierr)
   CALL MPI_COMM_SIZE(comm,size,ierr)
+
 
   DO j=1,nj_glo