Changeset 659 for XIOS/trunk/src/test/test_unstruct_complete.f90
- Timestamp:
- 07/28/15 14:42:21 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_unstruct_complete.f90
r658 r659 201 201 CALL xios_set_axis_attr("axis_srf",size=llm ,value=lval) ; 202 202 ! CALL xios_set_domain_attr("domain_srf",ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=RESHAPE(i_index,(/ncell,1/) )) 203 CALL xios_set_domain_attr("domain_srf",ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=i_index) 204 CALL xios_set_domain_attr("domain_srf",data_dim=1, data_ni=data_n_index, data_n_index=data_n_index, data_i_index=data_i_index, type='unstructured') 205 CALL xios_set_domain_attr("domain_srf",lonvalue=lon,latvalue=lat) 206 CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon=bounds_lon, bounds_lat=bounds_lat ) 203 CALL xios_set_domain_attr("domain_srf", ni_glo=ncell_glo, ni=ncell, ibegin=1, i_index=i_index) 204 CALL xios_set_domain_attr("domain_srf", type='unstructured', data_dim=1, data_ni=data_n_index, & 205 data_n_index=data_n_index, data_i_index=data_i_index) 206 CALL xios_set_domain_attr("domain_srf", lonvalue=lon, latvalue=lat) 207 CALL xios_set_domain_attr("domain_srf", nvertex=4, bounds_lon=bounds_lon, bounds_lat=bounds_lat) 207 208 ! CALL xios_set_domain_attr("domain_srf", mask=RESHAPE(mask,(/ncell,1/) )) 208 209
Note: See TracChangeset
for help on using the changeset viewer.