Changeset 1704 for XIOS/trunk/src/test
- Timestamp:
- 09/11/19 10:22:09 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_client.f90
r1202 r1704 132 132 PRINT*,"field field_A is active ? ",xios_field_is_active("field_A") 133 133 ! CALL xios_recv_field("field", scalar) 134 DO ts=1, 4134 DO ts=1,24 135 135 CALL xios_update_calendar(ts) 136 136 CALL xios_send_field("field_A",field_A) 137 CALL xios_send_field("field_Axis",axisValue) 137 CALL xios_send_field("field_B",field_A) 138 CALL xios_send_field("field_C",field_A) 139 ! CALL xios_send_field("field_Axis",axisValue) 138 140 ! CALL xios_send_field("field_Axis",lval) 139 CALL xios_send_field("field_Domain",field_domain)140 CALL xios_send_field("field_Scalar",scalar)141 ! CALL xios_send_field("field_Domain",field_domain) 142 ! CALL xios_send_field("field_Scalar",scalar) 141 143 CALL wait_us(5000) ; 142 144 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.