Changeset 1134 for XIOS/dev/branch_yushan_merged/src/test
- Timestamp:
- 05/16/17 17:54:30 (7 years ago)
- Location:
- XIOS/dev/branch_yushan_merged/src/test
- Files:
-
- 2 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan_merged/src/test/test_client.f90
r794 r1134 35 35 36 36 CALL MPI_INIT(ierr) 37 CALL init_wait 37 38 38 CALL init_wait 39 CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) 40 if(rank < 2) then 39 41 40 42 !!! XIOS Initialization (get the local communicator) … … 72 74 73 75 CALL xios_context_initialize("test",comm) 76 74 77 CALL xios_get_handle("test",ctx_hdl) 75 78 CALL xios_set_current_context(ctx_hdl) … … 125 128 CALL xios_is_defined_field_attr("field_A",enabled=ok) 126 129 PRINT *,"field_A : attribute enabled is defined ? ",ok 130 127 131 CALL xios_close_context_definition() 128 132 129 133 PRINT*,"field field_A is active ? ",xios_field_is_active("field_A") 134 135 call MPI_Barrier(comm, ierr) 136 130 137 DO ts=1,24*10 131 138 CALL xios_update_calendar(ts) 132 139 CALL xios_send_field("field_A",field_A) 133 CALL wait_us(5000) ;140 CALL wait_us(5000) 134 141 ENDDO 135 142 … … 141 148 142 149 CALL xios_finalize() 150 print *, "Client : xios_finalize " 151 152 else 153 154 CALL xios_init_server 155 print *, "Server : xios_finalize " 156 157 endif 158 143 159 144 160 CALL MPI_FINALIZE(ierr) -
XIOS/dev/branch_yushan_merged/src/test/test_complete.f90
r787 r1134 5 5 IMPLICIT NONE 6 6 INCLUDE "mpif.h" 7 INTEGER :: rank 7 INTEGER :: rank, size 8 8 INTEGER :: size_loc 9 9 INTEGER :: ierr … … 28 28 INTEGER, ALLOCATABLE :: kindex(:) 29 29 INTEGER :: ni,ibegin,iend,nj,jbegin,jend 30 INTEGER :: i,j,l,ts,n, nb_pt 30 INTEGER :: i,j,l,ts,n, nb_pt, provided 31 31 32 32 !!! MPI Initialization 33 33 34 CALL MPI_INIT(ierr) 34 CALL MPI_INIT_THREAD(3, provided, ierr) 35 if(provided .NE. 3) then 36 print*, "provided thread level = ", provided 37 call MPI_Abort() 38 endif 39 40 35 41 36 42 CALL init_wait 43 44 CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) 45 CALL MPI_COMM_SIZE(MPI_COMM_WORLD,size,ierr) 46 if(rank < size-1) then 37 47 38 48 !!! XIOS Initialization (get the local communicator) … … 220 230 !#################################################################################### 221 231 222 DO ts=1,24*10 232 DO ts=1,24*2 233 !DO ts=1,24 223 234 224 235 CALL xios_get_handle("atmosphere",ctx_hdl) … … 255 266 !!! Fin des contextes 256 267 257 CALL xios_context_finalize() 258 CALL xios_get_handle("atmosphere",ctx_hdl) 268 269 CALL xios_get_handle("surface",ctx_hdl) 270 259 271 CALL xios_set_current_context(ctx_hdl) 260 272 CALL xios_context_finalize() 261 273 274 print *, "xios_context_finalize(surface)" 275 276 CALL xios_get_handle("atmosphere",ctx_hdl) 277 278 CALL xios_set_current_context(ctx_hdl) 279 280 CALL xios_context_finalize() 281 282 print *, "xios_context_finalize(atmosphere)" 283 284 285 286 !!! Fin de XIOS 287 288 289 290 CALL xios_finalize() 291 262 292 DEALLOCATE(lon, lat, field_A_atm, lonvalue) 263 293 DEALLOCATE(kindex, field_A_srf) 264 294 265 !!! Fin de XIOS 295 print *, "Client : xios_finalize " 266 296 267 297 CALL MPI_COMM_FREE(comm, ierr) 268 298 269 CALL xios_finalize() 299 else 300 301 CALL xios_init_server 302 print *, "Server : xios_finalize " 303 304 endif 305 270 306 271 307 CALL MPI_FINALIZE(ierr)
Note: See TracChangeset
for help on using the changeset viewer.