Changeset 1138 for XIOS/dev/branch_yushan_merged/src/test/test_remap.f90

Timestamp:

05/18/17 17:40:03 (7 years ago)

Author:

yushan

Message:

test_remap back to work. No thread for now

File:

• XIOS/dev/branch_yushan_merged/src/test/test_remap.f90 (modified) (2 diffs)

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

@@ -42 +42 @@
   CALL MPI_INIT(ierr)
   CALL init_wait
+  
+  CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr)
+  if(rank < 2) then
 
 !!! XIOS Initialization (get the local communicator)
@@ -228 +231 @@
 
   CALL xios_finalize()
+  
+  print *, "Client : xios_finalize "
+
+    else
+
+    CALL xios_init_server
+    print *, "Server : xios_finalize "
+  
+    endif
 
   CALL MPI_FINALIZE(ierr)