Changeset 275


Ignore:
Timestamp:
09/16/11 11:18:56 (10 years ago)
Author:
hozdoba
Message:

Diverses corrections

Location:
XMLIO_V2/dev/common/src/xmlio/fortran
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_V2/dev/common/src/xmlio/fortran/fieldgroup_interface.f90

    r274 r275  
    9898      END SUBROUTINE xios_set_fieldgroup_default_value 
    9999       
    100       SUBROUTINE xios_domaingroup_handle_create(ret, idt, idt_size) BIND(C) 
     100      SUBROUTINE xios_fieldgroup_handle_create(ret, idt, idt_size) BIND(C) 
    101101         import C_CHAR, C_INTPTR_T, C_INT 
    102102         INTEGER  (kind = C_INTPTR_T)               :: ret 
    103103         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    104104         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    105       END SUBROUTINE xios_domaingroup_handle_create 
     105      END SUBROUTINE xios_fieldgroup_handle_create 
    106106    
    107107   END INTERFACE 
  • XMLIO_V2/dev/common/src/xmlio/fortran/file_interface.f90

    r274 r275  
    1717         INTEGER  (kind = C_INT)     , VALUE        :: description_size 
    1818      END SUBROUTINE xios_set_file_description 
     19       
     20      SUBROUTINE xios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C) 
     21         USE ISO_C_BINDING 
     22         INTEGER  (kind = C_INTPTR_T), VALUE        :: file_hdl 
     23         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix 
     24         INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size 
     25      END SUBROUTINE xios_set_file_name_suffix 
    1926 
    2027      SUBROUTINE xios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C) 
  • XMLIO_V2/dev/common/src/xmlio/fortran/filegroup_interface.f90

    r274 r275  
    1717         INTEGER  (kind = C_INT)     , VALUE        :: description_size 
    1818      END SUBROUTINE xios_set_filegroup_description 
     19       
     20      SUBROUTINE xios_set_filegroup_name_suffix(filegroup_hdl, name_suffix ,name_suffix_size) BIND(C) 
     21         USE ISO_C_BINDING 
     22         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl 
     23         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix 
     24         INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size 
     25      END SUBROUTINE xios_set_filegroup_name_suffix 
    1926 
    2027      SUBROUTINE xios_set_filegroup_output_freq(filegroup_hdl, output_freq ,output_freq_size) BIND(C) 
  • XMLIO_V2/dev/common/src/xmlio/fortran/icfile.cpp

    r274 r275  
    4141   }  
    4242    
     43   void xios_set_file_name_suffix(XFilePtr file_hdl, const char * name_suffix, int name_suffix_size) 
     44   { 
     45      std::string name_suffix_str;  
     46      if (!cstr2string(name_suffix, name_suffix_size, name_suffix_str)) return; 
     47 
     48      file_hdl->name_suffix.setValue(name_suffix_str); 
     49   }  
     50    
    4351   void xios_set_file_output_freq(XFilePtr file_hdl, const char * output_freq, int output_freq_size) 
    4452   { 
     
    7684 
    7785      filegroup_hdl->description.setValue(description_str); 
     86   }  
     87    
     88   void xios_set_filegroup_name_suffix(XFileGroupPtr filegroup_hdl, const char * name_suffix, int name_suffix_size) 
     89   { 
     90      std::string name_suffix_str;  
     91      if (!cstr2string(name_suffix, name_suffix_size, name_suffix_str)) return; 
     92 
     93      filegroup_hdl->name_suffix.setValue(name_suffix_str); 
    7894   }  
    7995    
  • XMLIO_V2/dev/common/src/xmlio/fortran/idata.f90

    r274 r275  
    7070   END INTERFACE 
    7171    
     72   INTERFACE write_data 
     73      MODULE PROCEDURE write_data_k81,write_data_k82,write_data_k83,write_data_k41,write_data_k42,write_data_k43 
     74   END INTERFACE 
     75    
    7276   CONTAINS ! Fonctions disponibles pour les utilisateurs. 
    7377 
     
    7882    
    7983   SUBROUTINE dtreatment_start(context_hdl, filetype, comm_client_server, comm_server) 
    80       TYPE(XContextHandle), INTENT(IN), VALUE    :: context_hdl 
     84      TYPE(XContextHandle), INTENT(IN)           :: context_hdl 
    8185      INTEGER             , INTENT(IN), OPTIONAL :: filetype , comm_client_server , comm_server 
    8286      INTEGER                                    :: filetype_, comm_client_server_, comm_server_ 
     
    101105    
    102106   SUBROUTINE dtreatment_end(context_hdl) 
    103       TYPE(XContextHandle), INTENT(IN), VALUE :: context_hdl 
     107      TYPE(XContextHandle), INTENT(IN), OPTIONAL :: context_hdl 
    104108      CALL context_set_current(context_hdl) 
    105109      CALL xios_dtreatment_end() 
  • XMLIO_V2/dev/common/src/xmlio/fortran/idomain.f90

    r274 r275  
    2525    
    2626   SUBROUTINE set_domaingroup_attributes_id                                                                        & 
    27    ( domaingroup_id, name_, standard_name_, long_name_, domaingroup_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,  & 
     27   ( domaingroup_id, name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,       & 
    2828     ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,                   & 
    2929     zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,                 & 
    3030     zoom_jbegin_loc_, data_n_index_, data_i_index_, data_j_index_, lonvalue_, latvalue_) 
    3131      IMPLICIT NONE 
    32       TYPE(XDomainGroupHandle)                                   :: domaingroup_hdl 
     32      TYPE(XDomainGroupHandle)                              :: domaingroup_hdl 
    3333      CHARACTER(len = *)                       , INTENT(IN) :: domaingroup_id 
    3434      CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: name_ 
    3535      CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: standard_name_ 
    3636      CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: long_name_ 
    37       CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: domaingroup_group_ref_ 
     37      CHARACTER(len = *)             , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    3838      INTEGER                        , OPTIONAL, INTENT(IN) :: ni_glo_ 
    3939      INTEGER                        , OPTIONAL, INTENT(IN) :: nj_glo_ 
     
    6666      CALL domaingroup_handle_create(domaingroup_hdl, domaingroup_id) 
    6767      CALL set_domaingroup_attributes_hdl                                                                          & 
    68    ( domaingroup_hdl, name_, standard_name_, long_name_, domaingroup_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_, & 
     68   ( domaingroup_hdl, name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,      & 
    6969     ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,                   & 
    7070     zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,                 & 
     
    7474    
    7575   SUBROUTINE set_domaingroup_attributes_hdl                                                                       & 
    76    ( domaingroup_hdl,name_, standard_name_, long_name_, domaingroup_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,  & 
     76   ( domaingroup_hdl,name_, standard_name_, long_name_, domain_group_ref_, ni_glo_, nj_glo_, ibegin_, iend_,       & 
    7777     ni_, jbegin_, jend_, nj_, mask_, data_dim_, data_ni_, data_nj_, data_ibegin_, data_jbegin_,                   & 
    7878     zoom_ni_, zoom_nj_, zoom_ibegin_, zoom_jbegin_, zoom_ni_loc_, zoom_nj_loc_, zoom_ibegin_loc_,                 & 
     
    8383      CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: standard_name_ 
    8484      CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: long_name_ 
    85       CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: domaingroup_group_ref_ 
     85      CHARACTER(len = *)               , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    8686      INTEGER                          , OPTIONAL, INTENT(IN) :: ni_glo_ 
    8787      INTEGER                          , OPTIONAL, INTENT(IN) :: nj_glo_ 
     
    122122         CALL xios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_)) 
    123123       END IF 
    124       IF (PRESENT(domaingroup_group_ref_)) THEN 
    125          CALL xios_set_domaingroup_domaingroup_group_ref(domaingroup_hdl%daddr, domaingroup_group_ref_, len(domaingroup_group_ref_)) 
     124      IF (PRESENT(domain_group_ref_)) THEN 
     125         CALL xios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 
    126126      END IF 
    127127      IF (PRESENT(ni_glo_))           THEN 
  • XMLIO_V2/dev/common/src/xmlio/fortran/ifield.f90

    r274 r275  
    2626   SUBROUTINE set_fieldgroup_attributes_id                                                 & 
    2727   (fieldgroup_id, name_, standard_name_, long_name_, unit_, operation_, freq_op_, level_, & 
    28     prec_, enabled_, domain_ref_, axis_ref_, grid_ref_, fieldgroup_ref_, default_value_) 
     28    prec_, enabled_, domain_ref_, axis_ref_, grid_ref_, field_ref_, default_value_) 
    2929     
    3030      IMPLICIT NONE 
     
    4343      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: axis_ref_ 
    4444      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: grid_ref_ 
    45       CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: fieldgroup_ref_ 
     45      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: field_ref_ 
    4646      REAL(kind=8)           , OPTIONAL, INTENT(IN) :: default_value_ 
    4747         
     
    4949      CALL set_fieldgroup_attributes_hdl                                                          & 
    5050         (fieldgroup_hdl, name_, standard_name_, long_name_, unit_, operation_, freq_op_, level_, & 
    51           prec_, enabled_, domain_ref_, axis_ref_, grid_ref_, fieldgroup_ref_, default_value_) 
     51          prec_, enabled_, domain_ref_, axis_ref_, grid_ref_, field_ref_, default_value_) 
    5252 
    5353   END SUBROUTINE set_fieldgroup_attributes_id 
     
    5555   SUBROUTINE set_fieldgroup_attributes_hdl                                                 & 
    5656   (fieldgroup_hdl, name_, standard_name_, long_name_, unit_, operation_, freq_op_, level_, & 
    57     prec_, enabled_, domain_ref_, axis_ref_, grid_ref_, fieldgroup_ref_, default_value_) 
     57    prec_, enabled_, domain_ref_, axis_ref_, grid_ref_, field_ref_, default_value_) 
    5858      IMPLICIT NONE 
    5959      TYPE(XFieldgroupHandle)          , INTENT(IN) :: fieldgroup_hdl 
     
    7171      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: axis_ref_ 
    7272      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: grid_ref_ 
    73       CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: fieldgroup_ref_ 
     73      CHARACTER(len = *)     , OPTIONAL, INTENT(IN) :: field_ref_ 
    7474      REAL(kind=8)           , OPTIONAL, INTENT(IN) :: default_value_ 
    7575       
     
    111111         CALL xios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_)) 
    112112      END IF 
    113       IF (PRESENT(fieldgroup_ref_))      THEN 
    114          CALL xios_set_fieldgroup_fieldgroup_ref(fieldgroup_hdl%daddr, fieldgroup_ref_, len(fieldgroup_ref_)) 
     113      IF (PRESENT(field_ref_))      THEN 
     114         CALL xios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_)) 
    115115      END IF 
    116116      IF (PRESENT(default_value_))  THEN 
  • XMLIO_V2/dev/common/src/xmlio/fortran/ifile.f90

    r274 r275  
    2424   CONTAINS ! Fonctions disponibles pour les utilisateurs. 
    2525    
    26    SUBROUTINE set_file_attributes_id(file_id, name_ , description_, output_freq_, output_level_, enabled_) 
     26   SUBROUTINE set_file_attributes_id(file_id, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    2727      IMPLICIT NONE 
    2828      TYPE(XFileHandle)                        :: file_hdl 
     
    3030      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_ 
    3131      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_ 
     32      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_ 
    3233      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_ 
    3334      INTEGER           , OPTIONAL, INTENT(IN) :: output_level_ 
     
    3536       
    3637      CALL file_handle_create(file_hdl, file_id) 
    37       CALL set_file_attributes_hdl(file_hdl, name_ , description_, output_freq_, output_level_, enabled_) 
     38      CALL set_file_attributes_hdl(file_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    3839       
    3940   END SUBROUTINE set_file_attributes_id 
    4041    
    41    SUBROUTINE set_file_attributes_hdl(file_hdl, name_ , description_, output_freq_, output_level_, enabled_) 
     42   SUBROUTINE set_file_attributes_hdl(file_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    4243      TYPE(XFileHandle)           , INTENT(IN) :: file_hdl 
    4344      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_ 
    4445      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_ 
     46      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_ 
    4547      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_ 
    4648      INTEGER           , OPTIONAL, INTENT(IN) :: output_level_ 
     
    5456      IF (PRESENT(description_))  THEN 
    5557         CALL xios_set_file_description(file_hdl%daddr, description_, len(description_)) 
     58      END IF 
     59      IF (PRESENT(name_suffix_))  THEN 
     60         CALL xios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_)) 
    5661      END IF 
    5762      IF (PRESENT(output_freq_))  THEN 
     
    6772   END SUBROUTINE set_file_attributes_hdl 
    6873    
    69    SUBROUTINE set_filegroup_attributes_id(filegroup_id, name_ , description_, output_freq_, output_level_, enabled_) 
     74   SUBROUTINE set_filegroup_attributes_id(filegroup_id, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    7075      IMPLICIT NONE 
    7176      TYPE(XFileGroupHandle)                   :: filegroup_hdl 
     
    7378      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_ 
    7479      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_ 
     80      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_ 
    7581      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_ 
    7682      INTEGER           , OPTIONAL, INTENT(IN) :: output_level_ 
     
    7884       
    7985      CALL filegroup_handle_create(filegroup_hdl, filegroup_id) 
    80       CALL set_filegroup_attributes_hdl(filegroup_hdl, name_ , description_, output_freq_, output_level_, enabled_) 
     86      CALL set_filegroup_attributes_hdl(filegroup_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    8187       
    8288   END SUBROUTINE set_filegroup_attributes_id 
    8389    
    84    SUBROUTINE set_filegroup_attributes_hdl(filegroup_hdl, name_ , description_, output_freq_, output_level_, enabled_) 
     90   SUBROUTINE set_filegroup_attributes_hdl(filegroup_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_) 
    8591      IMPLICIT NONE 
    8692      TYPE(XFileGroupHandle)      , INTENT(IN) :: filegroup_hdl 
    8793      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_ 
    8894      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_ 
     95      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_ 
    8996      CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_ 
    9097      INTEGER           , OPTIONAL, INTENT(IN) :: output_level_ 
     
    98105      IF (PRESENT(description_))  THEN 
    99106         CALL xios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_)) 
     107      END IF 
     108      IF (PRESENT(name_suffix_))  THEN 
     109         CALL xios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_)) 
    100110      END IF 
    101111      IF (PRESENT(output_freq_))  THEN 
Note: See TracChangeset for help on using the changeset viewer.