Changeset 455

Timestamp:

01/10/14 17:52:03 (10 years ago)

Author:

aclsce

Message:

Modifed test_client : use of local communicator (instead of COMM_WORLD)

File:

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

XIOS/trunk/src/test/test_client.f90

@@ -28 +28 @@
   INTEGER :: i,j,l,ts,n
 
+!!! MPI Initialization
+
   CALL MPI_INIT(ierr)
-  CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr)
-  CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr)
   
   CALL init_wait
-  
+ 
+!!! XIOS Initialization (get the local communicator)
+
+  CALL xios_initialize(id,return_comm=comm)
+
+  CALL MPI_COMM_RANK(comm,rank,ierr)
+  CALL MPI_COMM_SIZE(comm,size,ierr)  
   
   DO j=1,nj_glo
@@ -61 +67 @@
   field_A(1:ni,1:nj,:)=field_A_glo(ibegin:iend,jbegin:jend,:)
   
-
-  CALL xios_initialize(id,return_comm=comm)
-
   CALL xios_context_initialize("test",comm)
   CALL xios_get_handle("test",ctx_hdl)