Changeset 587


Ignore:
Timestamp:
04/01/15 17:53:06 (6 years ago)
Author:
mhnguyen
Message:

Correcting some issues because of merging code

+) Correct Fortran interface
+) Make a new interface for function sending a scalar

Test
+) On Curie:
+) Mode attached and connected
+) test_client and test_complete are correct

Location:
XIOS/trunk/src
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/fortran/idata.F90

    r586 r587  
    277277 
    278278 
    279    SUBROUTINE xios(send_field_r8)(fieldid, data_k8) 
     279   SUBROUTINE xios(send_scalar_r8)(fieldid, data_k8) 
    280280   IMPLICIT NONE 
    281281      CHARACTER(len = *) , INTENT(IN) :: fieldid 
    282282      REAL     (kind = 8), INTENT(IN) :: data_k8 
    283283      CALL cxios_write_data_k80(fieldid, len(fieldid), data_k8, 1) 
    284    END SUBROUTINE xios(send_field_r8) 
    285  
    286    SUBROUTINE xios(send_field_r4)(fieldid, data_k4) 
     284   END SUBROUTINE xios(send_scalar_r8) 
     285 
     286   SUBROUTINE xios(send_scalar_r4)(fieldid, data_k4) 
    287287   IMPLICIT NONE 
    288288      CHARACTER(len = *) , INTENT(IN) :: fieldid 
    289289      REAL     (kind = 4), INTENT(IN) :: data_k4 
    290290      CALL cxios_write_data_k40(fieldid, len(fieldid), data_k4, 1) 
    291    END SUBROUTINE xios(send_field_r4) 
     291   END SUBROUTINE xios(send_scalar_r4) 
    292292 
    293293 
  • XIOS/trunk/src/interface/fortran/ixios.F90

    • Property svn:executable deleted
    r586 r587  
    1111 
    1212USE icontext_attr, ONLY : xios(set_context_attr), xios(get_context_attr), xios(is_defined_context_attr) 
    13                   xios(setVar_logic), xios(setVar_char), xios(send_field_r8), xios(send_field_r4) 
    1413 
    1514USE idata, ONLY : xios(initialize), xios(init_server), xios(finalize), xios(context_initialize), xios(context_is_initialized), & 
     
    3938 
    4039USE ifield, ONLY : txios(field), txios(fieldgroup), xios(is_valid_field), xios(is_valid_fieldgroup) 
    41                     xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d),              & 
    42                     xios(send_field_r8), xios(send_field_r4) 
    4340 
    4441USE ifield_attr, ONLY : xios(set_field_attr), xios(get_field_attr), xios(is_defined_field_attr) 
     
    7168 
    7269USE XIOS_INTERFACES, ONLY : xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), & 
    73                             xios(add_child), xios(send_field), xios(field_is_active), xios(getVar), xios(setVar) 
     70                            xios(add_child), xios(send_field), xios(send_scalar), xios(field_is_active), xios(getVar), xios(setVar) 
    7471 
    7572END MODULE XIOS 
  • XIOS/trunk/src/interface/fortran/ixios_interfaces.F90

    r577 r587  
    77USE icontext_attr, ONLY : xios(set_context_attr_hdl), xios(get_context_attr_hdl), xios(is_defined_context_attr_hdl) 
    88 
    9 USE idata, ONLY : xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d),                    & 
    10                   xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d),                    & 
     9USE idata, ONLY : xios(send_scalar_r8), xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d),                    & 
     10                  xios(send_scalar_r4), xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d),                    & 
    1111                  xios(getVar_k8), xios(getVar_k4), xios(getVar_int), xios(getVar_logic), xios(getVar_char), & 
    1212                  xios(setVar_k8), xios(setVar_k4), xios(setVar_int), xios(setVar_logic), xios(setVar_char) 
     
    102102END INTERFACE xios(send_field) 
    103103 
     104INTERFACE xios(send_scalar) 
     105  MODULE PROCEDURE xios(send_scalar_r8), xios(send_scalar_r4) 
     106END INTERFACE xios(send_scalar) 
     107 
    104108INTERFACE xios(field_is_active) 
    105109  MODULE PROCEDURE xios(field_is_active_id),xios(field_is_active_hdl) 
     
    115119 
    116120PUBLIC :: xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), & 
    117           xios(add_child), xios(send_field), xios(field_is_active), xios(getVar), xios(setVar) 
     121          xios(add_child), xios(send_field), xios(field_is_active), xios(getVar), xios(setVar), xios(send_scalar) 
    118122 
    119123END MODULE XIOS_INTERFACES 
  • XIOS/trunk/src/node/grid.cpp

    r586 r587  
    482482      else grid->scalar_grid = false; 
    483483 
    484       grid->computeGridGlobalDimension(domains, axis, grid->axisDomainOrder); 
     484      grid->computeGridGlobalDimension(domains, axis, grid->axis_domain_order); 
    485485 
    486486      return (grid); 
     
    762762     if (0 == serverDistribution_) 
    763763     { 
     764       int idx = 0, numElement = axis_domain_order.numElements(); 
    764765       int ssize = numElement; 
    765766       std::vector<int> indexMap(numElement); 
  • XIOS/trunk/src/test/test_new_features.f90

    r586 r587  
    150150    CALL xios_send_field("field_All_Axis",field_All_Axis) 
    151151    tsTemp = ts 
    152     CALL xios_send_field("field_Scalar", tsTemp) 
     152    CALL xios_send_scalar("field_Scalar", tsTemp) 
    153153    CALL wait_us(5000) ; 
    154154  ENDDO 
Note: See TracChangeset for help on using the changeset viewer.