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/ifieldgroup_attr.F90

    r1492 r2338  
    1212 
    1313  SUBROUTINE xios(set_fieldgroup_attr)  & 
    14     ( fieldgroup_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, group_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 ) 
     14    ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     15    , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     16    , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     17    , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     18    , ts_enabled, ts_split_freq, 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 
    … …  
    6466      (fieldgroup_id,fieldgroup_hdl) 
    6567      CALL xios(set_fieldgroup_attr_hdl_)   & 
    66       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    67       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    68       , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    69       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    70       , unit, valid_max, valid_min ) 
     68      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     69      , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     70      , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     71      , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     72      , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    7173 
    7274  END SUBROUTINE xios(set_fieldgroup_attr) 
    7375 
    7476  SUBROUTINE xios(set_fieldgroup_attr_hdl)  & 
    75     ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    76     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    77     , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    78     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    79     , unit, valid_max, valid_min ) 
     77    ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     78    , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     79    , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     80    , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     81    , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    8082 
    8183    IMPLICIT NONE 
    … …  
    8385      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset 
    8486      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 
     87      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph 
     88      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 
    8589      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 
    8690      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 
    … …  
    122126 
    123127      CALL xios(set_fieldgroup_attr_hdl_)  & 
    124       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    125       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    126       , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    127       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    128       , unit, valid_max, valid_min ) 
     128      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     129      , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     130      , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     131      , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     132      , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    129133 
    130134  END SUBROUTINE xios(set_fieldgroup_attr_hdl) 
    131135 
    132136  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   & 
    133     ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_  & 
    134     , comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    135     , expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  & 
     137    ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
     138    , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     139    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  & 
    136140    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    137141    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
    … …  
    141145      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_ 
    142146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 
     147      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph_ 
     148      LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 
    143149      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 
    144150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ 
    … …  
    189195      ENDIF 
    190196 
     197      IF (PRESENT(build_workflow_graph_)) THEN 
     198        build_workflow_graph__tmp = build_workflow_graph_ 
     199        CALL cxios_set_fieldgroup_build_workflow_graph & 
     200      (fieldgroup_hdl%daddr, build_workflow_graph__tmp) 
     201      ENDIF 
     202 
    191203      IF (PRESENT(cell_methods_)) THEN 
    192204        CALL cxios_set_fieldgroup_cell_methods & 
    … …  
    353365 
    354366  SUBROUTINE xios(get_fieldgroup_attr)  & 
    355     ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    356     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    357     , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    358     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    359     , unit, valid_max, valid_min ) 
     367    ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     368    , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     369    , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     370    , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     371    , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    360372 
    361373    IMPLICIT NONE 
    … …  
    364376      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    365377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     378      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph 
     379      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 
    366380      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
    367381      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    … …  
    405419      (fieldgroup_id,fieldgroup_hdl) 
    406420      CALL xios(get_fieldgroup_attr_hdl_)   & 
    407       ( fieldgroup_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, group_ref, indexed_output, level, long_name, name  & 
    410       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    411       , unit, valid_max, valid_min ) 
     421      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     422      , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     423      , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     424      , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     425      , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    412426 
    413427  END SUBROUTINE xios(get_fieldgroup_attr) 
    414428 
    415429  SUBROUTINE xios(get_fieldgroup_attr_hdl)  & 
    416     ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    417     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    418     , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    419     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    420     , unit, valid_max, valid_min ) 
     430    ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     431    , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     432    , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     433    , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     434    , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    421435 
    422436    IMPLICIT NONE 
    … …  
    424438      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset 
    425439      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 
     440      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph 
     441      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp 
    426442      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 
    427443      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 
    … …  
    463479 
    464480      CALL xios(get_fieldgroup_attr_hdl_)  & 
    465       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    466       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    467       , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    468       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    469       , unit, valid_max, valid_min ) 
     481      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     482      , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     483      , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     484      , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     485      , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    470486 
    471487  END SUBROUTINE xios(get_fieldgroup_attr_hdl) 
    472488 
    473489  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   & 
    474     ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_  & 
    475     , comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    476     , expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  & 
     490    ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
     491    , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     492    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  & 
    477493    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    478494    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
    … …  
    482498      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_ 
    483499      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 
     500      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 
     501      LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp 
    484502      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 
    485503      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 
    … …  
    530548      ENDIF 
    531549 
     550      IF (PRESENT(build_workflow_graph_)) THEN 
     551        CALL cxios_get_fieldgroup_build_workflow_graph & 
     552      (fieldgroup_hdl%daddr, build_workflow_graph__tmp) 
     553        build_workflow_graph_ = build_workflow_graph__tmp 
     554      ENDIF 
     555 
    532556      IF (PRESENT(cell_methods_)) THEN 
    533557        CALL cxios_get_fieldgroup_cell_methods & 
    … …  
    694718 
    695719  SUBROUTINE xios(is_defined_fieldgroup_attr)  & 
    696     ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    697     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    698     , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    699     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    700     , unit, valid_max, valid_min ) 
     720    ( fieldgroup_id, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     721    , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     722    , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     723    , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     724    , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    701725 
    702726    IMPLICIT NONE 
    … …  
    707731      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    708732      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     733      LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 
     734      LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 
    709735      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
    710736      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
    … …  
    773799      (fieldgroup_id,fieldgroup_hdl) 
    774800      CALL xios(is_defined_fieldgroup_attr_hdl_)   & 
    775       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    776       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    777       , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    778       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    779       , unit, valid_max, valid_min ) 
     801      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     802      , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     803      , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     804      , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     805      , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    780806 
    781807  END SUBROUTINE xios(is_defined_fieldgroup_attr) 
    782808 
    783809  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  & 
    784     ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    785     , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    786     , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    787     , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    788     , unit, valid_max, valid_min ) 
     810    ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     811    , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     812    , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     813    , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     814    , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    789815 
    790816    IMPLICIT NONE 
    … …  
    794820      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 
    795821      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 
     822      LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph 
     823      LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp 
    796824      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods 
    797825      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp 
    … …  
    858886 
    859887      CALL xios(is_defined_fieldgroup_attr_hdl_)  & 
    860       ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  & 
    861       , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  & 
    862       , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  & 
    863       , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  & 
    864       , unit, valid_max, valid_min ) 
     888      ( fieldgroup_hdl, add_offset, axis_ref, build_workflow_graph, cell_methods, cell_methods_mode  & 
     889      , check_if_active, comment, compression_level, default_value, detect_missing_value, domain_ref  & 
     890      , enabled, expr, field_ref, freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output  & 
     891      , level, long_name, name, operation, prec, read_access, scalar_ref, scale_factor, standard_name  & 
     892      , ts_enabled, ts_split_freq, unit, valid_max, valid_min ) 
    865893 
    866894  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) 
    867895 
    868896  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   & 
    869     ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_  & 
    870     , comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_  & 
    871     , expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  & 
     897    ( fieldgroup_hdl, add_offset_, axis_ref_, build_workflow_graph_, cell_methods_, cell_methods_mode_  & 
     898    , check_if_active_, comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_  & 
     899    , enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  & 
    872900    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  & 
    873901    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ ) 
    … …  
    879907      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 
    880908      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 
     909      LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_ 
     910      LOGICAL(KIND=C_BOOL) :: build_workflow_graph__tmp 
    881911      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_ 
    882912      LOGICAL(KIND=C_BOOL) :: cell_methods__tmp 
    … …  
    954984      ENDIF 
    955985 
     986      IF (PRESENT(build_workflow_graph_)) THEN 
     987        build_workflow_graph__tmp = cxios_is_defined_fieldgroup_build_workflow_graph & 
     988      (fieldgroup_hdl%daddr) 
     989        build_workflow_graph_ = build_workflow_graph__tmp 
     990      ENDIF 
     991 
    956992      IF (PRESENT(cell_methods_)) THEN 
    957993        cell_methods__tmp = cxios_is_defined_fieldgroup_cell_methods & 
Note: See TracChangeset for help on using the changeset viewer.