Changeset 1220 for XIOS/dev/branch_openmp/src/test/test_remap_omp.f90
- Timestamp:
- 07/20/17 09:18:34 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/src/test/test_remap_omp.f90
r1203 r1220 222 222 CALL xios_close_context_definition() 223 223 224 !CALL xios_get_domain_attr("src_domain_regular_read", ni=src_tmp_ni, nj=src_tmp_nj)225 !ALLOCATE(tmp_field_0(src_tmp_ni*src_tmp_nj))226 227 !CALL xios_get_axis_attr("src_axis_curvilinear_read", n=src_tmp_n)228 !CALL xios_get_domain_attr("src_domain_curvilinear_read", ni=src_tmp_ni, nj=src_tmp_nj)229 !ALLOCATE(tmp_field_1(src_tmp_ni*src_tmp_nj*src_tmp_n))230 231 !CALL xios_get_domain_attr("src_domain_unstructured_read", ni=src_tmp_ni, nj=src_tmp_nj)232 !ALLOCATE(tmp_field_2(src_tmp_ni*src_tmp_nj))233 234 !CALL xios_recv_field("src_field_regular", tmp_field_0)235 !CALL xios_recv_field("src_field_curvilinear", tmp_field_1)236 !CALL xios_recv_field("src_field_unstructured", tmp_field_2)224 CALL xios_get_domain_attr("src_domain_regular_read", ni=src_tmp_ni, nj=src_tmp_nj) 225 ALLOCATE(tmp_field_0(src_tmp_ni*src_tmp_nj)) 226 227 CALL xios_get_axis_attr("src_axis_curvilinear_read", n=src_tmp_n) 228 CALL xios_get_domain_attr("src_domain_curvilinear_read", ni=src_tmp_ni, nj=src_tmp_nj) 229 ALLOCATE(tmp_field_1(src_tmp_ni*src_tmp_nj*src_tmp_n)) 230 231 CALL xios_get_domain_attr("src_domain_unstructured_read", ni=src_tmp_ni, nj=src_tmp_nj) 232 ALLOCATE(tmp_field_2(src_tmp_ni*src_tmp_nj)) 233 234 CALL xios_recv_field("src_field_regular", tmp_field_0) 235 CALL xios_recv_field("src_field_curvilinear", tmp_field_1) 236 CALL xios_recv_field("src_field_unstructured", tmp_field_2) 237 237 238 238 DO ts=1,10 … … 252 252 CALL xios_send_field("src_field_4D",src_field_4D) 253 253 CALL xios_send_field("src_field_3D_pression",src_field_pression) 254 !CALL xios_send_field("tmp_field_0",tmp_field_0)255 !CALL xios_send_field("tmp_field_1",tmp_field_1)256 !CALL xios_send_field("tmp_field_2",tmp_field_2)254 CALL xios_send_field("tmp_field_0",tmp_field_0) 255 CALL xios_send_field("tmp_field_1",tmp_field_1) 256 CALL xios_send_field("tmp_field_2",tmp_field_2) 257 257 CALL wait_us(5000) ; 258 258 ENDDO … … 262 262 DEALLOCATE(src_lon, src_lat, src_boundslon,src_boundslat, src_field_2D) 263 263 DEALLOCATE(dst_lon, dst_lat, dst_boundslon,dst_boundslat) 264 !DEALLOCATE(tmp_field_0, tmp_field_1, tmp_field_2)264 DEALLOCATE(tmp_field_0, tmp_field_1, tmp_field_2) 265 265 266 266 CALL xios_finalize() … … 293 293 294 294 295
Note: See TracChangeset
for help on using the changeset viewer.