Changeset 820 for XIOS/trunk/src/test/test_remap.f90
- Timestamp:
- 02/10/16 14:34:46 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_remap.f90
r786 r820 120 120 bounds_lon_1D=dst_boundslon, bounds_lat_1D=dst_boundslat, nvertex=dst_nvertex) 121 121 122 CALL xios_set_generate_rectilinear_domain_attr("domain_regular_pole", lat_start=dble(-90.0), lat_end=dble(90), &123 lon_start=dble(2), lon_end=dble(360))124 125 122 dtime%second = 3600 126 123 CALL xios_set_timestep(dtime) … … 134 131 ALLOCATE(tmp_field_1(src_tmp_ni*src_tmp_nj*src_tmp_n)) 135 132 136 CALL xios_get_domain_attr(" domain_src_unstructured", ni=src_tmp_ni, nj=src_tmp_nj)133 CALL xios_get_domain_attr("src_domain_unstructured", ni=src_tmp_ni, nj=src_tmp_nj) 137 134 ALLOCATE(tmp_field_2(src_tmp_ni*src_tmp_nj)) 138 135 139 136 DO ts=1,1 137 140 138 CALL xios_recv_field("src_field_regular_tmp", tmp_field) 141 139 CALL xios_recv_field("src_field_curvilinear", tmp_field_1)
Note: See TracChangeset
for help on using the changeset viewer.