Changeset 1677 for XIOS/dev/dev_trunk_omp/src/test/test_omp.f90
- Timestamp:
- 06/25/19 16:14:54 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_trunk_omp/src/test/test_omp.f90
r1671 r1677 169 169 PRINT*,"field field_A is active ? ",xios_field_is_active("field_A") 170 170 171 DO ts=1, 4171 DO ts=1,2 172 172 CALL xios_update_calendar(ts) 173 173 CALL xios_send_field("field_A",field_A) 174 CALL xios_send_field("field_Axis",axisValue) 174 CALL xios_send_field("field_B",field_A) 175 CALL xios_send_field("field_C",field_A) 176 !CALL xios_send_field("field_Axis",axisValue) 175 177 ! CALL xios_send_field("field_Axis",lval) 176 CALL xios_send_field("field_Domain",field_domain)177 CALL xios_send_field("field_Scalar",scalar)178 !CALL xios_send_field("field_Domain",field_domain) 179 !CALL xios_send_field("field_Scalar",scalar) 178 180 CALL wait_us(5000) 179 181 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.