Ignore:
Timestamp:
06/28/22 11:44:19 (2 years ago)
Author:
jderouillat
Message:

Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/ifield_attr.F90

    r1492 r2338  
    1212 
    1313  SUBROUTINE xios(set_field_attr)  & 
    14     ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    15     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    16     , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    17     , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    18     , valid_max, valid_min ) 
     14    ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     15    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     16    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     17    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     18    , unit, valid_max, valid_min ) 
    1919 
    2020    IMPLICIT NONE 
     
    2323      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    2424      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     25      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph 
     26      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 
    2527      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 
    2628      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 
     
    6365      (field_id,field_hdl) 
    6466      CALL xios(set_field_attr_hdl_)   & 
    65       ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    66       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    67       , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    68       , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    69       , valid_max, valid_min ) 
     67      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     68      , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     69      , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     70      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     71      , unit, valid_max, valid_min ) 
    7072 
    7173  END SUBROUTINE xios(set_field_attr) 
    7274 
    7375  SUBROUTINE xios(set_field_attr_hdl)  & 
    74     ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    75     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    76     , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    77     , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    78     , valid_max, valid_min ) 
     76    ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     77    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     78    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     79    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     80    , unit, valid_max, valid_min ) 
    7981 
    8082    IMPLICIT NONE 
     
    8284      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    8385      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     86      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph 
     87      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 
    8488      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 
    8589      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 
     
    120124 
    121125      CALL xios(set_field_attr_hdl_)  & 
    122       ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    123       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    124       , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    125       , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    126       , valid_max, valid_min ) 
     126      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     127      , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     128      , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     129      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     130      , unit, valid_max, valid_min ) 
    127131 
    128132  END SUBROUTINE xios(set_field_attr_hdl) 
    129133 
    130134  SUBROUTINE xios(set_field_attr_hdl_)   & 
    131     ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_  & 
    132     , compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_  & 
    133     , freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_  & 
    134     , operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  & 
    135     , unit_, valid_max_, valid_min_ ) 
     135    ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
     136    , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     137    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  & 
     138    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
     139    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
    136140 
    137141    IMPLICIT NONE 
     
    139143      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    140144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     145      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph_ 
     146      LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 
    141147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 
    142148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ 
     
    186192      ENDIF 
    187193 
     194      IF (PRESENT(build_workflow_graph_)) THEN 
     195        build_workflow_graph__tmp = build_workflow_graph_ 
     196        CALL cxios_set_field_build_workflow_graph & 
     197      (field_hdl%daddr, build_workflow_graph__tmp) 
     198      ENDIF 
     199 
    188200      IF (PRESENT(cell_methods_)) THEN 
    189201        CALL cxios_set_field_cell_methods & 
     
    345357 
    346358  SUBROUTINE xios(get_field_attr)  & 
    347     ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    348     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    349     , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    350     , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    351     , valid_max, valid_min ) 
     359    ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     360    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     361    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     362    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     363    , unit, valid_max, valid_min ) 
    352364 
    353365    IMPLICIT NONE 
     
    356368      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    357369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     370      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph 
     371      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 
    358372      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
    359373      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
     
    396410      (field_id,field_hdl) 
    397411      CALL xios(get_field_attr_hdl_)   & 
    398       ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    399       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    400       , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    401       , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    402       , valid_max, valid_min ) 
     412      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     413      , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     414      , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     415      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     416      , unit, valid_max, valid_min ) 
    403417 
    404418  END SUBROUTINE xios(get_field_attr) 
    405419 
    406420  SUBROUTINE xios(get_field_attr_hdl)  & 
    407     ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    408     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    409     , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    410     , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    411     , valid_max, valid_min ) 
     421    ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     422    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     423    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     424    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     425    , unit, valid_max, valid_min ) 
    412426 
    413427    IMPLICIT NONE 
     
    415429      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    416430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     431      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph 
     432      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 
    417433      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
    418434      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
     
    453469 
    454470      CALL xios(get_field_attr_hdl_)  & 
    455       ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    456       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    457       , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    458       , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    459       , valid_max, valid_min ) 
     471      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     472      , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     473      , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     474      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     475      , unit, valid_max, valid_min ) 
    460476 
    461477  END SUBROUTINE xios(get_field_attr_hdl) 
    462478 
    463479  SUBROUTINE xios(get_field_attr_hdl_)   & 
    464     ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_  & 
    465     , compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_  & 
    466     , freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_  & 
    467     , operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  & 
    468     , unit_, valid_max_, valid_min_ ) 
     480    ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
     481    , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     482    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  & 
     483    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
     484    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
    469485 
    470486    IMPLICIT NONE 
     
    472488      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    473489      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     490      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 
     491      LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 
    474492      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 
    475493      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 
     
    519537      ENDIF 
    520538 
     539      IF (PRESENT(build_workflow_graph_)) THEN 
     540        CALL cxios_get_field_build_workflow_graph & 
     541      (field_hdl%daddr, build_workflow_graph__tmp) 
     542        build_workflow_graph_ = build_workflow_graph__tmp 
     543      ENDIF 
     544 
    521545      IF (PRESENT(cell_methods_)) THEN 
    522546        CALL cxios_get_field_cell_methods & 
     
    678702 
    679703  SUBROUTINE xios(is_defined_field_attr)  & 
    680     ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    681     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    682     , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    683     , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    684     , valid_max, valid_min ) 
     704    ( field_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     705    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     706    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     707    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     708    , unit, valid_max, valid_min ) 
    685709 
    686710    IMPLICIT NONE 
     
    691715      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    692716      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     717      LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 
     718      LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 
    693719      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
    694720      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
     
    755781      (field_id,field_hdl) 
    756782      CALL xios(is_defined_field_attr_hdl_)   & 
    757       ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    758       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    759       , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    760       , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    761       , valid_max, valid_min ) 
     783      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     784      , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     785      , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     786      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     787      , unit, valid_max, valid_min ) 
    762788 
    763789  END SUBROUTINE xios(is_defined_field_attr) 
    764790 
    765791  SUBROUTINE xios(is_defined_field_attr_hdl)  & 
    766     ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    767     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    768     , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    769     , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    770     , valid_max, valid_min ) 
     792    ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     793    , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     794    , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     795    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     796    , unit, valid_max, valid_min ) 
    771797 
    772798    IMPLICIT NONE 
     
    776802      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    777803      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     804      LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 
     805      LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 
    778806      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
    779807      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
     
    838866 
    839867      CALL xios(is_defined_field_attr_hdl_)  & 
    840       ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    841       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    842       , freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name, operation  & 
    843       , prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit  & 
    844       , valid_max, valid_min ) 
     868      ( field_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode, check_if_active  & 
     869      , comment, compression_level, default_value, detect_missing_value, domain_ref, enabled, expr  & 
     870      , field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name, name  & 
     871      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
     872      , unit, valid_max, valid_min ) 
    845873 
    846874  END SUBROUTINE xios(is_defined_field_attr_hdl) 
    847875 
    848876  SUBROUTINE xios(is_defined_field_attr_hdl_)   & 
    849     ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, comment_  & 
    850     , compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_  & 
    851     , freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_  & 
    852     , operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  & 
    853     , unit_, valid_max_, valid_min_ ) 
     877    ( field_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
     878    , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     879    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  & 
     880    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
     881    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
    854882 
    855883    IMPLICIT NONE 
     
    859887      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    860888      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     889      LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 
     890      LOGICAL(KIND=C_BOOL) :: build_workflow_graph__tmp 
    861891      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_ 
    862892      LOGICAL(KIND=C_BOOL) :: cell_methods__tmp 
     
    932962      ENDIF 
    933963 
     964      IF (PRESENT(build_workflow_graph_)) THEN 
     965        build_workflow_graph__tmp = cxios_is_defined_field_build_workflow_graph & 
     966      (field_hdl%daddr) 
     967        build_workflow_graph_ = build_workflow_graph__tmp 
     968      ENDIF 
     969 
    934970      IF (PRESENT(cell_methods_)) THEN 
    935971        cell_methods__tmp = cxios_is_defined_field_cell_methods & 
Note: See TracChangeset for help on using the changeset viewer.