Changeset 1025 for XIOS/dev/dev_olga/src/test/test_remap.f90
- Timestamp:
- 01/11/17 15:14:22 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/test/test_remap.f90
r978 r1025 166 166 167 167 CALL xios_close_context_definition() 168 !CALL xios_get_domain_attr("src_domain_regular_read", ni=src_tmp_ni, nj=src_tmp_nj)169 !ALLOCATE(tmp_field_0(src_tmp_ni*src_tmp_nj))168 CALL xios_get_domain_attr("src_domain_regular_read", ni=src_tmp_ni, nj=src_tmp_nj) 169 ALLOCATE(tmp_field_0(src_tmp_ni*src_tmp_nj)) 170 170 171 171 ! CALL xios_get_axis_attr("src_axis_curvilinear_read", n=src_tmp_n) … … 177 177 178 178 DO ts=1,5 179 !CALL xios_recv_field("src_field_regular", tmp_field_0)179 CALL xios_recv_field("src_field_regular", tmp_field_0) 180 180 ! CALL xios_recv_field("src_field_curvilinear", tmp_field_1) 181 181 ! CALL xios_recv_field("src_field_unstructured", tmp_field_2) … … 186 186 CALL xios_send_field("src_field_4D",src_field_4D) 187 187 CALL xios_send_field("src_field_3D_pression",src_field_pression) 188 !CALL xios_send_field("tmp_field_0",tmp_field_0)188 CALL xios_send_field("tmp_field_0",tmp_field_0) 189 189 ! CALL xios_send_field("tmp_field_1",tmp_field_1) 190 190 ! CALL xios_send_field("tmp_field_2",tmp_field_2)
Note: See TracChangeset
for help on using the changeset viewer.