Changeset 1544 for XIOS/dev/branch_openmp/src/test/test_client.f90

Timestamp:

06/14/18 13:42:14 (6 years ago)

Author:

yushan

Message:

bug fix for tests in prod mode

File:

• XIOS/dev/branch_openmp/src/test/test_client.f90 (modified) (2 diffs)

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

@@ -37 +37 @@
 
   CALL init_wait
+  
+  CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr)
+  CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr)
+  if(rank < size-2) then
 
 !!! XIOS Initialization (get the local communicator)
@@ -139 +143 @@
     CALL xios_send_field("field_Domain",field_domain)
     CALL xios_send_field("field_Scalar",scalar)
-    CALL wait_us(5000) ;
+    CALL wait_us(5000)
   ENDDO
 
   CALL xios_context_finalize()
+  CALL xios_finalize()
 
-  DEALLOCATE(lon, lat, field_A, lonvalue)
+  DEALLOCATE(lon, lat, field_A, lonvalue, axisValue, field_domain)
 
   CALL MPI_COMM_FREE(comm, ierr)
 
-  CALL xios_finalize()
+  else  !!server
+
+    CALL xios_init_server
+    print *, "Server : xios_finalize "
+  
+  endif
+    
 
   CALL MPI_FINALIZE(ierr)