Changeset 532 for XIOS/trunk/src/test/test_complete.f90
- Timestamp:
- 12/10/14 14:27:09 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_complete.f90
r501 r532 11 11 CHARACTER(len=*),PARAMETER :: id="client" 12 12 INTEGER :: comm 13 TYPE(xios_date) :: start_date, time_origin 13 14 TYPE(xios_time) :: dtime 14 15 TYPE(xios_context) :: ctx_hdl … … 83 84 CALL xios_set_current_context(ctx_hdl) 84 85 85 CALL xios_set_context_attr("atmosphere",calendar_type="Gregorian") 86 CALL xios_set_context_attr("atmosphere",start_date="2000-01-01 00:00:00") 87 CALL xios_set_context_attr("atmosphere",time_origin="1999-01-01 15:00:00") 86 CALL xios_set_context_attr("atmosphere",calendar_type="Gregorian") 87 start_date = xios_date(2000, 01, 01, 00, 00, 00) 88 CALL xios_set_context_attr("atmosphere",start_date=start_date) 89 time_origin = xios_date(1999, 01, 01, 15, 00, 00) 90 CALL xios_set_context_attr("atmosphere",time_origin=time_origin) 88 91 89 92 CALL xios_set_axis_attr("axis_atm",size=llm ,value=lval) ; … … 171 174 CALL xios_set_current_context(ctx_hdl) 172 175 173 CALL xios_set_context_attr("surface",calendar_type="Gregorian") 174 CALL xios_set_context_attr("surface",start_date="2000-01-01 00:00:00") 175 CALL xios_set_context_attr("surface",time_origin="1999-01-01 15:00:00") 176 CALL xios_set_context_attr("surface",calendar_type="Gregorian") 177 start_date = xios_date(2000, 01, 01, 00, 00, 00) 178 CALL xios_set_context_attr("surface",start_date=start_date) 179 time_origin = xios_date(1999, 01, 01, 15, 00, 00) 180 CALL xios_set_context_attr("surface",time_origin=time_origin) 176 181 177 182 CALL xios_set_axis_attr("axis_srf",size=llm ,value=lval) ;
Note: See TracChangeset
for help on using the changeset viewer.