Changeset 1134 for XIOS/dev/branch_yushan_merged/src/test/test_client.f90

Timestamp:

05/16/17 17:54:30 (7 years ago)

Author:

yushan

Message:

branch merged with trunk r1130

File:

• XIOS/dev/branch_yushan_merged/src/test/test_client.f90 (modified) (4 diffs)

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

@@ -35 +35 @@
 
   CALL MPI_INIT(ierr)
+  CALL init_wait
 
-  CALL init_wait
+  CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr)
+  if(rank < 2) then
 
 !!! XIOS Initialization (get the local communicator)
@@ -72 +74 @@
 
   CALL xios_context_initialize("test",comm)
+
   CALL xios_get_handle("test",ctx_hdl)
   CALL xios_set_current_context(ctx_hdl)
@@ -125 +128 @@
   CALL xios_is_defined_field_attr("field_A",enabled=ok)
   PRINT *,"field_A : attribute enabled is defined ? ",ok
+  
   CALL xios_close_context_definition()
 
   PRINT*,"field field_A is active ? ",xios_field_is_active("field_A")
+
+  call MPI_Barrier(comm, ierr)
+
   DO ts=1,24*10
     CALL xios_update_calendar(ts)
     CALL xios_send_field("field_A",field_A)
-    CALL wait_us(5000) ;
+    CALL wait_us(5000)
   ENDDO
 
@@ -141 +148 @@
 
   CALL xios_finalize()
+  print *, "Client : xios_finalize "
+
+    else
+
+    CALL xios_init_server
+    print *, "Server : xios_finalize "
+  
+    endif
+    
 
   CALL MPI_FINALIZE(ierr)