Ignore:
Timestamp:
03/22/18 10:43:20 (6 years ago)
Author:
yushan
Message:

branch_openmp merged with XIOS_DEV_CMIP6@1459

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/branch_openmp/src/test/test_unstruct_complete.f90

    r1350 r1460  
    4444  DOUBLE PRECISION,ALLOCATABLE :: field_A_compressed(:,:) 
    4545 
    46   CALL MPI_INIT(ierr) 
    47   CALL init_wait 
    48  
    4946  CALL xios_initialize(id,return_comm=comm) 
    5047  CALL MPI_COMM_RANK(comm,mpi_rank,ierr) 
    5148  CALL MPI_COMM_SIZE(comm,mpi_size,ierr) 
    5249 
    53    
     50  CALL init_wait 
    5451 
    5552  ncell_glo=0 
    … …  
    210207  CALL xios_set_domain_attr("domain_srf", lonvalue_1D=lon, latvalue_1D=lat) 
    211208  CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon_1D=bounds_lon, bounds_lat_1D=bounds_lat) 
    212   CALL xios_set_compute_connectivity_domain_attr("compute", n_neighbor=n_local, local_neighbor=local_neighbor) 
     209!  CALL xios_set_compute_connectivity_domain_attr("compute", n_neighbor=n_local, local_neighbor=local_neighbor) 
    213210 
    214211 
    … …  
    251248  DEALLOCATE(data_i_index) 
    252249 
     250  CALL MPI_COMM_FREE(comm, ierr) 
     251 
    253252  CALL xios_finalize() 
    254   CALL MPI_COMM_FREE(comm, ierr) 
    255    
    256   CALL MPI_FINALIZE(ierr) 
    257253 
    258254CONTAINS 
Note: See TracChangeset for help on using the changeset viewer.