Changeset 349 for XIOS/trunk/src/test

Timestamp:

06/20/12 18:46:20 (12 years ago)

Author:

ymipsl

Message:

Add wait subroutine in fortran to simulate some active work from clients.

YM

File:

• XIOS/trunk/src/test/test_cs.f90 (modified) (5 diffs)

XIOS/trunk/src/test/test_cs.f90

@@ -10 +10 @@
   CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr)
   
-  IF (rank<3) THEN
-   CALL client("client",rank,3)
+  IF (rank<8) THEN
+   CALL client("client",rank,8)
   ELSE 
     CALL server
@@ -23 +23 @@
   SUBROUTINE client(id,rank,size)
   USE xios
+  USE mod_wait
   IMPLICIT NONE
   INCLUDE 'mpif.h'
@@ -31 +32 @@
   TYPE(xios_time)      :: dtime
   TYPE(xios_context) :: ctx_hdl
-  INTEGER,PARAMETER :: ni_glo=100 
-  INTEGER,PARAMETER :: nj_glo=100 
+  INTEGER,PARAMETER :: ni_glo=1000 
+  INTEGER,PARAMETER :: nj_glo=1000 
   TYPE(xios_field) :: field_hdl
   TYPE(xios_fieldgroup) :: fieldgroup_hdl
@@ -42 +43 @@
   INTEGER :: ni,ibegin,iend,nj,jbegin,jend
   INTEGER :: i,j,ts,n
+  
+  CALL init_wait
   
   DO j=1,nj_glo
@@ -106 +109 @@
     
     PRINT*,"field field_A is active ? ",xios_field_is_active("field_A")
-    DO ts=1,96*200
+    DO ts=1,24*100
       CALL xios_update_calendar(ts)
       CALL xios_send_field("field_A",field_A)
+      CALL wait_us(5000) ;
     ENDDO