Ignore:
Timestamp:
01/11/17 15:14:22 (7 years ago)
Author:
mhnguyen
Message:

Merging working version of coupler

+) Add some changes of domain and axis: Retransfer the atttributes in a generic ways for each level of client (or server)
+) Remove some spoiled files from the previous commits

Test
+) No test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/dev_olga/src/test/test_remap.f90

    r978 r1025  
    166166 
    167167  CALL xios_close_context_definition() 
    168   ! CALL xios_get_domain_attr("src_domain_regular_read", ni=src_tmp_ni, nj=src_tmp_nj) 
    169   ! ALLOCATE(tmp_field_0(src_tmp_ni*src_tmp_nj)) 
     168  CALL xios_get_domain_attr("src_domain_regular_read", ni=src_tmp_ni, nj=src_tmp_nj) 
     169  ALLOCATE(tmp_field_0(src_tmp_ni*src_tmp_nj)) 
    170170 
    171171  ! CALL xios_get_axis_attr("src_axis_curvilinear_read", n=src_tmp_n) 
     
    177177 
    178178  DO ts=1,5 
    179     ! CALL xios_recv_field("src_field_regular", tmp_field_0) 
     179    CALL xios_recv_field("src_field_regular", tmp_field_0) 
    180180    ! CALL xios_recv_field("src_field_curvilinear", tmp_field_1) 
    181181    ! CALL xios_recv_field("src_field_unstructured", tmp_field_2) 
     
    186186    CALL xios_send_field("src_field_4D",src_field_4D) 
    187187    CALL xios_send_field("src_field_3D_pression",src_field_pression) 
    188     ! CALL xios_send_field("tmp_field_0",tmp_field_0) 
     188    CALL xios_send_field("tmp_field_0",tmp_field_0) 
    189189    ! CALL xios_send_field("tmp_field_1",tmp_field_1) 
    190190    ! CALL xios_send_field("tmp_field_2",tmp_field_2) 
Note: See TracChangeset for help on using the changeset viewer.