Changeset 549 for XIOS/trunk/src/test/test_new_features.f90
- Timestamp:
- 01/26/15 14:39:26 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_new_features.f90
r543 r549 69 69 70 70 ALLOCATE(lon(ni,nj),lat(ni,nj),field_A(0:ni+1,-1:nj+2,llm),lonvalue(ni*nj)) 71 ! 71 ! ALLOCATE(lon(ni,nj),lat(ni,nj),field_A(0:ni+1,-1:nj+2,llm,llm),lonvalue(ni*nj)) 72 72 lon(:,:)=lon_glo(ibegin:iend,jbegin:jend) 73 73 lat(:,:)=lat_glo(ibegin:iend,jbegin:jend) … … 78 78 CALL xios_set_current_context(ctx_hdl) 79 79 80 CALL xios_set_context_attr("test",calendar_type="Gregorian")80 ! CALL xios_define_calendar(type="Gregorian") 81 81 CALL xios_set_axis_attr("axis_A",size=llm ,value=lval) ; 82 ! 82 ! CALL xios_set_axis_attr("axis_B",size=llm ,value=lval2) ; 83 83 CALL xios_set_domain_attr("domain_A",ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, ni=ni,jbegin=jbegin,nj=nj) 84 84 CALL xios_set_domain_attr("domain_A",data_dim=2, data_ibegin=-1, data_ni=ni+2, data_jbegin=-2, data_nj=nj+4) … … 96 96 97 97 dtime%second=3600 98 CALL xios_set_context_attr("test",timestep=dtime)98 ! CALL xios_set_timestep(timestep=dtime) 99 99 100 100 ni=0 ; lonvalue(:)=0
Note: See TracChangeset
for help on using the changeset viewer.