Ignore:
Timestamp:
11/30/17 12:35:59 (3 years ago)
Author:
yushan
Message:

toy_cmip6_omp from Curie

File:
1 edited

Legend:

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

    r954 r1350  
    4444  DOUBLE PRECISION,ALLOCATABLE :: field_A_compressed(:,:) 
    4545 
     46  CALL MPI_INIT(ierr) 
     47  CALL init_wait 
     48 
    4649  CALL xios_initialize(id,return_comm=comm) 
    4750  CALL MPI_COMM_RANK(comm,mpi_rank,ierr) 
    4851  CALL MPI_COMM_SIZE(comm,mpi_size,ierr) 
    4952 
    50   CALL init_wait 
     53   
    5154 
    5255  ncell_glo=0 
     
    207210  CALL xios_set_domain_attr("domain_srf", lonvalue_1D=lon, latvalue_1D=lat) 
    208211  CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon_1D=bounds_lon, bounds_lat_1D=bounds_lat) 
    209 !  CALL xios_set_compute_connectivity_domain_attr("compute", n_neighbor=n_local, local_neighbor=local_neighbor) 
     212  CALL xios_set_compute_connectivity_domain_attr("compute", n_neighbor=n_local, local_neighbor=local_neighbor) 
    210213 
    211214 
     
    248251  DEALLOCATE(data_i_index) 
    249252 
     253  CALL xios_finalize() 
    250254  CALL MPI_COMM_FREE(comm, ierr) 
    251  
    252   CALL xios_finalize() 
     255   
     256  CALL MPI_FINALIZE(ierr) 
    253257 
    254258CONTAINS 
Note: See TracChangeset for help on using the changeset viewer.