Changeset 349


Ignore:
Timestamp:
06/20/12 18:46:20 (10 years ago)
Author:
ymipsl
Message:

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

YM

Location:
XIOS/trunk/src
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/test/test_cs.f90

    r347 r349  
    1010  CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr) 
    1111   
    12   IF (rank<3) THEN 
    13    CALL client("client",rank,3) 
     12  IF (rank<8) THEN 
     13   CALL client("client",rank,8) 
    1414  ELSE  
    1515    CALL server 
     
    2323  SUBROUTINE client(id,rank,size) 
    2424  USE xios 
     25  USE mod_wait 
    2526  IMPLICIT NONE 
    2627  INCLUDE 'mpif.h' 
     
    3132  TYPE(xios_time)      :: dtime 
    3233  TYPE(xios_context) :: ctx_hdl 
    33   INTEGER,PARAMETER :: ni_glo=100  
    34   INTEGER,PARAMETER :: nj_glo=100  
     34  INTEGER,PARAMETER :: ni_glo=1000  
     35  INTEGER,PARAMETER :: nj_glo=1000  
    3536  TYPE(xios_field) :: field_hdl 
    3637  TYPE(xios_fieldgroup) :: fieldgroup_hdl 
     
    4243  INTEGER :: ni,ibegin,iend,nj,jbegin,jend 
    4344  INTEGER :: i,j,ts,n 
     45   
     46  CALL init_wait 
    4447   
    4548  DO j=1,nj_glo 
     
    106109     
    107110    PRINT*,"field field_A is active ? ",xios_field_is_active("field_A") 
    108     DO ts=1,96*200 
     111    DO ts=1,24*100 
    109112      CALL xios_update_calendar(ts) 
    110113      CALL xios_send_field("field_A",field_A) 
     114      CALL wait_us(5000) ; 
    111115    ENDDO 
    112116   
Note: See TracChangeset for help on using the changeset viewer.