Changeset 991 for XIOS/trunk/src


Ignore:
Timestamp:
11/16/16 14:53:27 (7 years ago)
Author:
mhnguyen
Message:

Update Fortran interfaces

Location:
XIOS/trunk/src/interface
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/c_attr/icfield_attr.cpp

    r891 r991  
    6767 
    6868 
     69  void cxios_set_field_cell_methods(field_Ptr field_hdl, const char * cell_methods, int cell_methods_size) 
     70  { 
     71    std::string cell_methods_str; 
     72    if (!cstr2string(cell_methods, cell_methods_size, cell_methods_str)) return; 
     73    CTimer::get("XIOS").resume(); 
     74    field_hdl->cell_methods.setValue(cell_methods_str); 
     75    CTimer::get("XIOS").suspend(); 
     76  } 
     77 
     78  void cxios_get_field_cell_methods(field_Ptr field_hdl, char * cell_methods, int cell_methods_size) 
     79  { 
     80    CTimer::get("XIOS").resume(); 
     81    if (!string_copy(field_hdl->cell_methods.getInheritedValue(), cell_methods, cell_methods_size)) 
     82      ERROR("void cxios_get_field_cell_methods(field_Ptr field_hdl, char * cell_methods, int cell_methods_size)", << "Input string is too short"); 
     83    CTimer::get("XIOS").suspend(); 
     84  } 
     85 
     86  bool cxios_is_defined_field_cell_methods(field_Ptr field_hdl) 
     87  { 
     88     CTimer::get("XIOS").resume(); 
     89     bool isDefined = field_hdl->cell_methods.hasInheritedValue(); 
     90     CTimer::get("XIOS").suspend(); 
     91     return isDefined; 
     92  } 
     93 
     94 
     95  void cxios_set_field_cell_methods_mode(field_Ptr field_hdl, const char * cell_methods_mode, int cell_methods_mode_size) 
     96  { 
     97    std::string cell_methods_mode_str; 
     98    if (!cstr2string(cell_methods_mode, cell_methods_mode_size, cell_methods_mode_str)) return; 
     99    CTimer::get("XIOS").resume(); 
     100    field_hdl->cell_methods_mode.fromString(cell_methods_mode_str); 
     101    CTimer::get("XIOS").suspend(); 
     102  } 
     103 
     104  void cxios_get_field_cell_methods_mode(field_Ptr field_hdl, char * cell_methods_mode, int cell_methods_mode_size) 
     105  { 
     106    CTimer::get("XIOS").resume(); 
     107    if (!string_copy(field_hdl->cell_methods_mode.getInheritedStringValue(), cell_methods_mode, cell_methods_mode_size)) 
     108      ERROR("void cxios_get_field_cell_methods_mode(field_Ptr field_hdl, char * cell_methods_mode, int cell_methods_mode_size)", << "Input string is too short"); 
     109    CTimer::get("XIOS").suspend(); 
     110  } 
     111 
     112  bool cxios_is_defined_field_cell_methods_mode(field_Ptr field_hdl) 
     113  { 
     114     CTimer::get("XIOS").resume(); 
     115     bool isDefined = field_hdl->cell_methods_mode.hasInheritedValue(); 
     116     CTimer::get("XIOS").suspend(); 
     117     return isDefined; 
     118  } 
     119 
     120 
    69121  void cxios_set_field_compression_level(field_Ptr field_hdl, int compression_level) 
    70122  { 

  • XIOS/trunk/src/interface/c_attr/icfieldgroup_attr.cpp

    r891 r991  
    6767 
    6868 
     69  void cxios_set_fieldgroup_cell_methods(fieldgroup_Ptr fieldgroup_hdl, const char * cell_methods, int cell_methods_size) 
     70  { 
     71    std::string cell_methods_str; 
     72    if (!cstr2string(cell_methods, cell_methods_size, cell_methods_str)) return; 
     73    CTimer::get("XIOS").resume(); 
     74    fieldgroup_hdl->cell_methods.setValue(cell_methods_str); 
     75    CTimer::get("XIOS").suspend(); 
     76  } 
     77 
     78  void cxios_get_fieldgroup_cell_methods(fieldgroup_Ptr fieldgroup_hdl, char * cell_methods, int cell_methods_size) 
     79  { 
     80    CTimer::get("XIOS").resume(); 
     81    if (!string_copy(fieldgroup_hdl->cell_methods.getInheritedValue(), cell_methods, cell_methods_size)) 
     82      ERROR("void cxios_get_fieldgroup_cell_methods(fieldgroup_Ptr fieldgroup_hdl, char * cell_methods, int cell_methods_size)", << "Input string is too short"); 
     83    CTimer::get("XIOS").suspend(); 
     84  } 
     85 
     86  bool cxios_is_defined_fieldgroup_cell_methods(fieldgroup_Ptr fieldgroup_hdl) 
     87  { 
     88     CTimer::get("XIOS").resume(); 
     89     bool isDefined = fieldgroup_hdl->cell_methods.hasInheritedValue(); 
     90     CTimer::get("XIOS").suspend(); 
     91     return isDefined; 
     92  } 
     93 
     94 
     95  void cxios_set_fieldgroup_cell_methods_mode(fieldgroup_Ptr fieldgroup_hdl, const char * cell_methods_mode, int cell_methods_mode_size) 
     96  { 
     97    std::string cell_methods_mode_str; 
     98    if (!cstr2string(cell_methods_mode, cell_methods_mode_size, cell_methods_mode_str)) return; 
     99    CTimer::get("XIOS").resume(); 
     100    fieldgroup_hdl->cell_methods_mode.fromString(cell_methods_mode_str); 
     101    CTimer::get("XIOS").suspend(); 
     102  } 
     103 
     104  void cxios_get_fieldgroup_cell_methods_mode(fieldgroup_Ptr fieldgroup_hdl, char * cell_methods_mode, int cell_methods_mode_size) 
     105  { 
     106    CTimer::get("XIOS").resume(); 
     107    if (!string_copy(fieldgroup_hdl->cell_methods_mode.getInheritedStringValue(), cell_methods_mode, cell_methods_mode_size)) 
     108      ERROR("void cxios_get_fieldgroup_cell_methods_mode(fieldgroup_Ptr fieldgroup_hdl, char * cell_methods_mode, int cell_methods_mode_size)", << "Input string is too short"); 
     109    CTimer::get("XIOS").suspend(); 
     110  } 
     111 
     112  bool cxios_is_defined_fieldgroup_cell_methods_mode(fieldgroup_Ptr fieldgroup_hdl) 
     113  { 
     114     CTimer::get("XIOS").resume(); 
     115     bool isDefined = fieldgroup_hdl->cell_methods_mode.hasInheritedValue(); 
     116     CTimer::get("XIOS").suspend(); 
     117     return isDefined; 
     118  } 
     119 
     120 
    69121  void cxios_set_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl, int compression_level) 
    70122  { 

  • XIOS/trunk/src/interface/c_attr/icinterpolate_domain_attr.cpp

    r891 r991  
    3939     CTimer::get("XIOS").resume(); 
    4040     bool isDefined = interpolate_domain_hdl->file.hasInheritedValue(); 
     41     CTimer::get("XIOS").suspend(); 
     42     return isDefined; 
     43  } 
     44 
     45 
     46  void cxios_set_interpolate_domain_mode(interpolate_domain_Ptr interpolate_domain_hdl, const char * mode, int mode_size) 
     47  { 
     48    std::string mode_str; 
     49    if (!cstr2string(mode, mode_size, mode_str)) return; 
     50    CTimer::get("XIOS").resume(); 
     51    interpolate_domain_hdl->mode.fromString(mode_str); 
     52    CTimer::get("XIOS").suspend(); 
     53  } 
     54 
     55  void cxios_get_interpolate_domain_mode(interpolate_domain_Ptr interpolate_domain_hdl, char * mode, int mode_size) 
     56  { 
     57    CTimer::get("XIOS").resume(); 
     58    if (!string_copy(interpolate_domain_hdl->mode.getInheritedStringValue(), mode, mode_size)) 
     59      ERROR("void cxios_get_interpolate_domain_mode(interpolate_domain_Ptr interpolate_domain_hdl, char * mode, int mode_size)", << "Input string is too short"); 
     60    CTimer::get("XIOS").suspend(); 
     61  } 
     62 
     63  bool cxios_is_defined_interpolate_domain_mode(interpolate_domain_Ptr interpolate_domain_hdl) 
     64  { 
     65     CTimer::get("XIOS").resume(); 
     66     bool isDefined = interpolate_domain_hdl->mode.hasInheritedValue(); 
    4167     CTimer::get("XIOS").suspend(); 
    4268     return isDefined; 

  • XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90

    r891 r991  
    5050 
    5151 
     52    SUBROUTINE cxios_set_field_cell_methods(field_hdl, cell_methods, cell_methods_size) BIND(C) 
     53      USE ISO_C_BINDING 
     54      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     55      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods 
     56      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size 
     57    END SUBROUTINE cxios_set_field_cell_methods 
     58 
     59    SUBROUTINE cxios_get_field_cell_methods(field_hdl, cell_methods, cell_methods_size) BIND(C) 
     60      USE ISO_C_BINDING 
     61      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     62      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods 
     63      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size 
     64    END SUBROUTINE cxios_get_field_cell_methods 
     65 
     66    FUNCTION cxios_is_defined_field_cell_methods(field_hdl) BIND(C) 
     67      USE ISO_C_BINDING 
     68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_cell_methods 
     69      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     70    END FUNCTION cxios_is_defined_field_cell_methods 
     71 
     72 
     73    SUBROUTINE cxios_set_field_cell_methods_mode(field_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C) 
     74      USE ISO_C_BINDING 
     75      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     76      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods_mode 
     77      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_mode_size 
     78    END SUBROUTINE cxios_set_field_cell_methods_mode 
     79 
     80    SUBROUTINE cxios_get_field_cell_methods_mode(field_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C) 
     81      USE ISO_C_BINDING 
     82      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     83      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods_mode 
     84      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_mode_size 
     85    END SUBROUTINE cxios_get_field_cell_methods_mode 
     86 
     87    FUNCTION cxios_is_defined_field_cell_methods_mode(field_hdl) BIND(C) 
     88      USE ISO_C_BINDING 
     89      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_cell_methods_mode 
     90      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     91    END FUNCTION cxios_is_defined_field_cell_methods_mode 
     92 
     93 
    5294    SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C) 
    5395      USE ISO_C_BINDING 

  • XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90

    r891 r991  
    5050 
    5151 
     52    SUBROUTINE cxios_set_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C) 
     53      USE ISO_C_BINDING 
     54      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     55      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods 
     56      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size 
     57    END SUBROUTINE cxios_set_fieldgroup_cell_methods 
     58 
     59    SUBROUTINE cxios_get_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C) 
     60      USE ISO_C_BINDING 
     61      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     62      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods 
     63      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size 
     64    END SUBROUTINE cxios_get_fieldgroup_cell_methods 
     65 
     66    FUNCTION cxios_is_defined_fieldgroup_cell_methods(fieldgroup_hdl) BIND(C) 
     67      USE ISO_C_BINDING 
     68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_cell_methods 
     69      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     70    END FUNCTION cxios_is_defined_fieldgroup_cell_methods 
     71 
     72 
     73    SUBROUTINE cxios_set_fieldgroup_cell_methods_mode(fieldgroup_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C) 
     74      USE ISO_C_BINDING 
     75      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     76      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods_mode 
     77      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_mode_size 
     78    END SUBROUTINE cxios_set_fieldgroup_cell_methods_mode 
     79 
     80    SUBROUTINE cxios_get_fieldgroup_cell_methods_mode(fieldgroup_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C) 
     81      USE ISO_C_BINDING 
     82      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     83      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods_mode 
     84      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_mode_size 
     85    END SUBROUTINE cxios_get_fieldgroup_cell_methods_mode 
     86 
     87    FUNCTION cxios_is_defined_fieldgroup_cell_methods_mode(fieldgroup_hdl) BIND(C) 
     88      USE ISO_C_BINDING 
     89      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_cell_methods_mode 
     90      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     91    END FUNCTION cxios_is_defined_fieldgroup_cell_methods_mode 
     92 
     93 
    5294    SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 
    5395      USE ISO_C_BINDING 

  • XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90

    r966 r991  
    1212 
    1313  SUBROUTINE xios(set_field_attr)  & 
    14     ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    15     , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    16     , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    17     , unit, valid_max, valid_min ) 
     14    ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     15    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     16    , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     17    , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    1818 
    1919    IMPLICIT NONE 
    … …  
    2222      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    2323      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 
     25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 
    2426      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2527      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    … …  
    5658      (field_id,field_hdl) 
    5759      CALL xios(set_field_attr_hdl_)   & 
    58       ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    59       , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    60       , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    61       , unit, valid_max, valid_min ) 
     60      ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     61      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     62      , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     63      , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    6264 
    6365  END SUBROUTINE xios(set_field_attr) 
    6466 
    6567  SUBROUTINE xios(set_field_attr_hdl)  & 
    66     ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    67     , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    68     , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    69     , unit, valid_max, valid_min ) 
     68    ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     69    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     70    , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     71    , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    7072 
    7173    IMPLICIT NONE 
    … …  
    7375      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    7476      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 
     78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 
    7579      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    7680      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    … …  
    105109 
    106110      CALL xios(set_field_attr_hdl_)  & 
    107       ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    108       , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    109       , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    110       , unit, valid_max, valid_min ) 
     111      ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     112      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     113      , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     114      , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    111115 
    112116  END SUBROUTINE xios(set_field_attr_hdl) 
    113117 
    114118  SUBROUTINE xios(set_field_attr_hdl_)   & 
    115     ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
    116     , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  & 
    117     , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    118     , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
     119    ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_, default_value_  & 
     120    , detect_missing_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_  & 
     121    , grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_  & 
     122    , scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_  & 
     123     ) 
    119124 
    120125    IMPLICIT NONE 
    … …  
    122127      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    123128      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 
     130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ 
    124131      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    125132      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    … …  
    163170      ENDIF 
    164171 
     172      IF (PRESENT(cell_methods_)) THEN 
     173        CALL cxios_set_field_cell_methods & 
     174      (field_hdl%daddr, cell_methods_, len(cell_methods_)) 
     175      ENDIF 
     176 
     177      IF (PRESENT(cell_methods_mode_)) THEN 
     178        CALL cxios_set_field_cell_methods_mode & 
     179      (field_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_)) 
     180      ENDIF 
     181 
    165182      IF (PRESENT(compression_level_)) THEN 
    166183        CALL cxios_set_field_compression_level & 
    … …  
    296313 
    297314  SUBROUTINE xios(get_field_attr)  & 
    298     ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    299     , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    300     , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    301     , unit, valid_max, valid_min ) 
     315    ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     316    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     317    , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     318    , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    302319 
    303320    IMPLICIT NONE 
    … …  
    306323      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    307324      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     325      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
     326      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    308327      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    309328      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    … …  
    340359      (field_id,field_hdl) 
    341360      CALL xios(get_field_attr_hdl_)   & 
    342       ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    343       , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    344       , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    345       , unit, valid_max, valid_min ) 
     361      ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     362      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     363      , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     364      , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    346365 
    347366  END SUBROUTINE xios(get_field_attr) 
    348367 
    349368  SUBROUTINE xios(get_field_attr_hdl)  & 
    350     ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    351     , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    352     , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    353     , unit, valid_max, valid_min ) 
     369    ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     370    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     371    , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     372    , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    354373 
    355374    IMPLICIT NONE 
    … …  
    357376      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    358377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     378      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
     379      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    359380      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    360381      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    … …  
    389410 
    390411      CALL xios(get_field_attr_hdl_)  & 
    391       ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    392       , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    393       , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    394       , unit, valid_max, valid_min ) 
     412      ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     413      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     414      , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     415      , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    395416 
    396417  END SUBROUTINE xios(get_field_attr_hdl) 
    397418 
    398419  SUBROUTINE xios(get_field_attr_hdl_)   & 
    399     ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
    400     , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  & 
    401     , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    402     , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
     420    ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_, default_value_  & 
     421    , detect_missing_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_  & 
     422    , grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_  & 
     423    , scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_  & 
     424     ) 
    403425 
    404426    IMPLICIT NONE 
    … …  
    406428      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    407429      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 
     431      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 
    408432      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    409433      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    … …  
    447471      ENDIF 
    448472 
     473      IF (PRESENT(cell_methods_)) THEN 
     474        CALL cxios_get_field_cell_methods & 
     475      (field_hdl%daddr, cell_methods_, len(cell_methods_)) 
     476      ENDIF 
     477 
     478      IF (PRESENT(cell_methods_mode_)) THEN 
     479        CALL cxios_get_field_cell_methods_mode & 
     480      (field_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_)) 
     481      ENDIF 
     482 
    449483      IF (PRESENT(compression_level_)) THEN 
    450484        CALL cxios_get_field_compression_level & 
    … …  
    580614 
    581615  SUBROUTINE xios(is_defined_field_attr)  & 
    582     ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    583     , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    584     , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    585     , unit, valid_max, valid_min ) 
     616    ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     617    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     618    , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     619    , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    586620 
    587621    IMPLICIT NONE 
    … …  
    592626      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    593627      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     628      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
     629      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
     630      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 
     631      LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 
    594632      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    595633      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    646684      (field_id,field_hdl) 
    647685      CALL xios(is_defined_field_attr_hdl_)   & 
    648       ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    649       , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    650       , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    651       , unit, valid_max, valid_min ) 
     686      ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     687      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     688      , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     689      , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    652690 
    653691  END SUBROUTINE xios(is_defined_field_attr) 
    654692 
    655693  SUBROUTINE xios(is_defined_field_attr_hdl)  & 
    656     ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    657     , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    658     , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    659     , unit, valid_max, valid_min ) 
     694    ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     695    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     696    , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     697    , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    660698 
    661699    IMPLICIT NONE 
    … …  
    665703      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    666704      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     705      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
     706      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
     707      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 
     708      LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 
    667709      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    668710      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    717759 
    718760      CALL xios(is_defined_field_attr_hdl_)  & 
    719       ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  & 
    720       , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  & 
    721       , name, operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    722       , unit, valid_max, valid_min ) 
     761      ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     762      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     763      , indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor  & 
     764      , standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    723765 
    724766  END SUBROUTINE xios(is_defined_field_attr_hdl) 
    725767 
    726768  SUBROUTINE xios(is_defined_field_attr_hdl_)   & 
    727     ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
    728     , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  & 
    729     , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    730     , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
     769    ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_, default_value_  & 
     770    , detect_missing_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_  & 
     771    , grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_  & 
     772    , scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_  & 
     773     ) 
    731774 
    732775    IMPLICIT NONE 
    … …  
    736779      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    737780      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     781      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_ 
     782      LOGICAL(KIND=C_BOOL) :: cell_methods__tmp 
     783      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 
     784      LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp 
    738785      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
    739786      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    … …  
    799846      ENDIF 
    800847 
     848      IF (PRESENT(cell_methods_)) THEN 
     849        cell_methods__tmp = cxios_is_defined_field_cell_methods & 
     850      (field_hdl%daddr) 
     851        cell_methods_ = cell_methods__tmp 
     852      ENDIF 
     853 
     854      IF (PRESENT(cell_methods_mode_)) THEN 
     855        cell_methods_mode__tmp = cxios_is_defined_field_cell_methods_mode & 
     856      (field_hdl%daddr) 
     857        cell_methods_mode_ = cell_methods_mode__tmp 
     858      ENDIF 
     859 
    801860      IF (PRESENT(compression_level_)) THEN 
    802861        compression_level__tmp = cxios_is_defined_field_compression_level & 

  • XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90

    r966 r991  
    1212 
    1313  SUBROUTINE xios(set_fieldgroup_attr)  & 
    14     ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    15     , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    16     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    17     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     14    ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     15    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     16    , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     17    , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    1818 
    1919    IMPLICIT NONE 
    … …  
    2222      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    2323      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 
     25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 
    2426      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2527      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    … …  
    5759      (fieldgroup_id,fieldgroup_hdl) 
    5860      CALL xios(set_fieldgroup_attr_hdl_)   & 
    59       ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    60       , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    61       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    62       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     61      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     62      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     63      , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     64      , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    6365 
    6466  END SUBROUTINE xios(set_fieldgroup_attr) 
    6567 
    6668  SUBROUTINE xios(set_fieldgroup_attr_hdl)  & 
    67     ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    68     , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    69     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    70     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     69    ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     70    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     71    , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     72    , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    7173 
    7274    IMPLICIT NONE 
    … …  
    7476      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    7577      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 
     79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 
    7680      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    7781      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
    … …  
    107111 
    108112      CALL xios(set_fieldgroup_attr_hdl_)  & 
    109       ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    110       , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    111       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    112       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     113      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     114      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     115      , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     116      , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    113117 
    114118  END SUBROUTINE xios(set_fieldgroup_attr_hdl) 
    115119 
    116120  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   & 
    117     ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
    118     , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_  & 
    119     , indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_  & 
    120     , standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
     121    ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_  & 
     122    , default_value_, detect_missing_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_  & 
     123    , grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_  & 
     124    , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  & 
     125    , unit_, valid_max_, valid_min_ ) 
    121126 
    122127    IMPLICIT NONE 
    … …  
    124129      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    125130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 
     132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ 
    126133      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    127134      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
    … …  
    166173      ENDIF 
    167174 
     175      IF (PRESENT(cell_methods_)) THEN 
     176        CALL cxios_set_fieldgroup_cell_methods & 
     177      (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_)) 
     178      ENDIF 
     179 
     180      IF (PRESENT(cell_methods_mode_)) THEN 
     181        CALL cxios_set_fieldgroup_cell_methods_mode & 
     182      (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_)) 
     183      ENDIF 
     184 
    168185      IF (PRESENT(compression_level_)) THEN 
    169186        CALL cxios_set_fieldgroup_compression_level & 
    … …  
    304321 
    305322  SUBROUTINE xios(get_fieldgroup_attr)  & 
    306     ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    307     , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    308     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    309     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     323    ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     324    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     325    , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     326    , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    310327 
    311328    IMPLICIT NONE 
    … …  
    314331      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    315332      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     333      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
     334      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    316335      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    317336      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    … …  
    349368      (fieldgroup_id,fieldgroup_hdl) 
    350369      CALL xios(get_fieldgroup_attr_hdl_)   & 
    351       ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    352       , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    353       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    354       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     370      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     371      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     372      , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     373      , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    355374 
    356375  END SUBROUTINE xios(get_fieldgroup_attr) 
    357376 
    358377  SUBROUTINE xios(get_fieldgroup_attr_hdl)  & 
    359     ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    360     , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    361     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    362     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     378    ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     379    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     380    , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     381    , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    363382 
    364383    IMPLICIT NONE 
    … …  
    366385      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    367386      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     387      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
     388      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    368389      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    369390      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
    … …  
    399420 
    400421      CALL xios(get_fieldgroup_attr_hdl_)  & 
    401       ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    402       , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    403       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    404       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     422      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     423      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     424      , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     425      , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    405426 
    406427  END SUBROUTINE xios(get_fieldgroup_attr_hdl) 
    407428 
    408429  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   & 
    409     ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
    410     , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_  & 
    411     , indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_  & 
    412     , standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
     430    ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_  & 
     431    , default_value_, detect_missing_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_  & 
     432    , grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_  & 
     433    , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  & 
     434    , unit_, valid_max_, valid_min_ ) 
    413435 
    414436    IMPLICIT NONE 
    … …  
    416438      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    417439      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     440      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 
     441      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 
    418442      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    419443      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
    … …  
    458482      ENDIF 
    459483 
     484      IF (PRESENT(cell_methods_)) THEN 
     485        CALL cxios_get_fieldgroup_cell_methods & 
     486      (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_)) 
     487      ENDIF 
     488 
     489      IF (PRESENT(cell_methods_mode_)) THEN 
     490        CALL cxios_get_fieldgroup_cell_methods_mode & 
     491      (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_)) 
     492      ENDIF 
     493 
    460494      IF (PRESENT(compression_level_)) THEN 
    461495        CALL cxios_get_fieldgroup_compression_level & 
    … …  
    596630 
    597631  SUBROUTINE xios(is_defined_fieldgroup_attr)  & 
    598     ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    599     , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    600     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    601     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     632    ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     633    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     634    , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     635    , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    602636 
    603637    IMPLICIT NONE 
    … …  
    608642      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    609643      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     644      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
     645      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
     646      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 
     647      LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 
    610648      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    611649      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    664702      (fieldgroup_id,fieldgroup_hdl) 
    665703      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    666       ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    667       , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    668       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    669       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     704      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     705      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     706      , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     707      , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    670708 
    671709  END SUBROUTINE xios(is_defined_fieldgroup_attr) 
    672710 
    673711  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  & 
    674     ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    675     , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    676     , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    677     , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     712    ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     713    , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     714    , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     715    , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    678716 
    679717    IMPLICIT NONE 
    … …  
    683721      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    684722      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     723      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
     724      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
     725      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 
     726      LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 
    685727      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    686728      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
    … …  
    737779 
    738780      CALL xios(is_defined_fieldgroup_attr_hdl_)  & 
    739       ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  & 
    740       , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
    741       , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
    742       , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
     781      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
     782      , detect_missing_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref  & 
     783      , group_ref, indexed_output, level, long_name, name, operation, prec, read_access, scalar_ref  & 
     784      , scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    743785 
    744786  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 
    745787 
    746788  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   & 
    747     ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  & 
    748     , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_  & 
    749     , indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_  & 
    750     , standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
     789    ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_  & 
     790    , default_value_, detect_missing_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_  & 
     791    , grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_  & 
     792    , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  & 
     793    , unit_, valid_max_, valid_min_ ) 
    751794 
    752795    IMPLICIT NONE 
    … …  
    756799      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    757800      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     801      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_ 
     802      LOGICAL(KIND=C_BOOL) :: cell_methods__tmp 
     803      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 
     804      LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp 
    758805      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
    759806      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
    … …  
    821868      ENDIF 
    822869 
     870      IF (PRESENT(cell_methods_)) THEN 
     871        cell_methods__tmp = cxios_is_defined_fieldgroup_cell_methods & 
     872      (fieldgroup_hdl%daddr) 
     873        cell_methods_ = cell_methods__tmp 
     874      ENDIF 
     875 
     876      IF (PRESENT(cell_methods_mode_)) THEN 
     877        cell_methods_mode__tmp = cxios_is_defined_fieldgroup_cell_methods_mode & 
     878      (fieldgroup_hdl%daddr) 
     879        cell_methods_mode_ = cell_methods_mode__tmp 
     880      ENDIF 
     881 
    823882      IF (PRESENT(compression_level_)) THEN 
    824883        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level & 

  • XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90

    r966 r991  
    1212 
    1313  SUBROUTINE xios(set_interpolate_domain_attr)  & 
    14     ( interpolate_domain_id, file, order, renormalize ) 
     14    ( interpolate_domain_id, file, mode, order, renormalize ) 
    1515 
    1616    IMPLICIT NONE 
    … …  
    1818      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id 
    1919      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file 
     20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 
    2021      INTEGER  , OPTIONAL, INTENT(IN) :: order 
    2122      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
    … …  
    2526      (interpolate_domain_id,interpolate_domain_hdl) 
    2627      CALL xios(set_interpolate_domain_attr_hdl_)   & 
    27       ( interpolate_domain_hdl, file, order, renormalize ) 
     28      ( interpolate_domain_hdl, file, mode, order, renormalize ) 
    2829 
    2930  END SUBROUTINE xios(set_interpolate_domain_attr) 
    3031 
    3132  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  & 
    32     ( interpolate_domain_hdl, file, order, renormalize ) 
     33    ( interpolate_domain_hdl, file, mode, order, renormalize ) 
    3334 
    3435    IMPLICIT NONE 
    3536      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 
    3637      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file 
     38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 
    3739      INTEGER  , OPTIONAL, INTENT(IN) :: order 
    3840      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
    … …  
    4042 
    4143      CALL xios(set_interpolate_domain_attr_hdl_)  & 
    42       ( interpolate_domain_hdl, file, order, renormalize ) 
     44      ( interpolate_domain_hdl, file, mode, order, renormalize ) 
    4345 
    4446  END SUBROUTINE xios(set_interpolate_domain_attr_hdl) 
    4547 
    4648  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   & 
    47     ( interpolate_domain_hdl, file_, order_, renormalize_ ) 
     49    ( interpolate_domain_hdl, file_, mode_, order_, renormalize_ ) 
    4850 
    4951    IMPLICIT NONE 
    5052      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 
    5153      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file_ 
     54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_ 
    5255      INTEGER  , OPTIONAL, INTENT(IN) :: order_ 
    5356      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_ 
    … …  
    5760        CALL cxios_set_interpolate_domain_file & 
    5861      (interpolate_domain_hdl%daddr, file_, len(file_)) 
     62      ENDIF 
     63 
     64      IF (PRESENT(mode_)) THEN 
     65        CALL cxios_set_interpolate_domain_mode & 
     66      (interpolate_domain_hdl%daddr, mode_, len(mode_)) 
    5967      ENDIF 
    6068 
    … …  
    7381 
    7482  SUBROUTINE xios(get_interpolate_domain_attr)  & 
    75     ( interpolate_domain_id, file, order, renormalize ) 
     83    ( interpolate_domain_id, file, mode, order, renormalize ) 
    7684 
    7785    IMPLICIT NONE 
    … …  
    7987      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id 
    8088      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file 
     89      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 
    8190      INTEGER  , OPTIONAL, INTENT(OUT) :: order 
    8291      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
    … …  
    8695      (interpolate_domain_id,interpolate_domain_hdl) 
    8796      CALL xios(get_interpolate_domain_attr_hdl_)   & 
    88       ( interpolate_domain_hdl, file, order, renormalize ) 
     97      ( interpolate_domain_hdl, file, mode, order, renormalize ) 
    8998 
    9099  END SUBROUTINE xios(get_interpolate_domain_attr) 
    91100 
    92101  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  & 
    93     ( interpolate_domain_hdl, file, order, renormalize ) 
     102    ( interpolate_domain_hdl, file, mode, order, renormalize ) 
    94103 
    95104    IMPLICIT NONE 
    96105      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 
    97106      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file 
     107      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 
    98108      INTEGER  , OPTIONAL, INTENT(OUT) :: order 
    99109      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
    … …  
    101111 
    102112      CALL xios(get_interpolate_domain_attr_hdl_)  & 
    103       ( interpolate_domain_hdl, file, order, renormalize ) 
     113      ( interpolate_domain_hdl, file, mode, order, renormalize ) 
    104114 
    105115  END SUBROUTINE xios(get_interpolate_domain_attr_hdl) 
    106116 
    107117  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   & 
    108     ( interpolate_domain_hdl, file_, order_, renormalize_ ) 
     118    ( interpolate_domain_hdl, file_, mode_, order_, renormalize_ ) 
    109119 
    110120    IMPLICIT NONE 
    111121      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 
    112122      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file_ 
     123      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_ 
    113124      INTEGER  , OPTIONAL, INTENT(OUT) :: order_ 
    114125      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_ 
    … …  
    118129        CALL cxios_get_interpolate_domain_file & 
    119130      (interpolate_domain_hdl%daddr, file_, len(file_)) 
     131      ENDIF 
     132 
     133      IF (PRESENT(mode_)) THEN 
     134        CALL cxios_get_interpolate_domain_mode & 
     135      (interpolate_domain_hdl%daddr, mode_, len(mode_)) 
    120136      ENDIF 
    121137 
    … …  
    134150 
    135151  SUBROUTINE xios(is_defined_interpolate_domain_attr)  & 
    136     ( interpolate_domain_id, file, order, renormalize ) 
     152    ( interpolate_domain_id, file, mode, order, renormalize ) 
    137153 
    138154    IMPLICIT NONE 
    … …  
    141157      LOGICAL, OPTIONAL, INTENT(OUT) :: file 
    142158      LOGICAL(KIND=C_BOOL) :: file_tmp 
     159      LOGICAL, OPTIONAL, INTENT(OUT) :: mode 
     160      LOGICAL(KIND=C_BOOL) :: mode_tmp 
    143161      LOGICAL, OPTIONAL, INTENT(OUT) :: order 
    144162      LOGICAL(KIND=C_BOOL) :: order_tmp 
    … …  
    149167      (interpolate_domain_id,interpolate_domain_hdl) 
    150168      CALL xios(is_defined_interpolate_domain_attr_hdl_)   & 
    151       ( interpolate_domain_hdl, file, order, renormalize ) 
     169      ( interpolate_domain_hdl, file, mode, order, renormalize ) 
    152170 
    153171  END SUBROUTINE xios(is_defined_interpolate_domain_attr) 
    154172 
    155173  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  & 
    156     ( interpolate_domain_hdl, file, order, renormalize ) 
     174    ( interpolate_domain_hdl, file, mode, order, renormalize ) 
    157175 
    158176    IMPLICIT NONE 
    … …  
    160178      LOGICAL, OPTIONAL, INTENT(OUT) :: file 
    161179      LOGICAL(KIND=C_BOOL) :: file_tmp 
     180      LOGICAL, OPTIONAL, INTENT(OUT) :: mode 
     181      LOGICAL(KIND=C_BOOL) :: mode_tmp 
    162182      LOGICAL, OPTIONAL, INTENT(OUT) :: order 
    163183      LOGICAL(KIND=C_BOOL) :: order_tmp 
    … …  
    166186 
    167187      CALL xios(is_defined_interpolate_domain_attr_hdl_)  & 
    168       ( interpolate_domain_hdl, file, order, renormalize ) 
     188      ( interpolate_domain_hdl, file, mode, order, renormalize ) 
    169189 
    170190  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) 
    171191 
    172192  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   & 
    173     ( interpolate_domain_hdl, file_, order_, renormalize_ ) 
     193    ( interpolate_domain_hdl, file_, mode_, order_, renormalize_ ) 
    174194 
    175195    IMPLICIT NONE 
    … …  
    177197      LOGICAL, OPTIONAL, INTENT(OUT) :: file_ 
    178198      LOGICAL(KIND=C_BOOL) :: file__tmp 
     199      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_ 
     200      LOGICAL(KIND=C_BOOL) :: mode__tmp 
    179201      LOGICAL, OPTIONAL, INTENT(OUT) :: order_ 
    180202      LOGICAL(KIND=C_BOOL) :: order__tmp 
    … …  
    188210      ENDIF 
    189211 
     212      IF (PRESENT(mode_)) THEN 
     213        mode__tmp = cxios_is_defined_interpolate_domain_mode & 
     214      (interpolate_domain_hdl%daddr) 
     215        mode_ = mode__tmp 
     216      ENDIF 
     217 
    190218      IF (PRESENT(order_)) THEN 
    191219        order__tmp = cxios_is_defined_interpolate_domain_order & 

  • XIOS/trunk/src/interface/fortran_attr/interpolate_domain_interface_attr.F90

    r891 r991  
    2929      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
    3030    END FUNCTION cxios_is_defined_interpolate_domain_file 
     31 
     32 
     33    SUBROUTINE cxios_set_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C) 
     34      USE ISO_C_BINDING 
     35      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
     36      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode 
     37      INTEGER  (kind = C_INT)     , VALUE        :: mode_size 
     38    END SUBROUTINE cxios_set_interpolate_domain_mode 
     39 
     40    SUBROUTINE cxios_get_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C) 
     41      USE ISO_C_BINDING 
     42      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
     43      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode 
     44      INTEGER  (kind = C_INT)     , VALUE        :: mode_size 
     45    END SUBROUTINE cxios_get_interpolate_domain_mode 
     46 
     47    FUNCTION cxios_is_defined_interpolate_domain_mode(interpolate_domain_hdl) BIND(C) 
     48      USE ISO_C_BINDING 
     49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_mode 
     50      INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 
     51    END FUNCTION cxios_is_defined_interpolate_domain_mode 
    3152 
    3253 
Note: See TracChangeset for help on using the changeset viewer.