- Timestamp:
- 11/30/17 12:35:59 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/src/test/test_unstruct_complete.f90
r954 r1350 44 44 DOUBLE PRECISION,ALLOCATABLE :: field_A_compressed(:,:) 45 45 46 CALL MPI_INIT(ierr) 47 CALL init_wait 48 46 49 CALL xios_initialize(id,return_comm=comm) 47 50 CALL MPI_COMM_RANK(comm,mpi_rank,ierr) 48 51 CALL MPI_COMM_SIZE(comm,mpi_size,ierr) 49 52 50 CALL init_wait53 51 54 52 55 ncell_glo=0 … … 207 210 CALL xios_set_domain_attr("domain_srf", lonvalue_1D=lon, latvalue_1D=lat) 208 211 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) 210 213 211 214 … … 248 251 DEALLOCATE(data_i_index) 249 252 253 CALL xios_finalize() 250 254 CALL MPI_COMM_FREE(comm, ierr) 251 252 CALL xios_finalize()255 256 CALL MPI_FINALIZE(ierr) 253 257 254 258 CONTAINS
Note: See TracChangeset
for help on using the changeset viewer.