Ignore:
Timestamp:
02/21/12 15:34:27 (12 years ago)
Author:
ymipsl
Message:
  • Adding new file attribut : sync_freq : flush file for a given frequency
  • Now, when a file has a single domain, domain id is not anymore appended to the coordinate name.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/fortran_attr_interface/ifilegroup_attr.F90

    r314 r318  
    1313  SUBROUTINE xios(set_filegroup_attr)  & 
    1414    ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level  & 
    15     , type ) 
     15    , split_freq, sync_freq, type ) 
    1616     
    1717    IMPLICIT NONE 
     
    2626      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq 
    2727      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
     28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 
     29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 
    2830      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    2931       
     
    3133      CALL xios(set_filegroup_attr_hdl_)   & 
    3234      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  & 
    33       , type ) 
     35      , split_freq, sync_freq, type ) 
    3436     
    3537  END SUBROUTINE xios(set_filegroup_attr) 
     
    3739  SUBROUTINE xios(set_filegroup_attr_hdl)  & 
    3840    ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  & 
    39     , type ) 
     41    , split_freq, sync_freq, type ) 
    4042     
    4143    IMPLICIT NONE 
     
    4951      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq 
    5052      INTEGER  , OPTIONAL, INTENT(IN) :: output_level 
     53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 
     54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 
    5155      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    5256       
    5357      CALL xios(set_filegroup_attr_hdl_)  & 
    5458      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  & 
    55       , type ) 
     59      , split_freq, sync_freq, type ) 
    5660     
    5761  END SUBROUTINE xios(set_filegroup_attr_hdl) 
     
    5963  SUBROUTINE xios(set_filegroup_attr_hdl_)   & 
    6064    ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_  & 
    61     , type_ ) 
     65    , split_freq_, sync_freq_, type_ ) 
    6266     
    6367    IMPLICIT NONE 
     
    7175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq_ 
    7276      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_ 
     77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_ 
     78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_ 
    7379      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    7480       
     
    102108      ENDIF 
    103109       
     110      IF (PRESENT(split_freq_)) THEN 
     111        CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_)) 
     112      ENDIF 
     113       
     114      IF (PRESENT(sync_freq_)) THEN 
     115        CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_)) 
     116      ENDIF 
     117       
    104118      IF (PRESENT(type_)) THEN 
    105119        CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) 
     
    112126  SUBROUTINE xios(get_filegroup_attr)  & 
    113127    ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level  & 
    114     , type ) 
     128    , split_freq, sync_freq, type ) 
    115129     
    116130    IMPLICIT NONE 
     
    125139      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq 
    126140      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
     141      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 
     142      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 
    127143      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    128144       
     
    130146      CALL xios(get_filegroup_attr_hdl_)   & 
    131147      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  & 
    132       , type ) 
     148      , split_freq, sync_freq, type ) 
    133149     
    134150  END SUBROUTINE xios(get_filegroup_attr) 
     
    136152  SUBROUTINE xios(get_filegroup_attr_hdl)  & 
    137153    ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  & 
    138     , type ) 
     154    , split_freq, sync_freq, type ) 
    139155     
    140156    IMPLICIT NONE 
     
    148164      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq 
    149165      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level 
     166      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 
     167      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 
    150168      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    151169       
    152170      CALL xios(get_filegroup_attr_hdl_)  & 
    153171      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  & 
    154       , type ) 
     172      , split_freq, sync_freq, type ) 
    155173     
    156174  END SUBROUTINE xios(get_filegroup_attr_hdl) 
     
    158176  SUBROUTINE xios(get_filegroup_attr_hdl_)   & 
    159177    ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_  & 
    160     , type_ ) 
     178    , split_freq_, sync_freq_, type_ ) 
    161179     
    162180    IMPLICIT NONE 
     
    170188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq_ 
    171189      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_ 
     190      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_ 
     191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_ 
    172192      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    173193       
     
    201221      ENDIF 
    202222       
     223      IF (PRESENT(split_freq_)) THEN 
     224        CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_)) 
     225      ENDIF 
     226       
     227      IF (PRESENT(sync_freq_)) THEN 
     228        CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_)) 
     229      ENDIF 
     230       
    203231      IF (PRESENT(type_)) THEN 
    204232        CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) 
Note: See TracChangeset for help on using the changeset viewer.