Changeset 1069 for XIOS/dev/branch_yushan/src/test/test_client.f90

Timestamp:

03/09/17 18:13:51 (7 years ago)

Author:

yushan

Message:

Clean Up

File:

• XIOS/dev/branch_yushan/src/test/test_client.f90 (modified) (6 diffs)

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

@@ -42 +42 @@
   CALL xios_initialize(id,return_comm=comm)
   
-  print*, "test_client xios_initialize OK"
-
   CALL MPI_COMM_RANK(comm,rank,ierr)
-  print*, "test_client MPI_COMM_RANK OK", rank
   CALL MPI_COMM_SIZE(comm,size,ierr)
-  print*, "test_client MPI_COMM_SIZE OK", size
   
 
@@ -79 +75 @@
 
   CALL xios_get_handle("test",ctx_hdl)
-  print*, "Client xios_get_handle OK"
   CALL xios_set_current_context(ctx_hdl)
-  print*, "Client xios_set_current_handle OK"  
-  
-  
   
   
   CALL xios_get_calendar_type(calendar_type)
-  PRINT *, "calendar_type = ", calendar_type
 
   CALL xios_set_axis_attr("axis_A",n_glo=llm ,value=lval) ;
@@ -105 +96 @@
   dtime%second = 3600
   CALL xios_set_timestep(dtime)
-  print*, "Client xios_set_timestep OK"  
 
   ! The calendar is created as soon as the calendar type is defined. This way
@@ -144 +134 @@
 
   call MPI_Barrier(comm, ierr)
-  PRINT*,"MPI_Barrier OK "
 
   !DO ts=1,24*10
   DO ts=1,6
     CALL xios_update_calendar(ts)
-    print*, "xios_update_calendar OK, ts = ", ts
     CALL xios_send_field("field_A",field_A)
-    print*, "xios_send_field OK, ts = ", ts
     CALL wait_us(5000)
   ENDDO
@@ -157 +144 @@
 
   CALL xios_context_finalize()
-  print*, "xios_context_finalize OK"  
 
   DEALLOCATE(lon, lat, field_A, lonvalue)
@@ -164 +150 @@
 
   CALL xios_finalize()
+  print *, "Client : xios_finalize "
 
    else
 
    CALL xios_init_server
+   print *, "Server : xios_finalize "
   
    endif