Changeset 664 for XIOS/trunk/src/test/test_client.f90
- Timestamp:
- 08/24/15 14:53:17 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_client.f90
r655 r664 77 77 78 78 CALL xios_set_axis_attr("axis_A",size=llm ,value=lval) ; 79 CALL xios_set_domain_attr("domain_A",ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, ni=ni,jbegin=jbegin,nj=nj )79 CALL xios_set_domain_attr("domain_A",ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, ni=ni,jbegin=jbegin,nj=nj,type='curvilinear') 80 80 CALL xios_set_domain_attr("domain_A",data_dim=2, data_ibegin=-1, data_ni=ni+2, data_jbegin=-2, data_nj=nj+4) 81 CALL xios_set_domain_attr("domain_A",lonvalue=RESHAPE(lon,(/ni*nj/)),latvalue=RESHAPE(lat,(/ni*nj/))) 81 ! CALL xios_set_domain_attr("domain_A",lonvalue=RESHAPE(lon,(/ni*nj/)),latvalue=RESHAPE(lat,(/ni*nj/))) 82 CALL xios_set_domain_attr("domain_A",lonvalue_2D=lon,latvalue_2D=lat) 82 83 CALL xios_set_fieldgroup_attr("field_definition",enabled=.TRUE.) 83 84 … … 112 113 PRINT *, "xios_date_convert_to_seconds(date - 2.5h) = ", xios_date_convert_to_seconds(date - 2.5 * xios_hour) 113 114 114 ni=0 ; lonvalue(:)=0 115 CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue =lonvalue)115 ni=0 ; lonvalue(:)=0; lon(:,:)=0 116 CALL xios_get_domain_attr("domain_A",ni=ni,lonvalue_2D=lon) 116 117 117 118 print *,"ni",ni 118 print *,"lonvalue",lon value;119 print *,"lonvalue",lon; 119 120 120 121 CALL xios_is_defined_field_attr("field_A",enabled=ok)
Note: See TracChangeset
for help on using the changeset viewer.