Ignore:
Timestamp:
06/14/18 13:42:14 (3 years ago)
Author:
yushan
Message:

bug fix for tests in prod mode

File:
1 edited

Legend:

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

    r1460 r1544  
    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 
    3943 
    4044!!! XIOS Initialization (get the local communicator) 
     
    139143    CALL xios_send_field("field_Domain",field_domain) 
    140144    CALL xios_send_field("field_Scalar",scalar) 
    141     CALL wait_us(5000) ; 
     145    CALL wait_us(5000) 
    142146  ENDDO 
    143147 
    144148  CALL xios_context_finalize() 
     149  CALL xios_finalize() 
    145150 
    146   DEALLOCATE(lon, lat, field_A, lonvalue) 
     151  DEALLOCATE(lon, lat, field_A, lonvalue, axisValue, field_domain) 
    147152 
    148153  CALL MPI_COMM_FREE(comm, ierr) 
    149154 
    150   CALL xios_finalize() 
     155  else  !!server 
     156 
     157    CALL xios_init_server 
     158    print *, "Server : xios_finalize " 
     159   
     160  endif 
     161     
    151162 
    152163  CALL MPI_FINALIZE(ierr) 
Note: See TracChangeset for help on using the changeset viewer.