Ignore:
Timestamp:
01/25/17 16:25:17 (7 years ago)
Author:
yushan
Message:

initialize the branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/branch_yushan/src/interface/fortran_attr/ifieldgroup_attr.F90

    r1005 r1037  
    1212 
    1313  SUBROUTINE xios(set_fieldgroup_attr)  & 
    14     ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    15     , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    16     , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    17     , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    18      ) 
     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 ) 
    1918 
    2019    IMPLICIT NONE 
     
    2322      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    2423      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
    25       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 
    26       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 
    2724      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    2825      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
     
    3229      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    3330      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    34       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr 
    3531      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref 
    3632      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset 
     
    6157      (fieldgroup_id,fieldgroup_hdl) 
    6258      CALL xios(set_fieldgroup_attr_hdl_)   & 
    63       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    64       , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    65       , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    66       , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    67        ) 
     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 ) 
    6863 
    6964  END SUBROUTINE xios(set_fieldgroup_attr) 
    7065 
    7166  SUBROUTINE xios(set_fieldgroup_attr_hdl)  & 
    72     ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    73     , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    74     , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    75     , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    76      ) 
     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 ) 
    7771 
    7872    IMPLICIT NONE 
     
    8074      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    8175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
    82       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 
    83       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 
    8476      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level 
    8577      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value 
     
    8981      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    9082      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    91       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr 
    9283      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref 
    9384      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset 
     
    116107 
    117108      CALL xios(set_fieldgroup_attr_hdl_)  & 
    118       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    119       , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    120       , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    121       , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    122        ) 
     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 ) 
    123113 
    124114  END SUBROUTINE xios(set_fieldgroup_attr_hdl) 
    125115 
    126116  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   & 
    127     ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_  & 
    128     , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_  & 
    129     , freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_  & 
    130     , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  & 
    131     , unit_, valid_max_, valid_min_ ) 
     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_ ) 
    132121 
    133122    IMPLICIT NONE 
     
    135124      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    136125      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
    137       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 
    138       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ 
    139126      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_ 
    140127      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ 
     
    144131      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_ 
    145132      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
    146       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr_ 
    147133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_ 
    148134      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_ 
     
    180166      ENDIF 
    181167 
    182       IF (PRESENT(cell_methods_)) THEN 
    183         CALL cxios_set_fieldgroup_cell_methods & 
    184       (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_)) 
    185       ENDIF 
    186  
    187       IF (PRESENT(cell_methods_mode_)) THEN 
    188         CALL cxios_set_fieldgroup_cell_methods_mode & 
    189       (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_)) 
    190       ENDIF 
    191  
    192168      IF (PRESENT(compression_level_)) THEN 
    193169        CALL cxios_set_fieldgroup_compression_level & 
     
    217193      ENDIF 
    218194 
    219       IF (PRESENT(expr_)) THEN 
    220         CALL cxios_set_fieldgroup_expr & 
    221       (fieldgroup_hdl%daddr, expr_, len(expr_)) 
    222       ENDIF 
    223  
    224195      IF (PRESENT(field_ref_)) THEN 
    225196        CALL cxios_set_fieldgroup_field_ref & 
     
    333304 
    334305  SUBROUTINE xios(get_fieldgroup_attr)  & 
    335     ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    336     , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    337     , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    338     , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    339      ) 
     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 ) 
    340310 
    341311    IMPLICIT NONE 
     
    344314      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    345315      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
    346       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
    347       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    348316      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    349317      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
     
    353321      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    354322      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    355       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr 
    356323      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref 
    357324      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset 
     
    382349      (fieldgroup_id,fieldgroup_hdl) 
    383350      CALL xios(get_fieldgroup_attr_hdl_)   & 
    384       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    385       , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    386       , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    387       , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    388        ) 
     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 ) 
    389355 
    390356  END SUBROUTINE xios(get_fieldgroup_attr) 
    391357 
    392358  SUBROUTINE xios(get_fieldgroup_attr_hdl)  & 
    393     ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    394     , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    395     , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    396     , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    397      ) 
     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 ) 
    398363 
    399364    IMPLICIT NONE 
     
    401366      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    402367      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
    403       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
    404       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    405368      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level 
    406369      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value 
     
    410373      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    411374      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
    412       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr 
    413375      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref 
    414376      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset 
     
    437399 
    438400      CALL xios(get_fieldgroup_attr_hdl_)  & 
    439       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    440       , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    441       , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    442       , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    443        ) 
     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 ) 
    444405 
    445406  END SUBROUTINE xios(get_fieldgroup_attr_hdl) 
    446407 
    447408  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   & 
    448     ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_  & 
    449     , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_  & 
    450     , freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_  & 
    451     , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  & 
    452     , unit_, valid_max_, valid_min_ ) 
     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_ ) 
    453413 
    454414    IMPLICIT NONE 
     
    456416      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    457417      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
    458       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 
    459       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 
    460418      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_ 
    461419      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ 
     
    465423      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_ 
    466424      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
    467       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr_ 
    468425      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_ 
    469426      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_ 
     
    501458      ENDIF 
    502459 
    503       IF (PRESENT(cell_methods_)) THEN 
    504         CALL cxios_get_fieldgroup_cell_methods & 
    505       (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_)) 
    506       ENDIF 
    507  
    508       IF (PRESENT(cell_methods_mode_)) THEN 
    509         CALL cxios_get_fieldgroup_cell_methods_mode & 
    510       (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_)) 
    511       ENDIF 
    512  
    513460      IF (PRESENT(compression_level_)) THEN 
    514461        CALL cxios_get_fieldgroup_compression_level & 
     
    538485      ENDIF 
    539486 
    540       IF (PRESENT(expr_)) THEN 
    541         CALL cxios_get_fieldgroup_expr & 
    542       (fieldgroup_hdl%daddr, expr_, len(expr_)) 
    543       ENDIF 
    544  
    545487      IF (PRESENT(field_ref_)) THEN 
    546488        CALL cxios_get_fieldgroup_field_ref & 
     
    654596 
    655597  SUBROUTINE xios(is_defined_fieldgroup_attr)  & 
    656     ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    657     , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    658     , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    659     , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    660      ) 
     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 ) 
    661602 
    662603    IMPLICIT NONE 
     
    667608      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    668609      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
    669       LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
    670       LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
    671       LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    672       LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 
    673610      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    674611      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
     
    681618      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 
    682619      LOGICAL(KIND=C_BOOL) :: enabled_tmp 
    683       LOGICAL, OPTIONAL, INTENT(OUT) :: expr 
    684       LOGICAL(KIND=C_BOOL) :: expr_tmp 
    685620      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 
    686621      LOGICAL(KIND=C_BOOL) :: field_ref_tmp 
     
    729664      (fieldgroup_id,fieldgroup_hdl) 
    730665      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    731       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    732       , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    733       , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    734       , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    735        ) 
     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 ) 
    736670 
    737671  END SUBROUTINE xios(is_defined_fieldgroup_attr) 
    738672 
    739673  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  & 
    740     ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    741     , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    742     , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    743     , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    744      ) 
     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 ) 
    745678 
    746679    IMPLICIT NONE 
     
    750683      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    751684      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
    752       LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
    753       LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
    754       LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    755       LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 
    756685      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 
    757686      LOGICAL(KIND=C_BOOL) :: compression_level_tmp 
     
    764693      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled 
    765694      LOGICAL(KIND=C_BOOL) :: enabled_tmp 
    766       LOGICAL, OPTIONAL, INTENT(OUT) :: expr 
    767       LOGICAL(KIND=C_BOOL) :: expr_tmp 
    768695      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref 
    769696      LOGICAL(KIND=C_BOOL) :: field_ref_tmp 
     
    810737 
    811738      CALL xios(is_defined_fieldgroup_attr_hdl_)  & 
    812       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  & 
    813       , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  & 
    814       , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  & 
    815       , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  & 
    816        ) 
     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 ) 
    817743 
    818744  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 
    819745 
    820746  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   & 
    821     ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_  & 
    822     , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_  & 
    823     , freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_  & 
    824     , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  & 
    825     , unit_, valid_max_, valid_min_ ) 
     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_ ) 
    826751 
    827752    IMPLICIT NONE 
     
    831756      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    832757      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
    833       LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_ 
    834       LOGICAL(KIND=C_BOOL) :: cell_methods__tmp 
    835       LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 
    836       LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp 
    837758      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 
    838759      LOGICAL(KIND=C_BOOL) :: compression_level__tmp 
     
    845766      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_ 
    846767      LOGICAL(KIND=C_BOOL) :: enabled__tmp 
    847       LOGICAL, OPTIONAL, INTENT(OUT) :: expr_ 
    848       LOGICAL(KIND=C_BOOL) :: expr__tmp 
    849768      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_ 
    850769      LOGICAL(KIND=C_BOOL) :: field_ref__tmp 
     
    902821      ENDIF 
    903822 
    904       IF (PRESENT(cell_methods_)) THEN 
    905         cell_methods__tmp = cxios_is_defined_fieldgroup_cell_methods & 
    906       (fieldgroup_hdl%daddr) 
    907         cell_methods_ = cell_methods__tmp 
    908       ENDIF 
    909  
    910       IF (PRESENT(cell_methods_mode_)) THEN 
    911         cell_methods_mode__tmp = cxios_is_defined_fieldgroup_cell_methods_mode & 
    912       (fieldgroup_hdl%daddr) 
    913         cell_methods_mode_ = cell_methods_mode__tmp 
    914       ENDIF 
    915  
    916823      IF (PRESENT(compression_level_)) THEN 
    917824        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level & 
     
    944851      ENDIF 
    945852 
    946       IF (PRESENT(expr_)) THEN 
    947         expr__tmp = cxios_is_defined_fieldgroup_expr & 
    948       (fieldgroup_hdl%daddr) 
    949         expr_ = expr__tmp 
    950       ENDIF 
    951  
    952853      IF (PRESENT(field_ref_)) THEN 
    953854        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref & 
Note: See TracChangeset for help on using the changeset viewer.