- Timestamp:
- 09/20/21 18:18:17 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_ym/XIOS_COUPLING/src/test/generic_testcase.f90
r2234 r2236 204 204 LOGICAL :: ok_other_field0D_W, ok_other_field2D_W, ok_other_field3D_W, ok_other_pressure_W, ok_other_field2D_sub_W, ok_other_field3D_sub_W,ok_other_field3D_recv_W, ok_other_field3D_send_W 205 205 LOGICAL :: ok_other_field_XW, ok_other_field_YW, ok_other_field_XYW, ok_other_field_ZW, ok_other_field_XYZW, ok_other_field_XZW, ok_other_field_YZW 206 207 TYPE(xios_domain) :: domain_handle 206 208 207 209 !! XIOS Initialization (get the local communicator) … … 635 637 CALL xios_close_context_definition() 636 638 CALL xios_set_current_context(trim(model_id)) 637 639 ! CALL xios_get_handle("field3D::domain",domain_handle) 638 640 639 641 DO while ( cdate <= edate )
Note: See TracChangeset
for help on using the changeset viewer.