- Timestamp:
- 06/23/17 15:01:41 (7 years ago)
- Location:
- XIOS/trunk/src
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/config/field_attribute.conf
r998 r1181 16 16 DECLARE_ATTRIBUTE(bool, read_access) 17 17 DECLARE_ATTRIBUTE(bool, indexed_output) 18 DECLARE_ATTRIBUTE(bool, check_if_active) 18 19 19 20 DECLARE_ATTRIBUTE(StdString, domain_ref) -
XIOS/trunk/src/interface/c_attr/icfield_attr.cpp
r1005 r1181 119 119 120 120 121 void cxios_set_field_check_if_active(field_Ptr field_hdl, bool check_if_active) 122 { 123 CTimer::get("XIOS").resume(); 124 field_hdl->check_if_active.setValue(check_if_active); 125 CTimer::get("XIOS").suspend(); 126 } 127 128 void cxios_get_field_check_if_active(field_Ptr field_hdl, bool* check_if_active) 129 { 130 CTimer::get("XIOS").resume(); 131 *check_if_active = field_hdl->check_if_active.getInheritedValue(); 132 CTimer::get("XIOS").suspend(); 133 } 134 135 bool cxios_is_defined_field_check_if_active(field_Ptr field_hdl) 136 { 137 CTimer::get("XIOS").resume(); 138 bool isDefined = field_hdl->check_if_active.hasInheritedValue(); 139 CTimer::get("XIOS").suspend(); 140 return isDefined; 141 } 142 143 121 144 void cxios_set_field_compression_level(field_Ptr field_hdl, int compression_level) 122 145 { -
XIOS/trunk/src/interface/c_attr/icfieldgroup_attr.cpp
r1005 r1181 119 119 120 120 121 void cxios_set_fieldgroup_check_if_active(fieldgroup_Ptr fieldgroup_hdl, bool check_if_active) 122 { 123 CTimer::get("XIOS").resume(); 124 fieldgroup_hdl->check_if_active.setValue(check_if_active); 125 CTimer::get("XIOS").suspend(); 126 } 127 128 void cxios_get_fieldgroup_check_if_active(fieldgroup_Ptr fieldgroup_hdl, bool* check_if_active) 129 { 130 CTimer::get("XIOS").resume(); 131 *check_if_active = fieldgroup_hdl->check_if_active.getInheritedValue(); 132 CTimer::get("XIOS").suspend(); 133 } 134 135 bool cxios_is_defined_fieldgroup_check_if_active(fieldgroup_Ptr fieldgroup_hdl) 136 { 137 CTimer::get("XIOS").resume(); 138 bool isDefined = fieldgroup_hdl->check_if_active.hasInheritedValue(); 139 CTimer::get("XIOS").suspend(); 140 return isDefined; 141 } 142 143 121 144 void cxios_set_fieldgroup_compression_level(fieldgroup_Ptr fieldgroup_hdl, int compression_level) 122 145 { -
XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90
r1005 r1181 92 92 93 93 94 SUBROUTINE cxios_set_field_check_if_active(field_hdl, check_if_active) BIND(C) 95 USE ISO_C_BINDING 96 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 97 LOGICAL (KIND=C_BOOL) , VALUE :: check_if_active 98 END SUBROUTINE cxios_set_field_check_if_active 99 100 SUBROUTINE cxios_get_field_check_if_active(field_hdl, check_if_active) BIND(C) 101 USE ISO_C_BINDING 102 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 103 LOGICAL (KIND=C_BOOL) :: check_if_active 104 END SUBROUTINE cxios_get_field_check_if_active 105 106 FUNCTION cxios_is_defined_field_check_if_active(field_hdl) BIND(C) 107 USE ISO_C_BINDING 108 LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_check_if_active 109 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 110 END FUNCTION cxios_is_defined_field_check_if_active 111 112 94 113 SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C) 95 114 USE ISO_C_BINDING -
XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90
r1005 r1181 92 92 93 93 94 SUBROUTINE cxios_set_fieldgroup_check_if_active(fieldgroup_hdl, check_if_active) BIND(C) 95 USE ISO_C_BINDING 96 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 97 LOGICAL (KIND=C_BOOL) , VALUE :: check_if_active 98 END SUBROUTINE cxios_set_fieldgroup_check_if_active 99 100 SUBROUTINE cxios_get_fieldgroup_check_if_active(fieldgroup_hdl, check_if_active) BIND(C) 101 USE ISO_C_BINDING 102 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 103 LOGICAL (KIND=C_BOOL) :: check_if_active 104 END SUBROUTINE cxios_get_fieldgroup_check_if_active 105 106 FUNCTION cxios_is_defined_fieldgroup_check_if_active(fieldgroup_hdl) BIND(C) 107 USE ISO_C_BINDING 108 LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_check_if_active 109 INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 110 END FUNCTION cxios_is_defined_fieldgroup_check_if_active 111 112 94 113 SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C) 95 114 USE ISO_C_BINDING -
XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90
r1005 r1181 12 12 13 13 SUBROUTINE xios(set_field_attr) & 14 ( field_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, 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 ) 14 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 15 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 16 , grid_path, grid_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 ) 18 19 19 20 IMPLICIT NONE … … 24 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 25 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 27 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 28 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 26 29 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 27 30 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 59 62 (field_id,field_hdl) 60 63 CALL xios(set_field_attr_hdl_) & 61 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 62 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 63 , grid_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 ) 64 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 65 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 66 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 67 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 68 ) 65 69 66 70 END SUBROUTINE xios(set_field_attr) 67 71 68 72 SUBROUTINE xios(set_field_attr_hdl) & 69 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 70 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 71 , grid_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 ) 73 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 74 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 75 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 76 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 77 ) 73 78 74 79 IMPLICIT NONE … … 78 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 79 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 85 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 86 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 80 87 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 81 88 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 111 118 112 119 CALL xios(set_field_attr_hdl_) & 113 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 114 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 115 , grid_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 ) 120 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 121 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 122 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 123 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 124 ) 117 125 118 126 END SUBROUTINE xios(set_field_attr_hdl) 119 127 120 128 SUBROUTINE xios(set_field_attr_hdl_) & 121 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, c ompression_level_, default_value_ &122 , de tect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_ &123 , grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_ &124 , scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ &125 )129 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, compression_level_ & 130 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & 131 , freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ & 132 , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ & 133 , valid_max_, valid_min_ ) 126 134 127 135 IMPLICIT NONE … … 131 139 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 132 140 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ 141 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active_ 142 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 133 143 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 134 144 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ … … 183 193 ENDIF 184 194 195 IF (PRESENT(check_if_active_)) THEN 196 check_if_active__tmp = check_if_active_ 197 CALL cxios_set_field_check_if_active & 198 (field_hdl%daddr, check_if_active__tmp) 199 ENDIF 200 185 201 IF (PRESENT(compression_level_)) THEN 186 202 CALL cxios_set_field_compression_level & … … 321 337 322 338 SUBROUTINE xios(get_field_attr) & 323 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 324 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 325 , grid_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 ) 339 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 340 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 341 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 342 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 343 ) 327 344 328 345 IMPLICIT NONE … … 333 350 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 334 351 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 352 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 353 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 335 354 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 336 355 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 368 387 (field_id,field_hdl) 369 388 CALL xios(get_field_attr_hdl_) & 370 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 371 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 372 , grid_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 ) 389 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 390 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 391 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 392 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 393 ) 374 394 375 395 END SUBROUTINE xios(get_field_attr) 376 396 377 397 SUBROUTINE xios(get_field_attr_hdl) & 378 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 379 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 380 , grid_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 ) 398 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 399 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 400 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 401 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 402 ) 382 403 383 404 IMPLICIT NONE … … 387 408 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 388 409 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 410 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 411 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 389 412 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 390 413 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 420 443 421 444 CALL xios(get_field_attr_hdl_) & 422 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 423 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 424 , grid_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 ) 445 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 446 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 447 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 448 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 449 ) 426 450 427 451 END SUBROUTINE xios(get_field_attr_hdl) 428 452 429 453 SUBROUTINE xios(get_field_attr_hdl_) & 430 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, c ompression_level_, default_value_ &431 , de tect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_ &432 , grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_ &433 , scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ &434 )454 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, compression_level_ & 455 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & 456 , freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ & 457 , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ & 458 , valid_max_, valid_min_ ) 435 459 436 460 IMPLICIT NONE … … 440 464 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 441 465 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 466 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active_ 467 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 442 468 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 443 469 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ … … 492 518 ENDIF 493 519 520 IF (PRESENT(check_if_active_)) THEN 521 CALL cxios_get_field_check_if_active & 522 (field_hdl%daddr, check_if_active__tmp) 523 check_if_active_ = check_if_active__tmp 524 ENDIF 525 494 526 IF (PRESENT(compression_level_)) THEN 495 527 CALL cxios_get_field_compression_level & … … 630 662 631 663 SUBROUTINE xios(is_defined_field_attr) & 632 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 633 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 634 , grid_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 ) 664 ( field_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 665 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 666 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 667 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 668 ) 636 669 637 670 IMPLICIT NONE … … 646 679 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 647 680 LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 681 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 682 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 648 683 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 649 684 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 702 737 (field_id,field_hdl) 703 738 CALL xios(is_defined_field_attr_hdl_) & 704 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 705 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 706 , grid_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 ) 739 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 740 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 741 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 742 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 743 ) 708 744 709 745 END SUBROUTINE xios(is_defined_field_attr) 710 746 711 747 SUBROUTINE xios(is_defined_field_attr_hdl) & 712 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 713 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 714 , grid_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 ) 748 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 749 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 750 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 751 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 752 ) 716 753 717 754 IMPLICIT NONE … … 725 762 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 726 763 LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 764 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 765 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 727 766 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 728 767 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 779 818 780 819 CALL xios(is_defined_field_attr_hdl_) & 781 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value & 782 , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path & 783 , grid_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 ) 820 ( field_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 821 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 822 , grid_path, grid_ref, indexed_output, level, long_name, name, operation, prec, read_access & 823 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 824 ) 785 825 786 826 END SUBROUTINE xios(is_defined_field_attr_hdl) 787 827 788 828 SUBROUTINE xios(is_defined_field_attr_hdl_) & 789 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, c ompression_level_, default_value_ &790 , de tect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_, freq_op_, grid_path_ &791 , grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_ &792 , scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ &793 )829 ( field_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_, compression_level_ & 830 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ & 831 , freq_op_, grid_path_, grid_ref_, indexed_output_, level_, long_name_, name_, operation_, prec_ & 832 , read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_, unit_ & 833 , valid_max_, valid_min_ ) 794 834 795 835 IMPLICIT NONE … … 803 843 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 804 844 LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp 845 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_ 846 LOGICAL(KIND=C_BOOL) :: check_if_active__tmp 805 847 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 806 848 LOGICAL(KIND=C_BOOL) :: compression_level__tmp … … 880 922 ENDIF 881 923 924 IF (PRESENT(check_if_active_)) THEN 925 check_if_active__tmp = cxios_is_defined_field_check_if_active & 926 (field_hdl%daddr) 927 check_if_active_ = check_if_active__tmp 928 ENDIF 929 882 930 IF (PRESENT(compression_level_)) THEN 883 931 compression_level__tmp = cxios_is_defined_field_compression_level & -
XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90
r1005 r1181 12 12 13 13 SUBROUTINE xios(set_fieldgroup_attr) & 14 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&15 , de tect_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 &14 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 15 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 16 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 17 17 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 18 18 ) … … 25 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 26 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 27 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 28 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 27 29 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 28 30 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 61 63 (fieldgroup_id,fieldgroup_hdl) 62 64 CALL xios(set_fieldgroup_attr_hdl_) & 63 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&64 , de tect_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 &65 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 66 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 67 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 66 68 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 67 69 ) … … 70 72 71 73 SUBROUTINE xios(set_fieldgroup_attr_hdl) & 72 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&73 , de tect_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 &74 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 75 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 76 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 75 77 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 76 78 ) … … 82 84 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods 83 85 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode 86 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active 87 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 84 88 INTEGER , OPTIONAL, INTENT(IN) :: compression_level 85 89 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value … … 116 120 117 121 CALL xios(set_fieldgroup_attr_hdl_) & 118 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&119 , de tect_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 &122 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 123 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 124 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 121 125 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 122 126 ) … … 125 129 126 130 SUBROUTINE xios(set_fieldgroup_attr_hdl_) & 127 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, c ompression_level_ &128 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ &129 , freq_o p_, 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_ )131 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_ & 132 , compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ & 133 , freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_ & 134 , name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_ & 135 , ts_split_freq_, unit_, valid_max_, valid_min_ ) 132 136 133 137 IMPLICIT NONE … … 137 141 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_ 138 142 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_ 143 LOGICAL , OPTIONAL, INTENT(IN) :: check_if_active_ 144 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 139 145 INTEGER , OPTIONAL, INTENT(IN) :: compression_level_ 140 146 REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_ … … 190 196 ENDIF 191 197 198 IF (PRESENT(check_if_active_)) THEN 199 check_if_active__tmp = check_if_active_ 200 CALL cxios_set_fieldgroup_check_if_active & 201 (fieldgroup_hdl%daddr, check_if_active__tmp) 202 ENDIF 203 192 204 IF (PRESENT(compression_level_)) THEN 193 205 CALL cxios_set_fieldgroup_compression_level & … … 333 345 334 346 SUBROUTINE xios(get_fieldgroup_attr) & 335 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&336 , de tect_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 &347 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 348 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 349 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 338 350 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 339 351 ) … … 346 358 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 347 359 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 360 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 361 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 348 362 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 349 363 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 382 396 (fieldgroup_id,fieldgroup_hdl) 383 397 CALL xios(get_fieldgroup_attr_hdl_) & 384 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&385 , de tect_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 &398 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 399 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 400 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 387 401 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 388 402 ) … … 391 405 392 406 SUBROUTINE xios(get_fieldgroup_attr_hdl) & 393 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&394 , de tect_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 &407 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 408 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 409 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 396 410 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 397 411 ) … … 403 417 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods 404 418 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode 419 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active 420 LOGICAL (KIND=C_BOOL) :: check_if_active_tmp 405 421 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level 406 422 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value … … 437 453 438 454 CALL xios(get_fieldgroup_attr_hdl_) & 439 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&440 , de tect_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 &455 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 456 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 457 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 442 458 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 443 459 ) … … 446 462 447 463 SUBROUTINE xios(get_fieldgroup_attr_hdl_) & 448 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, c ompression_level_ &449 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ &450 , freq_o p_, 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_ )464 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_ & 465 , compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ & 466 , freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_ & 467 , name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_ & 468 , ts_split_freq_, unit_, valid_max_, valid_min_ ) 453 469 454 470 IMPLICIT NONE … … 458 474 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_ 459 475 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 476 LOGICAL , OPTIONAL, INTENT(OUT) :: check_if_active_ 477 LOGICAL (KIND=C_BOOL) :: check_if_active__tmp 460 478 INTEGER , OPTIONAL, INTENT(OUT) :: compression_level_ 461 479 REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_ … … 511 529 ENDIF 512 530 531 IF (PRESENT(check_if_active_)) THEN 532 CALL cxios_get_fieldgroup_check_if_active & 533 (fieldgroup_hdl%daddr, check_if_active__tmp) 534 check_if_active_ = check_if_active__tmp 535 ENDIF 536 513 537 IF (PRESENT(compression_level_)) THEN 514 538 CALL cxios_get_fieldgroup_compression_level & … … 654 678 655 679 SUBROUTINE xios(is_defined_fieldgroup_attr) & 656 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&657 , de tect_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 &680 ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 681 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 682 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 659 683 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 660 684 ) … … 671 695 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 672 696 LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 697 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 698 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 673 699 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 674 700 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 729 755 (fieldgroup_id,fieldgroup_hdl) 730 756 CALL xios(is_defined_fieldgroup_attr_hdl_) & 731 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&732 , de tect_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 &757 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 758 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 759 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 734 760 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 735 761 ) … … 738 764 739 765 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl) & 740 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&741 , de tect_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 &766 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 767 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 768 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 743 769 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 744 770 ) … … 754 780 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode 755 781 LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp 782 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active 783 LOGICAL(KIND=C_BOOL) :: check_if_active_tmp 756 784 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level 757 785 LOGICAL(KIND=C_BOOL) :: compression_level_tmp … … 810 838 811 839 CALL xios(is_defined_fieldgroup_attr_hdl_) & 812 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, c ompression_level, default_value&813 , de tect_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 &840 ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, compression_level & 841 , default_value, detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op & 842 , grid_path, grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access & 815 843 , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min & 816 844 ) … … 819 847 820 848 SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_) & 821 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, c ompression_level_ &822 , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_ &823 , freq_o p_, 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_ )849 ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_ & 850 , compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_ & 851 , freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_ & 852 , name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_ & 853 , ts_split_freq_, unit_, valid_max_, valid_min_ ) 826 854 827 855 IMPLICIT NONE … … 835 863 LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_ 836 864 LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp 865 LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_ 866 LOGICAL(KIND=C_BOOL) :: check_if_active__tmp 837 867 LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_ 838 868 LOGICAL(KIND=C_BOOL) :: compression_level__tmp … … 914 944 ENDIF 915 945 946 IF (PRESENT(check_if_active_)) THEN 947 check_if_active__tmp = cxios_is_defined_fieldgroup_check_if_active & 948 (fieldgroup_hdl%daddr) 949 check_if_active_ = check_if_active__tmp 950 ENDIF 951 916 952 IF (PRESENT(compression_level_)) THEN 917 953 compression_level__tmp = cxios_is_defined_fieldgroup_compression_level & -
XIOS/trunk/src/node/field.cpp
r1135 r1181 825 825 else // The data might be passed from the model 826 826 { 827 if (check_if_active.isEmpty()) check_if_active = false; 827 828 bool ignoreMissingValue = (!detect_missing_value.isEmpty() && !default_value.isEmpty() && detect_missing_value == true); 828 829 double defaultValue = ignoreMissingValue ? default_value : (!default_value.isEmpty() ? default_value : 0.0); … … 916 917 if (!clientSourceFilter) 917 918 { 919 if (check_if_active.isEmpty()) check_if_active = false; 918 920 bool ignoreMissingValue = (!detect_missing_value.isEmpty() && !default_value.isEmpty() && detect_missing_value == true); 919 921 double defaultValue = ignoreMissingValue ? default_value : (!default_value.isEmpty() ? default_value : 0.0); -
XIOS/trunk/src/node/field_impl.hpp
r1007 r1181 19 19 { 20 20 if (clientSourceFilter) 21 clientSourceFilter->streamData(CContext::getCurrent()->getCalendar()->getCurrentDate(), _data); 21 { 22 if (!check_if_active || isActive(true)) 23 clientSourceFilter->streamData(CContext::getCurrent()->getCalendar()->getCurrentDate(), _data); 24 } 22 25 else if (instantDataFilter) 23 26 ERROR("void CField::setData(const CArray<double, N>& _data)",
Note: See TracChangeset
for help on using the changeset viewer.