Ignore:
Timestamp:
01/23/19 10:31:44 (3 years ago)
Author:
yushan
Message:

dev on ADA. add flag switch _usingEP/_usingMPI

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/branch_openmp/src/test/test_client.f90

    r1544 r1642  
    3737 
    3838  CALL init_wait 
    39    
    40   CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) 
    41   CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr) 
    42   if(rank < size-2) then 
    4339 
    4440!!! XIOS Initialization (get the local communicator) 
     
    143139    CALL xios_send_field("field_Domain",field_domain) 
    144140    CALL xios_send_field("field_Scalar",scalar) 
    145     CALL wait_us(5000) 
     141    CALL wait_us(5000) ; 
    146142  ENDDO 
    147143 
    148144  CALL xios_context_finalize() 
    149   CALL xios_finalize() 
    150145 
    151   DEALLOCATE(lon, lat, field_A, lonvalue, axisValue, field_domain) 
     146  DEALLOCATE(lon, lat, field_A, lonvalue) 
    152147 
    153148  CALL MPI_COMM_FREE(comm, ierr) 
    154149 
    155   else  !!server 
    156  
    157     CALL xios_init_server 
    158     print *, "Server : xios_finalize " 
    159    
    160   endif 
    161      
     150  CALL xios_finalize() 
    162151 
    163152  CALL MPI_FINALIZE(ierr) 
Note: See TracChangeset for help on using the changeset viewer.