Changeset 621 for XIOS/trunk/src/test
- Timestamp:
- 06/22/15 13:36:21 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_new_features.f90
r620 r621 17 17 INTEGER,PARAMETER :: ni_glo=5 18 18 INTEGER,PARAMETER :: nj_glo=5 19 INTEGER,PARAMETER :: llm= 519 INTEGER,PARAMETER :: llm=2 20 20 DOUBLE PRECISION :: lval(llm)=1, tsTemp 21 21 TYPE(xios_field) :: field_hdl … … 155 155 DO ts=1,24*10 156 156 CALL xios_update_calendar(ts) 157 !CALL xios_send_field("field_A",field_A)157 CALL xios_send_field("field_A",field_A) 158 158 CALL xios_send_field("field_Axis",field_Axis) 159 159 160 160 CALL xios_send_field("field_Two_Axis",field_Two_Axis) 161 !CALL xios_send_field("field_All_Axis",field_All_Axis)161 CALL xios_send_field("field_All_Axis",field_All_Axis) 162 162 ! tsTemp = ts 163 163 ! CALL xios_send_scalar("field_Scalar", tsTemp)
Note: See TracChangeset
for help on using the changeset viewer.