Changeset 537 for XIOS/trunk/src/test/test_client.f90
- Timestamp:
- 12/11/14 14:32:37 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_client.f90
r501 r537 11 11 CHARACTER(len=*),PARAMETER :: id="client" 12 12 INTEGER :: comm 13 TYPE(xios_ time):: dtime13 TYPE(xios_duration) :: dtime 14 14 TYPE(xios_context) :: ctx_hdl 15 15 INTEGER,PARAMETER :: ni_glo=100 … … 88 88 89 89 dtime%second=3600 90 CALL xios_set_ timestep(dtime)90 CALL xios_set_context_attr("test", timestep=dtime) 91 91 92 92 ni=0 ; lonvalue(:)=0
Note: See TracChangeset
for help on using the changeset viewer.