Ignore:
Timestamp:
03/17/17 18:02:20 (7 years ago)
Author:
yushan
Message:

backup modification

Location:
XIOS/dev/branch_yushan/src/test
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/branch_yushan/src/test/test_client.f90

    r1073 r1079  
    3737  CALL init_wait 
    3838 
    39   CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) 
    40   if(rank < 2) then 
     39  !CALL MPI_COMM_RANK(MPI_COMM_WORLD,rank,ierr) 
     40  !if(rank < 2) then 
    4141 
    4242   
    … …  
    153153  print *, "Client : xios_finalize " 
    154154 
    155    else 
     155!    else 
    156156 
    157    CALL xios_init_server 
    158    print *, "Server : xios_finalize " 
     157!    CALL xios_init_server 
     158!    print *, "Server : xios_finalize " 
    159159   
    160    endif 
     160!    endif 
    161161     
    162162 

  • XIOS/dev/branch_yushan/src/test/test_omp.f90

    r1074 r1079  
    7979  print*, "xios init OK", rank, size 
    8080 
    81 !   CALL xios_context_initialize("test",comm) 
     81   CALL xios_context_initialize("test",comm) 
    8282 
    83 !   print*, "xios_context init OK", rank, size  
     83   print*, "xios_context init OK", rank, size  
    8484 
    8585  !CALL xios_context_finalize() 
    … …  
    8888  !print*, "xios_context finalize OK", rank, size  
    8989 
     90 
     91 
    9092  !$omp end parallel 
    9193 
     94  call MPI_Abort(ierr) 
    9295 
    9396   
Note: See TracChangeset for help on using the changeset viewer.