Changeset 1052
- Timestamp:
- 02/07/17 12:00:27 (7 years ago)
- Location:
- XIOS/trunk/src/interface
- Files:
-
- 24 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/c_attr/icaxis_attr.cpp
r817 r1052 188 188 189 189 190 void cxios_set_axis_label(axis_Ptr axis_hdl, char* label, int str_len, int* str_size, int* extent) 191 { 192 CTimer::get("XIOS").resume(); 193 axis_hdl->label.resize(shape(extent[0])); 194 Array<StdString,1>::iterator it, itb=axis_hdl->label.begin(), ite=axis_hdl->label.end() ; 195 int i, n ; 196 for(it=itb, i=0, n=0 ; it!=ite ; ++it,n+=str_len,++i) *it=StdString(&label[n],str_size[i]) ; 197 CTimer::get("XIOS").suspend(); 198 } 199 200 void cxios_get_axis_label(axis_Ptr axis_hdl, char* label, int str_size, int* extent) 201 { 202 CTimer::get("XIOS").resume(); 203 Array<StdString,1>::const_iterator it, itb=axis_hdl->label.getInheritedValue().begin(), ite=axis_hdl->label.getInheritedValue().end() ; 204 int n ; 205 for(it=itb, n=0 ; it!=ite ; ++it, n+=str_size) it->copy(&label[n],it->size()) ; 206 CTimer::get("XIOS").suspend(); 207 } 208 209 bool cxios_is_defined_axis_label(axis_Ptr axis_hdl) 210 { 211 CTimer::get("XIOS").resume(); 212 bool isDefined = axis_hdl->label.hasInheritedValue(); 213 CTimer::get("XIOS").suspend(); 214 return isDefined; 215 } 216 217 190 218 void cxios_set_axis_long_name(axis_Ptr axis_hdl, const char * long_name, int long_name_size) 191 219 { … … 360 388 361 389 390 void cxios_set_axis_prec(axis_Ptr axis_hdl, int prec) 391 { 392 CTimer::get("XIOS").resume(); 393 axis_hdl->prec.setValue(prec); 394 CTimer::get("XIOS").suspend(); 395 } 396 397 void cxios_get_axis_prec(axis_Ptr axis_hdl, int* prec) 398 { 399 CTimer::get("XIOS").resume(); 400 *prec = axis_hdl->prec.getInheritedValue(); 401 CTimer::get("XIOS").suspend(); 402 } 403 404 bool cxios_is_defined_axis_prec(axis_Ptr axis_hdl) 405 { 406 CTimer::get("XIOS").resume(); 407 bool isDefined = axis_hdl->prec.hasInheritedValue(); 408 CTimer::get("XIOS").suspend(); 409 return isDefined; 410 } 411 412 362 413 void cxios_set_axis_standard_name(axis_Ptr axis_hdl, const char * standard_name, int standard_name_size) 363 414 { -
XIOS/trunk/src/interface/c_attr/icaxisgroup_attr.cpp
r817 r1052 214 214 215 215 216 void cxios_set_axisgroup_label(axisgroup_Ptr axisgroup_hdl, char* label, int str_len, int* str_size, int* extent) 217 { 218 CTimer::get("XIOS").resume(); 219 axisgroup_hdl->label.resize(shape(extent[0])); 220 Array<StdString,1>::iterator it, itb=axisgroup_hdl->label.begin(), ite=axisgroup_hdl->label.end() ; 221 int i, n ; 222 for(it=itb, i=0, n=0 ; it!=ite ; ++it,n+=str_len,++i) *it=StdString(&label[n],str_size[i]) ; 223 CTimer::get("XIOS").suspend(); 224 } 225 226 void cxios_get_axisgroup_label(axisgroup_Ptr axisgroup_hdl, char* label, int str_size, int* extent) 227 { 228 CTimer::get("XIOS").resume(); 229 Array<StdString,1>::const_iterator it, itb=axisgroup_hdl->label.getInheritedValue().begin(), ite=axisgroup_hdl->label.getInheritedValue().end() ; 230 int n ; 231 for(it=itb, n=0 ; it!=ite ; ++it, n+=str_size) it->copy(&label[n],it->size()) ; 232 CTimer::get("XIOS").suspend(); 233 } 234 235 bool cxios_is_defined_axisgroup_label(axisgroup_Ptr axisgroup_hdl) 236 { 237 CTimer::get("XIOS").resume(); 238 bool isDefined = axisgroup_hdl->label.hasInheritedValue(); 239 CTimer::get("XIOS").suspend(); 240 return isDefined; 241 } 242 243 216 244 void cxios_set_axisgroup_long_name(axisgroup_Ptr axisgroup_hdl, const char * long_name, int long_name_size) 217 245 { … … 386 414 387 415 416 void cxios_set_axisgroup_prec(axisgroup_Ptr axisgroup_hdl, int prec) 417 { 418 CTimer::get("XIOS").resume(); 419 axisgroup_hdl->prec.setValue(prec); 420 CTimer::get("XIOS").suspend(); 421 } 422 423 void cxios_get_axisgroup_prec(axisgroup_Ptr axisgroup_hdl, int* prec) 424 { 425 CTimer::get("XIOS").resume(); 426 *prec = axisgroup_hdl->prec.getInheritedValue(); 427 CTimer::get("XIOS").suspend(); 428 } 429 430 bool cxios_is_defined_axisgroup_prec(axisgroup_Ptr axisgroup_hdl) 431 { 432 CTimer::get("XIOS").resume(); 433 bool isDefined = axisgroup_hdl->prec.hasInheritedValue(); 434 CTimer::get("XIOS").suspend(); 435 return isDefined; 436 } 437 438 388 439 void cxios_set_axisgroup_standard_name(axisgroup_Ptr axisgroup_hdl, const char * standard_name, int standard_name_size) 389 440 { -
XIOS/trunk/src/interface/c_attr/icdomain_attr.cpp
r789 r1052 747 747 748 748 749 void cxios_set_domain_prec(domain_Ptr domain_hdl, int prec) 750 { 751 CTimer::get("XIOS").resume(); 752 domain_hdl->prec.setValue(prec); 753 CTimer::get("XIOS").suspend(); 754 } 755 756 void cxios_get_domain_prec(domain_Ptr domain_hdl, int* prec) 757 { 758 CTimer::get("XIOS").resume(); 759 *prec = domain_hdl->prec.getInheritedValue(); 760 CTimer::get("XIOS").suspend(); 761 } 762 763 bool cxios_is_defined_domain_prec(domain_Ptr domain_hdl) 764 { 765 CTimer::get("XIOS").resume(); 766 bool isDefined = domain_hdl->prec.hasInheritedValue(); 767 CTimer::get("XIOS").suspend(); 768 return isDefined; 769 } 770 771 749 772 void cxios_set_domain_standard_name(domain_Ptr domain_hdl, const char * standard_name, int standard_name_size) 750 773 { -
XIOS/trunk/src/interface/c_attr/icdomaingroup_attr.cpp
r789 r1052 773 773 774 774 775 void cxios_set_domaingroup_prec(domaingroup_Ptr domaingroup_hdl, int prec) 776 { 777 CTimer::get("XIOS").resume(); 778 domaingroup_hdl->prec.setValue(prec); 779 CTimer::get("XIOS").suspend(); 780 } 781 782 void cxios_get_domaingroup_prec(domaingroup_Ptr domaingroup_hdl, int* prec) 783 { 784 CTimer::get("XIOS").resume(); 785 *prec = domaingroup_hdl->prec.getInheritedValue(); 786 CTimer::get("XIOS").suspend(); 787 } 788 789 bool cxios_is_defined_domaingroup_prec(domaingroup_Ptr domaingroup_hdl) 790 { 791 CTimer::get("XIOS").resume(); 792 bool isDefined = domaingroup_hdl->prec.hasInheritedValue(); 793 CTimer::get("XIOS").suspend(); 794 return isDefined; 795 } 796 797 775 798 void cxios_set_domaingroup_standard_name(domaingroup_Ptr domaingroup_hdl, const char * standard_name, int standard_name_size) 776 799 { -
XIOS/trunk/src/interface/c_attr/icfile_attr.cpp
r932 r1052 553 553 554 554 555 void cxios_set_file_time_stamp_format(file_Ptr file_hdl, const char * time_stamp_format, int time_stamp_format_size) 556 { 557 std::string time_stamp_format_str; 558 if (!cstr2string(time_stamp_format, time_stamp_format_size, time_stamp_format_str)) return; 559 CTimer::get("XIOS").resume(); 560 file_hdl->time_stamp_format.setValue(time_stamp_format_str); 561 CTimer::get("XIOS").suspend(); 562 } 563 564 void cxios_get_file_time_stamp_format(file_Ptr file_hdl, char * time_stamp_format, int time_stamp_format_size) 565 { 566 CTimer::get("XIOS").resume(); 567 if (!string_copy(file_hdl->time_stamp_format.getInheritedValue(), time_stamp_format, time_stamp_format_size)) 568 ERROR("void cxios_get_file_time_stamp_format(file_Ptr file_hdl, char * time_stamp_format, int time_stamp_format_size)", << "Input string is too short"); 569 CTimer::get("XIOS").suspend(); 570 } 571 572 bool cxios_is_defined_file_time_stamp_format(file_Ptr file_hdl) 573 { 574 CTimer::get("XIOS").resume(); 575 bool isDefined = file_hdl->time_stamp_format.hasInheritedValue(); 576 CTimer::get("XIOS").suspend(); 577 return isDefined; 578 } 579 580 581 void cxios_set_file_time_stamp_name(file_Ptr file_hdl, const char * time_stamp_name, int time_stamp_name_size) 582 { 583 std::string time_stamp_name_str; 584 if (!cstr2string(time_stamp_name, time_stamp_name_size, time_stamp_name_str)) return; 585 CTimer::get("XIOS").resume(); 586 file_hdl->time_stamp_name.setValue(time_stamp_name_str); 587 CTimer::get("XIOS").suspend(); 588 } 589 590 void cxios_get_file_time_stamp_name(file_Ptr file_hdl, char * time_stamp_name, int time_stamp_name_size) 591 { 592 CTimer::get("XIOS").resume(); 593 if (!string_copy(file_hdl->time_stamp_name.getInheritedValue(), time_stamp_name, time_stamp_name_size)) 594 ERROR("void cxios_get_file_time_stamp_name(file_Ptr file_hdl, char * time_stamp_name, int time_stamp_name_size)", << "Input string is too short"); 595 CTimer::get("XIOS").suspend(); 596 } 597 598 bool cxios_is_defined_file_time_stamp_name(file_Ptr file_hdl) 599 { 600 CTimer::get("XIOS").resume(); 601 bool isDefined = file_hdl->time_stamp_name.hasInheritedValue(); 602 CTimer::get("XIOS").suspend(); 603 return isDefined; 604 } 605 606 607 void cxios_set_file_time_units(file_Ptr file_hdl, const char * time_units, int time_units_size) 608 { 609 std::string time_units_str; 610 if (!cstr2string(time_units, time_units_size, time_units_str)) return; 611 CTimer::get("XIOS").resume(); 612 file_hdl->time_units.fromString(time_units_str); 613 CTimer::get("XIOS").suspend(); 614 } 615 616 void cxios_get_file_time_units(file_Ptr file_hdl, char * time_units, int time_units_size) 617 { 618 CTimer::get("XIOS").resume(); 619 if (!string_copy(file_hdl->time_units.getInheritedStringValue(), time_units, time_units_size)) 620 ERROR("void cxios_get_file_time_units(file_Ptr file_hdl, char * time_units, int time_units_size)", << "Input string is too short"); 621 CTimer::get("XIOS").suspend(); 622 } 623 624 bool cxios_is_defined_file_time_units(file_Ptr file_hdl) 625 { 626 CTimer::get("XIOS").resume(); 627 bool isDefined = file_hdl->time_units.hasInheritedValue(); 628 CTimer::get("XIOS").suspend(); 629 return isDefined; 630 } 631 632 555 633 void cxios_set_file_timeseries(file_Ptr file_hdl, const char * timeseries, int timeseries_size) 556 634 { … … 629 707 return isDefined; 630 708 } 709 710 711 void cxios_set_file_uuid_format(file_Ptr file_hdl, const char * uuid_format, int uuid_format_size) 712 { 713 std::string uuid_format_str; 714 if (!cstr2string(uuid_format, uuid_format_size, uuid_format_str)) return; 715 CTimer::get("XIOS").resume(); 716 file_hdl->uuid_format.setValue(uuid_format_str); 717 CTimer::get("XIOS").suspend(); 718 } 719 720 void cxios_get_file_uuid_format(file_Ptr file_hdl, char * uuid_format, int uuid_format_size) 721 { 722 CTimer::get("XIOS").resume(); 723 if (!string_copy(file_hdl->uuid_format.getInheritedValue(), uuid_format, uuid_format_size)) 724 ERROR("void cxios_get_file_uuid_format(file_Ptr file_hdl, char * uuid_format, int uuid_format_size)", << "Input string is too short"); 725 CTimer::get("XIOS").suspend(); 726 } 727 728 bool cxios_is_defined_file_uuid_format(file_Ptr file_hdl) 729 { 730 CTimer::get("XIOS").resume(); 731 bool isDefined = file_hdl->uuid_format.hasInheritedValue(); 732 CTimer::get("XIOS").suspend(); 733 return isDefined; 734 } 735 736 737 void cxios_set_file_uuid_name(file_Ptr file_hdl, const char * uuid_name, int uuid_name_size) 738 { 739 std::string uuid_name_str; 740 if (!cstr2string(uuid_name, uuid_name_size, uuid_name_str)) return; 741 CTimer::get("XIOS").resume(); 742 file_hdl->uuid_name.setValue(uuid_name_str); 743 CTimer::get("XIOS").suspend(); 744 } 745 746 void cxios_get_file_uuid_name(file_Ptr file_hdl, char * uuid_name, int uuid_name_size) 747 { 748 CTimer::get("XIOS").resume(); 749 if (!string_copy(file_hdl->uuid_name.getInheritedValue(), uuid_name, uuid_name_size)) 750 ERROR("void cxios_get_file_uuid_name(file_Ptr file_hdl, char * uuid_name, int uuid_name_size)", << "Input string is too short"); 751 CTimer::get("XIOS").suspend(); 752 } 753 754 bool cxios_is_defined_file_uuid_name(file_Ptr file_hdl) 755 { 756 CTimer::get("XIOS").resume(); 757 bool isDefined = file_hdl->uuid_name.hasInheritedValue(); 758 CTimer::get("XIOS").suspend(); 759 return isDefined; 760 } 631 761 } -
XIOS/trunk/src/interface/c_attr/icfilegroup_attr.cpp
r932 r1052 579 579 580 580 581 void cxios_set_filegroup_time_stamp_format(filegroup_Ptr filegroup_hdl, const char * time_stamp_format, int time_stamp_format_size) 582 { 583 std::string time_stamp_format_str; 584 if (!cstr2string(time_stamp_format, time_stamp_format_size, time_stamp_format_str)) return; 585 CTimer::get("XIOS").resume(); 586 filegroup_hdl->time_stamp_format.setValue(time_stamp_format_str); 587 CTimer::get("XIOS").suspend(); 588 } 589 590 void cxios_get_filegroup_time_stamp_format(filegroup_Ptr filegroup_hdl, char * time_stamp_format, int time_stamp_format_size) 591 { 592 CTimer::get("XIOS").resume(); 593 if (!string_copy(filegroup_hdl->time_stamp_format.getInheritedValue(), time_stamp_format, time_stamp_format_size)) 594 ERROR("void cxios_get_filegroup_time_stamp_format(filegroup_Ptr filegroup_hdl, char * time_stamp_format, int time_stamp_format_size)", << "Input string is too short"); 595 CTimer::get("XIOS").suspend(); 596 } 597 598 bool cxios_is_defined_filegroup_time_stamp_format(filegroup_Ptr filegroup_hdl) 599 { 600 CTimer::get("XIOS").resume(); 601 bool isDefined = filegroup_hdl->time_stamp_format.hasInheritedValue(); 602 CTimer::get("XIOS").suspend(); 603 return isDefined; 604 } 605 606 607 void cxios_set_filegroup_time_stamp_name(filegroup_Ptr filegroup_hdl, const char * time_stamp_name, int time_stamp_name_size) 608 { 609 std::string time_stamp_name_str; 610 if (!cstr2string(time_stamp_name, time_stamp_name_size, time_stamp_name_str)) return; 611 CTimer::get("XIOS").resume(); 612 filegroup_hdl->time_stamp_name.setValue(time_stamp_name_str); 613 CTimer::get("XIOS").suspend(); 614 } 615 616 void cxios_get_filegroup_time_stamp_name(filegroup_Ptr filegroup_hdl, char * time_stamp_name, int time_stamp_name_size) 617 { 618 CTimer::get("XIOS").resume(); 619 if (!string_copy(filegroup_hdl->time_stamp_name.getInheritedValue(), time_stamp_name, time_stamp_name_size)) 620 ERROR("void cxios_get_filegroup_time_stamp_name(filegroup_Ptr filegroup_hdl, char * time_stamp_name, int time_stamp_name_size)", << "Input string is too short"); 621 CTimer::get("XIOS").suspend(); 622 } 623 624 bool cxios_is_defined_filegroup_time_stamp_name(filegroup_Ptr filegroup_hdl) 625 { 626 CTimer::get("XIOS").resume(); 627 bool isDefined = filegroup_hdl->time_stamp_name.hasInheritedValue(); 628 CTimer::get("XIOS").suspend(); 629 return isDefined; 630 } 631 632 633 void cxios_set_filegroup_time_units(filegroup_Ptr filegroup_hdl, const char * time_units, int time_units_size) 634 { 635 std::string time_units_str; 636 if (!cstr2string(time_units, time_units_size, time_units_str)) return; 637 CTimer::get("XIOS").resume(); 638 filegroup_hdl->time_units.fromString(time_units_str); 639 CTimer::get("XIOS").suspend(); 640 } 641 642 void cxios_get_filegroup_time_units(filegroup_Ptr filegroup_hdl, char * time_units, int time_units_size) 643 { 644 CTimer::get("XIOS").resume(); 645 if (!string_copy(filegroup_hdl->time_units.getInheritedStringValue(), time_units, time_units_size)) 646 ERROR("void cxios_get_filegroup_time_units(filegroup_Ptr filegroup_hdl, char * time_units, int time_units_size)", << "Input string is too short"); 647 CTimer::get("XIOS").suspend(); 648 } 649 650 bool cxios_is_defined_filegroup_time_units(filegroup_Ptr filegroup_hdl) 651 { 652 CTimer::get("XIOS").resume(); 653 bool isDefined = filegroup_hdl->time_units.hasInheritedValue(); 654 CTimer::get("XIOS").suspend(); 655 return isDefined; 656 } 657 658 581 659 void cxios_set_filegroup_timeseries(filegroup_Ptr filegroup_hdl, const char * timeseries, int timeseries_size) 582 660 { … … 655 733 return isDefined; 656 734 } 735 736 737 void cxios_set_filegroup_uuid_format(filegroup_Ptr filegroup_hdl, const char * uuid_format, int uuid_format_size) 738 { 739 std::string uuid_format_str; 740 if (!cstr2string(uuid_format, uuid_format_size, uuid_format_str)) return; 741 CTimer::get("XIOS").resume(); 742 filegroup_hdl->uuid_format.setValue(uuid_format_str); 743 CTimer::get("XIOS").suspend(); 744 } 745 746 void cxios_get_filegroup_uuid_format(filegroup_Ptr filegroup_hdl, char * uuid_format, int uuid_format_size) 747 { 748 CTimer::get("XIOS").resume(); 749 if (!string_copy(filegroup_hdl->uuid_format.getInheritedValue(), uuid_format, uuid_format_size)) 750 ERROR("void cxios_get_filegroup_uuid_format(filegroup_Ptr filegroup_hdl, char * uuid_format, int uuid_format_size)", << "Input string is too short"); 751 CTimer::get("XIOS").suspend(); 752 } 753 754 bool cxios_is_defined_filegroup_uuid_format(filegroup_Ptr filegroup_hdl) 755 { 756 CTimer::get("XIOS").resume(); 757 bool isDefined = filegroup_hdl->uuid_format.hasInheritedValue(); 758 CTimer::get("XIOS").suspend(); 759 return isDefined; 760 } 761 762 763 void cxios_set_filegroup_uuid_name(filegroup_Ptr filegroup_hdl, const char * uuid_name, int uuid_name_size) 764 { 765 std::string uuid_name_str; 766 if (!cstr2string(uuid_name, uuid_name_size, uuid_name_str)) return; 767 CTimer::get("XIOS").resume(); 768 filegroup_hdl->uuid_name.setValue(uuid_name_str); 769 CTimer::get("XIOS").suspend(); 770 } 771 772 void cxios_get_filegroup_uuid_name(filegroup_Ptr filegroup_hdl, char * uuid_name, int uuid_name_size) 773 { 774 CTimer::get("XIOS").resume(); 775 if (!string_copy(filegroup_hdl->uuid_name.getInheritedValue(), uuid_name, uuid_name_size)) 776 ERROR("void cxios_get_filegroup_uuid_name(filegroup_Ptr filegroup_hdl, char * uuid_name, int uuid_name_size)", << "Input string is too short"); 777 CTimer::get("XIOS").suspend(); 778 } 779 780 bool cxios_is_defined_filegroup_uuid_name(filegroup_Ptr filegroup_hdl) 781 { 782 CTimer::get("XIOS").resume(); 783 bool isDefined = filegroup_hdl->uuid_name.hasInheritedValue(); 784 CTimer::get("XIOS").suspend(); 785 return isDefined; 786 } 657 787 } -
XIOS/trunk/src/interface/c_attr/icscalar_attr.cpp
r891 r1052 65 65 CTimer::get("XIOS").resume(); 66 66 bool isDefined = scalar_hdl->name.hasInheritedValue(); 67 CTimer::get("XIOS").suspend(); 68 return isDefined; 69 } 70 71 72 void cxios_set_scalar_prec(scalar_Ptr scalar_hdl, int prec) 73 { 74 CTimer::get("XIOS").resume(); 75 scalar_hdl->prec.setValue(prec); 76 CTimer::get("XIOS").suspend(); 77 } 78 79 void cxios_get_scalar_prec(scalar_Ptr scalar_hdl, int* prec) 80 { 81 CTimer::get("XIOS").resume(); 82 *prec = scalar_hdl->prec.getInheritedValue(); 83 CTimer::get("XIOS").suspend(); 84 } 85 86 bool cxios_is_defined_scalar_prec(scalar_Ptr scalar_hdl) 87 { 88 CTimer::get("XIOS").resume(); 89 bool isDefined = scalar_hdl->prec.hasInheritedValue(); 67 90 CTimer::get("XIOS").suspend(); 68 91 return isDefined; -
XIOS/trunk/src/interface/c_attr/icscalargroup_attr.cpp
r891 r1052 96 96 97 97 98 void cxios_set_scalargroup_prec(scalargroup_Ptr scalargroup_hdl, int prec) 99 { 100 CTimer::get("XIOS").resume(); 101 scalargroup_hdl->prec.setValue(prec); 102 CTimer::get("XIOS").suspend(); 103 } 104 105 void cxios_get_scalargroup_prec(scalargroup_Ptr scalargroup_hdl, int* prec) 106 { 107 CTimer::get("XIOS").resume(); 108 *prec = scalargroup_hdl->prec.getInheritedValue(); 109 CTimer::get("XIOS").suspend(); 110 } 111 112 bool cxios_is_defined_scalargroup_prec(scalargroup_Ptr scalargroup_hdl) 113 { 114 CTimer::get("XIOS").resume(); 115 bool isDefined = scalargroup_hdl->prec.hasInheritedValue(); 116 CTimer::get("XIOS").suspend(); 117 return isDefined; 118 } 119 120 98 121 void cxios_set_scalargroup_scalar_ref(scalargroup_Ptr scalargroup_hdl, const char * scalar_ref, int scalar_ref_size) 99 122 { -
XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90
r817 r1052 151 151 152 152 153 SUBROUTINE cxios_set_axis_label(axis_hdl, label, str_len, str_size, extent) BIND(C) 154 USE ISO_C_BINDING 155 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 156 CHARACTER (KIND=C_CHAR), DIMENSION(*) :: label 157 INTEGER (kind = C_INT), VALUE :: str_len 158 INTEGER (kind = C_INT), DIMENSION(*) :: str_size 159 INTEGER (kind = C_INT), DIMENSION(*) :: extent 160 END SUBROUTINE cxios_set_axis_label 161 162 SUBROUTINE cxios_get_axis_label(axis_hdl, label, str_size, extent) BIND(C) 163 USE ISO_C_BINDING 164 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 165 CHARACTER (KIND=C_CHAR), DIMENSION(*) :: label 166 INTEGER (kind = C_INT), VALUE :: str_size 167 INTEGER (kind = C_INT), DIMENSION(*) :: extent 168 END SUBROUTINE cxios_get_axis_label 169 170 FUNCTION cxios_is_defined_axis_label(axis_hdl) BIND(C) 171 USE ISO_C_BINDING 172 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_label 173 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 174 END FUNCTION cxios_is_defined_axis_label 175 176 153 177 SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C) 154 178 USE ISO_C_BINDING … … 292 316 293 317 318 SUBROUTINE cxios_set_axis_prec(axis_hdl, prec) BIND(C) 319 USE ISO_C_BINDING 320 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 321 INTEGER (KIND=C_INT) , VALUE :: prec 322 END SUBROUTINE cxios_set_axis_prec 323 324 SUBROUTINE cxios_get_axis_prec(axis_hdl, prec) BIND(C) 325 USE ISO_C_BINDING 326 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 327 INTEGER (KIND=C_INT) :: prec 328 END SUBROUTINE cxios_get_axis_prec 329 330 FUNCTION cxios_is_defined_axis_prec(axis_hdl) BIND(C) 331 USE ISO_C_BINDING 332 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_prec 333 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 334 END FUNCTION cxios_is_defined_axis_prec 335 336 294 337 SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C) 295 338 USE ISO_C_BINDING -
XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90
r817 r1052 172 172 173 173 174 SUBROUTINE cxios_set_axisgroup_label(axisgroup_hdl, label, str_len, str_size, extent) BIND(C) 175 USE ISO_C_BINDING 176 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 177 CHARACTER (KIND=C_CHAR), DIMENSION(*) :: label 178 INTEGER (kind = C_INT), VALUE :: str_len 179 INTEGER (kind = C_INT), DIMENSION(*) :: str_size 180 INTEGER (kind = C_INT), DIMENSION(*) :: extent 181 END SUBROUTINE cxios_set_axisgroup_label 182 183 SUBROUTINE cxios_get_axisgroup_label(axisgroup_hdl, label, str_size, extent) BIND(C) 184 USE ISO_C_BINDING 185 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 186 CHARACTER (KIND=C_CHAR), DIMENSION(*) :: label 187 INTEGER (kind = C_INT), VALUE :: str_size 188 INTEGER (kind = C_INT), DIMENSION(*) :: extent 189 END SUBROUTINE cxios_get_axisgroup_label 190 191 FUNCTION cxios_is_defined_axisgroup_label(axisgroup_hdl) BIND(C) 192 USE ISO_C_BINDING 193 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_label 194 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 195 END FUNCTION cxios_is_defined_axisgroup_label 196 197 174 198 SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) 175 199 USE ISO_C_BINDING … … 313 337 314 338 339 SUBROUTINE cxios_set_axisgroup_prec(axisgroup_hdl, prec) BIND(C) 340 USE ISO_C_BINDING 341 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 342 INTEGER (KIND=C_INT) , VALUE :: prec 343 END SUBROUTINE cxios_set_axisgroup_prec 344 345 SUBROUTINE cxios_get_axisgroup_prec(axisgroup_hdl, prec) BIND(C) 346 USE ISO_C_BINDING 347 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 348 INTEGER (KIND=C_INT) :: prec 349 END SUBROUTINE cxios_get_axisgroup_prec 350 351 FUNCTION cxios_is_defined_axisgroup_prec(axisgroup_hdl) BIND(C) 352 USE ISO_C_BINDING 353 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_prec 354 INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 355 END FUNCTION cxios_is_defined_axisgroup_prec 356 357 315 358 SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C) 316 359 USE ISO_C_BINDING -
XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90
r789 r1052 616 616 617 617 618 SUBROUTINE cxios_set_domain_prec(domain_hdl, prec) BIND(C) 619 USE ISO_C_BINDING 620 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 621 INTEGER (KIND=C_INT) , VALUE :: prec 622 END SUBROUTINE cxios_set_domain_prec 623 624 SUBROUTINE cxios_get_domain_prec(domain_hdl, prec) BIND(C) 625 USE ISO_C_BINDING 626 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 627 INTEGER (KIND=C_INT) :: prec 628 END SUBROUTINE cxios_get_domain_prec 629 630 FUNCTION cxios_is_defined_domain_prec(domain_hdl) BIND(C) 631 USE ISO_C_BINDING 632 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_prec 633 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 634 END FUNCTION cxios_is_defined_domain_prec 635 636 618 637 SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 619 638 USE ISO_C_BINDING -
XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.F90
r789 r1052 637 637 638 638 639 SUBROUTINE cxios_set_domaingroup_prec(domaingroup_hdl, prec) BIND(C) 640 USE ISO_C_BINDING 641 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 642 INTEGER (KIND=C_INT) , VALUE :: prec 643 END SUBROUTINE cxios_set_domaingroup_prec 644 645 SUBROUTINE cxios_get_domaingroup_prec(domaingroup_hdl, prec) BIND(C) 646 USE ISO_C_BINDING 647 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 648 INTEGER (KIND=C_INT) :: prec 649 END SUBROUTINE cxios_get_domaingroup_prec 650 651 FUNCTION cxios_is_defined_domaingroup_prec(domaingroup_hdl) BIND(C) 652 USE ISO_C_BINDING 653 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_prec 654 INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 655 END FUNCTION cxios_is_defined_domaingroup_prec 656 657 639 658 SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) 640 659 USE ISO_C_BINDING -
XIOS/trunk/src/interface/fortran_attr/file_interface_attr.F90
r932 r1052 416 416 417 417 418 SUBROUTINE cxios_set_file_time_stamp_format(file_hdl, time_stamp_format, time_stamp_format_size) BIND(C) 419 USE ISO_C_BINDING 420 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 421 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_format 422 INTEGER (kind = C_INT) , VALUE :: time_stamp_format_size 423 END SUBROUTINE cxios_set_file_time_stamp_format 424 425 SUBROUTINE cxios_get_file_time_stamp_format(file_hdl, time_stamp_format, time_stamp_format_size) BIND(C) 426 USE ISO_C_BINDING 427 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 428 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_format 429 INTEGER (kind = C_INT) , VALUE :: time_stamp_format_size 430 END SUBROUTINE cxios_get_file_time_stamp_format 431 432 FUNCTION cxios_is_defined_file_time_stamp_format(file_hdl) BIND(C) 433 USE ISO_C_BINDING 434 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_stamp_format 435 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 436 END FUNCTION cxios_is_defined_file_time_stamp_format 437 438 439 SUBROUTINE cxios_set_file_time_stamp_name(file_hdl, time_stamp_name, time_stamp_name_size) BIND(C) 440 USE ISO_C_BINDING 441 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 442 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_name 443 INTEGER (kind = C_INT) , VALUE :: time_stamp_name_size 444 END SUBROUTINE cxios_set_file_time_stamp_name 445 446 SUBROUTINE cxios_get_file_time_stamp_name(file_hdl, time_stamp_name, time_stamp_name_size) BIND(C) 447 USE ISO_C_BINDING 448 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 449 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_name 450 INTEGER (kind = C_INT) , VALUE :: time_stamp_name_size 451 END SUBROUTINE cxios_get_file_time_stamp_name 452 453 FUNCTION cxios_is_defined_file_time_stamp_name(file_hdl) BIND(C) 454 USE ISO_C_BINDING 455 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_stamp_name 456 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 457 END FUNCTION cxios_is_defined_file_time_stamp_name 458 459 460 SUBROUTINE cxios_set_file_time_units(file_hdl, time_units, time_units_size) BIND(C) 461 USE ISO_C_BINDING 462 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 463 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_units 464 INTEGER (kind = C_INT) , VALUE :: time_units_size 465 END SUBROUTINE cxios_set_file_time_units 466 467 SUBROUTINE cxios_get_file_time_units(file_hdl, time_units, time_units_size) BIND(C) 468 USE ISO_C_BINDING 469 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 470 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_units 471 INTEGER (kind = C_INT) , VALUE :: time_units_size 472 END SUBROUTINE cxios_get_file_time_units 473 474 FUNCTION cxios_is_defined_file_time_units(file_hdl) BIND(C) 475 USE ISO_C_BINDING 476 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_units 477 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 478 END FUNCTION cxios_is_defined_file_time_units 479 480 418 481 SUBROUTINE cxios_set_file_timeseries(file_hdl, timeseries, timeseries_size) BIND(C) 419 482 USE ISO_C_BINDING … … 478 541 END FUNCTION cxios_is_defined_file_type 479 542 543 544 SUBROUTINE cxios_set_file_uuid_format(file_hdl, uuid_format, uuid_format_size) BIND(C) 545 USE ISO_C_BINDING 546 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 547 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_format 548 INTEGER (kind = C_INT) , VALUE :: uuid_format_size 549 END SUBROUTINE cxios_set_file_uuid_format 550 551 SUBROUTINE cxios_get_file_uuid_format(file_hdl, uuid_format, uuid_format_size) BIND(C) 552 USE ISO_C_BINDING 553 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 554 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_format 555 INTEGER (kind = C_INT) , VALUE :: uuid_format_size 556 END SUBROUTINE cxios_get_file_uuid_format 557 558 FUNCTION cxios_is_defined_file_uuid_format(file_hdl) BIND(C) 559 USE ISO_C_BINDING 560 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_uuid_format 561 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 562 END FUNCTION cxios_is_defined_file_uuid_format 563 564 565 SUBROUTINE cxios_set_file_uuid_name(file_hdl, uuid_name, uuid_name_size) BIND(C) 566 USE ISO_C_BINDING 567 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 568 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_name 569 INTEGER (kind = C_INT) , VALUE :: uuid_name_size 570 END SUBROUTINE cxios_set_file_uuid_name 571 572 SUBROUTINE cxios_get_file_uuid_name(file_hdl, uuid_name, uuid_name_size) BIND(C) 573 USE ISO_C_BINDING 574 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 575 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_name 576 INTEGER (kind = C_INT) , VALUE :: uuid_name_size 577 END SUBROUTINE cxios_get_file_uuid_name 578 579 FUNCTION cxios_is_defined_file_uuid_name(file_hdl) BIND(C) 580 USE ISO_C_BINDING 581 LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_uuid_name 582 INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 583 END FUNCTION cxios_is_defined_file_uuid_name 584 480 585 END INTERFACE 481 586 -
XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90
r932 r1052 437 437 438 438 439 SUBROUTINE cxios_set_filegroup_time_stamp_format(filegroup_hdl, time_stamp_format, time_stamp_format_size) BIND(C) 440 USE ISO_C_BINDING 441 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 442 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_format 443 INTEGER (kind = C_INT) , VALUE :: time_stamp_format_size 444 END SUBROUTINE cxios_set_filegroup_time_stamp_format 445 446 SUBROUTINE cxios_get_filegroup_time_stamp_format(filegroup_hdl, time_stamp_format, time_stamp_format_size) BIND(C) 447 USE ISO_C_BINDING 448 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 449 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_format 450 INTEGER (kind = C_INT) , VALUE :: time_stamp_format_size 451 END SUBROUTINE cxios_get_filegroup_time_stamp_format 452 453 FUNCTION cxios_is_defined_filegroup_time_stamp_format(filegroup_hdl) BIND(C) 454 USE ISO_C_BINDING 455 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_stamp_format 456 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 457 END FUNCTION cxios_is_defined_filegroup_time_stamp_format 458 459 460 SUBROUTINE cxios_set_filegroup_time_stamp_name(filegroup_hdl, time_stamp_name, time_stamp_name_size) BIND(C) 461 USE ISO_C_BINDING 462 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 463 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_name 464 INTEGER (kind = C_INT) , VALUE :: time_stamp_name_size 465 END SUBROUTINE cxios_set_filegroup_time_stamp_name 466 467 SUBROUTINE cxios_get_filegroup_time_stamp_name(filegroup_hdl, time_stamp_name, time_stamp_name_size) BIND(C) 468 USE ISO_C_BINDING 469 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 470 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_stamp_name 471 INTEGER (kind = C_INT) , VALUE :: time_stamp_name_size 472 END SUBROUTINE cxios_get_filegroup_time_stamp_name 473 474 FUNCTION cxios_is_defined_filegroup_time_stamp_name(filegroup_hdl) BIND(C) 475 USE ISO_C_BINDING 476 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_stamp_name 477 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 478 END FUNCTION cxios_is_defined_filegroup_time_stamp_name 479 480 481 SUBROUTINE cxios_set_filegroup_time_units(filegroup_hdl, time_units, time_units_size) BIND(C) 482 USE ISO_C_BINDING 483 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 484 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_units 485 INTEGER (kind = C_INT) , VALUE :: time_units_size 486 END SUBROUTINE cxios_set_filegroup_time_units 487 488 SUBROUTINE cxios_get_filegroup_time_units(filegroup_hdl, time_units, time_units_size) BIND(C) 489 USE ISO_C_BINDING 490 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 491 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: time_units 492 INTEGER (kind = C_INT) , VALUE :: time_units_size 493 END SUBROUTINE cxios_get_filegroup_time_units 494 495 FUNCTION cxios_is_defined_filegroup_time_units(filegroup_hdl) BIND(C) 496 USE ISO_C_BINDING 497 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_units 498 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 499 END FUNCTION cxios_is_defined_filegroup_time_units 500 501 439 502 SUBROUTINE cxios_set_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C) 440 503 USE ISO_C_BINDING … … 499 562 END FUNCTION cxios_is_defined_filegroup_type 500 563 564 565 SUBROUTINE cxios_set_filegroup_uuid_format(filegroup_hdl, uuid_format, uuid_format_size) BIND(C) 566 USE ISO_C_BINDING 567 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 568 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_format 569 INTEGER (kind = C_INT) , VALUE :: uuid_format_size 570 END SUBROUTINE cxios_set_filegroup_uuid_format 571 572 SUBROUTINE cxios_get_filegroup_uuid_format(filegroup_hdl, uuid_format, uuid_format_size) BIND(C) 573 USE ISO_C_BINDING 574 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 575 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_format 576 INTEGER (kind = C_INT) , VALUE :: uuid_format_size 577 END SUBROUTINE cxios_get_filegroup_uuid_format 578 579 FUNCTION cxios_is_defined_filegroup_uuid_format(filegroup_hdl) BIND(C) 580 USE ISO_C_BINDING 581 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_uuid_format 582 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 583 END FUNCTION cxios_is_defined_filegroup_uuid_format 584 585 586 SUBROUTINE cxios_set_filegroup_uuid_name(filegroup_hdl, uuid_name, uuid_name_size) BIND(C) 587 USE ISO_C_BINDING 588 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 589 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_name 590 INTEGER (kind = C_INT) , VALUE :: uuid_name_size 591 END SUBROUTINE cxios_set_filegroup_uuid_name 592 593 SUBROUTINE cxios_get_filegroup_uuid_name(filegroup_hdl, uuid_name, uuid_name_size) BIND(C) 594 USE ISO_C_BINDING 595 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 596 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: uuid_name 597 INTEGER (kind = C_INT) , VALUE :: uuid_name_size 598 END SUBROUTINE cxios_get_filegroup_uuid_name 599 600 FUNCTION cxios_is_defined_filegroup_uuid_name(filegroup_hdl) BIND(C) 601 USE ISO_C_BINDING 602 LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_uuid_name 603 INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 604 END FUNCTION cxios_is_defined_filegroup_uuid_name 605 501 606 END INTERFACE 502 607 -
XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90
r966 r1052 12 12 13 13 SUBROUTINE xios(set_axis_attr) & 14 ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n & 15 , n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 14 ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 15 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 16 ) 16 17 17 18 IMPLICIT NONE … … 25 26 INTEGER , OPTIONAL, INTENT(IN) :: data_n 26 27 INTEGER , OPTIONAL, INTENT(IN) :: index(:) 28 CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) 27 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 28 30 LOGICAL , OPTIONAL, INTENT(IN) :: mask(:) … … 33 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 34 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 37 INTEGER , OPTIONAL, INTENT(IN) :: prec 35 38 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 36 39 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit … … 40 43 (axis_id,axis_hdl) 41 44 CALL xios(set_axis_attr_hdl_) & 42 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask & 43 , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 45 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 46 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 47 ) 44 48 45 49 END SUBROUTINE xios(set_axis_attr) 46 50 47 51 SUBROUTINE xios(set_axis_attr_hdl) & 48 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask & 49 , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 52 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 53 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 54 ) 50 55 51 56 IMPLICIT NONE … … 58 63 INTEGER , OPTIONAL, INTENT(IN) :: data_n 59 64 INTEGER , OPTIONAL, INTENT(IN) :: index(:) 65 CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) 60 66 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 61 67 LOGICAL , OPTIONAL, INTENT(IN) :: mask(:) … … 66 72 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 67 73 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 74 INTEGER , OPTIONAL, INTENT(IN) :: prec 68 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 69 76 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit … … 71 78 72 79 CALL xios(set_axis_attr_hdl_) & 73 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask & 74 , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 80 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 81 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 82 ) 75 83 76 84 END SUBROUTINE xios(set_axis_attr_hdl) 77 85 78 86 SUBROUTINE xios(set_axis_attr_hdl_) & 79 ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, l ong_name_ &80 , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_ &81 )87 ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_ & 88 , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_ & 89 , value_ ) 82 90 83 91 IMPLICIT NONE … … 90 98 INTEGER , OPTIONAL, INTENT(IN) :: data_n_ 91 99 INTEGER , OPTIONAL, INTENT(IN) :: index_(:) 100 CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:) 92 101 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 93 102 LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:) … … 98 107 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 99 108 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ 109 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 100 110 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 101 111 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_ … … 135 145 CALL cxios_set_axis_index & 136 146 (axis_hdl%daddr, index_, SHAPE(index_)) 147 ENDIF 148 149 IF (PRESENT(label_)) THEN 150 CALL cxios_set_axis_label & 151 (axis_hdl%daddr, label_, LEN(label_), LEN_TRIM(label_), SHAPE(label_)) 137 152 ENDIF 138 153 … … 174 189 ENDIF 175 190 191 IF (PRESENT(prec_)) THEN 192 CALL cxios_set_axis_prec & 193 (axis_hdl%daddr, prec_) 194 ENDIF 195 176 196 IF (PRESENT(standard_name_)) THEN 177 197 CALL cxios_set_axis_standard_name & … … 192 212 193 213 SUBROUTINE xios(get_axis_attr) & 194 ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n & 195 , n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 214 ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 215 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 216 ) 196 217 197 218 IMPLICIT NONE … … 205 226 INTEGER , OPTIONAL, INTENT(OUT) :: data_n 206 227 INTEGER , OPTIONAL, INTENT(OUT) :: index(:) 228 CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) 207 229 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 208 230 LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:) … … 213 235 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 214 236 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 237 INTEGER , OPTIONAL, INTENT(OUT) :: prec 215 238 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 216 239 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit … … 220 243 (axis_id,axis_hdl) 221 244 CALL xios(get_axis_attr_hdl_) & 222 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask & 223 , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 245 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 246 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 247 ) 224 248 225 249 END SUBROUTINE xios(get_axis_attr) 226 250 227 251 SUBROUTINE xios(get_axis_attr_hdl) & 228 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask & 229 , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 252 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 253 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 254 ) 230 255 231 256 IMPLICIT NONE … … 238 263 INTEGER , OPTIONAL, INTENT(OUT) :: data_n 239 264 INTEGER , OPTIONAL, INTENT(OUT) :: index(:) 265 CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) 240 266 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 241 267 LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:) … … 246 272 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 247 273 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 274 INTEGER , OPTIONAL, INTENT(OUT) :: prec 248 275 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 249 276 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit … … 251 278 252 279 CALL xios(get_axis_attr_hdl_) & 253 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask & 254 , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 280 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 281 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 282 ) 255 283 256 284 END SUBROUTINE xios(get_axis_attr_hdl) 257 285 258 286 SUBROUTINE xios(get_axis_attr_hdl_) & 259 ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, l ong_name_ &260 , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_ &261 )287 ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_ & 288 , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_ & 289 , value_ ) 262 290 263 291 IMPLICIT NONE … … 270 298 INTEGER , OPTIONAL, INTENT(OUT) :: data_n_ 271 299 INTEGER , OPTIONAL, INTENT(OUT) :: index_(:) 300 CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:) 272 301 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 273 302 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:) … … 278 307 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 279 308 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ 309 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 280 310 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 281 311 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_ … … 315 345 CALL cxios_get_axis_index & 316 346 (axis_hdl%daddr, index_, SHAPE(index_)) 347 ENDIF 348 349 IF (PRESENT(label_)) THEN 350 CALL cxios_get_axis_label & 351 (axis_hdl%daddr, label_, LEN(label_), SHAPE(label_)) 317 352 ENDIF 318 353 … … 354 389 ENDIF 355 390 391 IF (PRESENT(prec_)) THEN 392 CALL cxios_get_axis_prec & 393 (axis_hdl%daddr, prec_) 394 ENDIF 395 356 396 IF (PRESENT(standard_name_)) THEN 357 397 CALL cxios_get_axis_standard_name & … … 372 412 373 413 SUBROUTINE xios(is_defined_axis_attr) & 374 ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n & 375 , n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 414 ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 415 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 416 ) 376 417 377 418 IMPLICIT NONE … … 392 433 LOGICAL, OPTIONAL, INTENT(OUT) :: index 393 434 LOGICAL(KIND=C_BOOL) :: index_tmp 435 LOGICAL, OPTIONAL, INTENT(OUT) :: label 436 LOGICAL(KIND=C_BOOL) :: label_tmp 394 437 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 395 438 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 406 449 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 407 450 LOGICAL(KIND=C_BOOL) :: positive_tmp 451 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 452 LOGICAL(KIND=C_BOOL) :: prec_tmp 408 453 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 409 454 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 416 461 (axis_id,axis_hdl) 417 462 CALL xios(is_defined_axis_attr_hdl_) & 418 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask & 419 , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 463 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 464 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 465 ) 420 466 421 467 END SUBROUTINE xios(is_defined_axis_attr) 422 468 423 469 SUBROUTINE xios(is_defined_axis_attr_hdl) & 424 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask & 425 , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 470 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 471 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 472 ) 426 473 427 474 IMPLICIT NONE … … 441 488 LOGICAL, OPTIONAL, INTENT(OUT) :: index 442 489 LOGICAL(KIND=C_BOOL) :: index_tmp 490 LOGICAL, OPTIONAL, INTENT(OUT) :: label 491 LOGICAL(KIND=C_BOOL) :: label_tmp 443 492 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 444 493 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 455 504 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 456 505 LOGICAL(KIND=C_BOOL) :: positive_tmp 506 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 507 LOGICAL(KIND=C_BOOL) :: prec_tmp 457 508 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 458 509 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 463 514 464 515 CALL xios(is_defined_axis_attr_hdl_) & 465 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask & 466 , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 516 ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name & 517 , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value & 518 ) 467 519 468 520 END SUBROUTINE xios(is_defined_axis_attr_hdl) 469 521 470 522 SUBROUTINE xios(is_defined_axis_attr_hdl_) & 471 ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, l ong_name_ &472 , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_ &473 )523 ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_ & 524 , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_ & 525 , value_ ) 474 526 475 527 IMPLICIT NONE … … 489 541 LOGICAL, OPTIONAL, INTENT(OUT) :: index_ 490 542 LOGICAL(KIND=C_BOOL) :: index__tmp 543 LOGICAL, OPTIONAL, INTENT(OUT) :: label_ 544 LOGICAL(KIND=C_BOOL) :: label__tmp 491 545 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 492 546 LOGICAL(KIND=C_BOOL) :: long_name__tmp … … 503 557 LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 504 558 LOGICAL(KIND=C_BOOL) :: positive__tmp 559 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 560 LOGICAL(KIND=C_BOOL) :: prec__tmp 505 561 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 506 562 LOGICAL(KIND=C_BOOL) :: standard_name__tmp … … 552 608 ENDIF 553 609 610 IF (PRESENT(label_)) THEN 611 label__tmp = cxios_is_defined_axis_label & 612 (axis_hdl%daddr) 613 label_ = label__tmp 614 ENDIF 615 554 616 IF (PRESENT(long_name_)) THEN 555 617 long_name__tmp = cxios_is_defined_axis_long_name & … … 594 656 ENDIF 595 657 658 IF (PRESENT(prec_)) THEN 659 prec__tmp = cxios_is_defined_axis_prec & 660 (axis_hdl%daddr) 661 prec_ = prec__tmp 662 ENDIF 663 596 664 IF (PRESENT(standard_name_)) THEN 597 665 standard_name__tmp = cxios_is_defined_axis_standard_name & -
XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
r966 r1052 12 12 13 13 SUBROUTINE xios(set_axisgroup_attr) & 14 ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 15 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 14 ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 15 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 16 , value ) 16 17 17 18 IMPLICIT NONE … … 26 27 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 27 28 INTEGER , OPTIONAL, INTENT(IN) :: index(:) 29 CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) 28 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 29 31 LOGICAL , OPTIONAL, INTENT(IN) :: mask(:) … … 34 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 35 37 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 38 INTEGER , OPTIONAL, INTENT(IN) :: prec 36 39 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 37 40 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit … … 41 44 (axisgroup_id,axisgroup_hdl) 42 45 CALL xios(set_axisgroup_attr_hdl_) & 43 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 44 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 46 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 47 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 48 , value ) 45 49 46 50 END SUBROUTINE xios(set_axisgroup_attr) 47 51 48 52 SUBROUTINE xios(set_axisgroup_attr_hdl) & 49 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 50 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 53 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 54 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 55 , value ) 51 56 52 57 IMPLICIT NONE … … 60 65 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 61 66 INTEGER , OPTIONAL, INTENT(IN) :: index(:) 67 CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) 62 68 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 63 69 LOGICAL , OPTIONAL, INTENT(IN) :: mask(:) … … 68 74 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 69 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 76 INTEGER , OPTIONAL, INTENT(IN) :: prec 70 77 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 71 78 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit … … 73 80 74 81 CALL xios(set_axisgroup_attr_hdl_) & 75 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 76 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 82 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 83 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 84 , value ) 77 85 78 86 END SUBROUTINE xios(set_axisgroup_attr_hdl) … … 80 88 SUBROUTINE xios(set_axisgroup_attr_hdl_) & 81 89 ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_ & 82 , l ong_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_ &90 , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ & 83 91 , unit_, value_ ) 84 92 … … 93 101 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 94 102 INTEGER , OPTIONAL, INTENT(IN) :: index_(:) 103 CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:) 95 104 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 96 105 LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:) … … 101 110 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 102 111 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ 112 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 103 113 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 104 114 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_ … … 143 153 CALL cxios_set_axisgroup_index & 144 154 (axisgroup_hdl%daddr, index_, SHAPE(index_)) 155 ENDIF 156 157 IF (PRESENT(label_)) THEN 158 CALL cxios_set_axisgroup_label & 159 (axisgroup_hdl%daddr, label_, LEN(label_), LEN_TRIM(label_), SHAPE(label_)) 145 160 ENDIF 146 161 … … 182 197 ENDIF 183 198 199 IF (PRESENT(prec_)) THEN 200 CALL cxios_set_axisgroup_prec & 201 (axisgroup_hdl%daddr, prec_) 202 ENDIF 203 184 204 IF (PRESENT(standard_name_)) THEN 185 205 CALL cxios_set_axisgroup_standard_name & … … 200 220 201 221 SUBROUTINE xios(get_axisgroup_attr) & 202 ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 203 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 222 ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 223 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 224 , value ) 204 225 205 226 IMPLICIT NONE … … 214 235 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 215 236 INTEGER , OPTIONAL, INTENT(OUT) :: index(:) 237 CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) 216 238 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 217 239 LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:) … … 222 244 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 223 245 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 246 INTEGER , OPTIONAL, INTENT(OUT) :: prec 224 247 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 225 248 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit … … 229 252 (axisgroup_id,axisgroup_hdl) 230 253 CALL xios(get_axisgroup_attr_hdl_) & 231 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 232 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 254 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 255 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 256 , value ) 233 257 234 258 END SUBROUTINE xios(get_axisgroup_attr) 235 259 236 260 SUBROUTINE xios(get_axisgroup_attr_hdl) & 237 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 238 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 261 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 262 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 263 , value ) 239 264 240 265 IMPLICIT NONE … … 248 273 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 249 274 INTEGER , OPTIONAL, INTENT(OUT) :: index(:) 275 CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) 250 276 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 251 277 LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:) … … 256 282 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 257 283 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 284 INTEGER , OPTIONAL, INTENT(OUT) :: prec 258 285 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 259 286 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit … … 261 288 262 289 CALL xios(get_axisgroup_attr_hdl_) & 263 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 264 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 290 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 291 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 292 , value ) 265 293 266 294 END SUBROUTINE xios(get_axisgroup_attr_hdl) … … 268 296 SUBROUTINE xios(get_axisgroup_attr_hdl_) & 269 297 ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_ & 270 , l ong_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_ &298 , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ & 271 299 , unit_, value_ ) 272 300 … … 281 309 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 282 310 INTEGER , OPTIONAL, INTENT(OUT) :: index_(:) 311 CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:) 283 312 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 284 313 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:) … … 289 318 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 290 319 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ 320 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 291 321 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 292 322 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_ … … 331 361 CALL cxios_get_axisgroup_index & 332 362 (axisgroup_hdl%daddr, index_, SHAPE(index_)) 363 ENDIF 364 365 IF (PRESENT(label_)) THEN 366 CALL cxios_get_axisgroup_label & 367 (axisgroup_hdl%daddr, label_, LEN(label_), SHAPE(label_)) 333 368 ENDIF 334 369 … … 370 405 ENDIF 371 406 407 IF (PRESENT(prec_)) THEN 408 CALL cxios_get_axisgroup_prec & 409 (axisgroup_hdl%daddr, prec_) 410 ENDIF 411 372 412 IF (PRESENT(standard_name_)) THEN 373 413 CALL cxios_get_axisgroup_standard_name & … … 388 428 389 429 SUBROUTINE xios(is_defined_axisgroup_attr) & 390 ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 391 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 430 ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 431 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 432 , value ) 392 433 393 434 IMPLICIT NONE … … 410 451 LOGICAL, OPTIONAL, INTENT(OUT) :: index 411 452 LOGICAL(KIND=C_BOOL) :: index_tmp 453 LOGICAL, OPTIONAL, INTENT(OUT) :: label 454 LOGICAL(KIND=C_BOOL) :: label_tmp 412 455 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 413 456 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 424 467 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 425 468 LOGICAL(KIND=C_BOOL) :: positive_tmp 469 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 470 LOGICAL(KIND=C_BOOL) :: prec_tmp 426 471 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 427 472 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 434 479 (axisgroup_id,axisgroup_hdl) 435 480 CALL xios(is_defined_axisgroup_attr_hdl_) & 436 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 437 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 481 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 482 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 483 , value ) 438 484 439 485 END SUBROUTINE xios(is_defined_axisgroup_attr) 440 486 441 487 SUBROUTINE xios(is_defined_axisgroup_attr_hdl) & 442 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 443 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 488 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 489 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 490 , value ) 444 491 445 492 IMPLICIT NONE … … 461 508 LOGICAL, OPTIONAL, INTENT(OUT) :: index 462 509 LOGICAL(KIND=C_BOOL) :: index_tmp 510 LOGICAL, OPTIONAL, INTENT(OUT) :: label 511 LOGICAL(KIND=C_BOOL) :: label_tmp 463 512 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 464 513 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 475 524 LOGICAL, OPTIONAL, INTENT(OUT) :: positive 476 525 LOGICAL(KIND=C_BOOL) :: positive_tmp 526 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 527 LOGICAL(KIND=C_BOOL) :: prec_tmp 477 528 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 478 529 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 483 534 484 535 CALL xios(is_defined_axisgroup_attr_hdl_) & 485 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name & 486 , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 536 ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, label & 537 , long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit & 538 , value ) 487 539 488 540 END SUBROUTINE xios(is_defined_axisgroup_attr_hdl) … … 490 542 SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) & 491 543 ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_ & 492 , l ong_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_ &544 , label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_ & 493 545 , unit_, value_ ) 494 546 … … 511 563 LOGICAL, OPTIONAL, INTENT(OUT) :: index_ 512 564 LOGICAL(KIND=C_BOOL) :: index__tmp 565 LOGICAL, OPTIONAL, INTENT(OUT) :: label_ 566 LOGICAL(KIND=C_BOOL) :: label__tmp 513 567 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 514 568 LOGICAL(KIND=C_BOOL) :: long_name__tmp … … 525 579 LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 526 580 LOGICAL(KIND=C_BOOL) :: positive__tmp 581 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 582 LOGICAL(KIND=C_BOOL) :: prec__tmp 527 583 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 528 584 LOGICAL(KIND=C_BOOL) :: standard_name__tmp … … 580 636 ENDIF 581 637 638 IF (PRESENT(label_)) THEN 639 label__tmp = cxios_is_defined_axisgroup_label & 640 (axisgroup_hdl%daddr) 641 label_ = label__tmp 642 ENDIF 643 582 644 IF (PRESENT(long_name_)) THEN 583 645 long_name__tmp = cxios_is_defined_axisgroup_long_name & … … 622 684 ENDIF 623 685 686 IF (PRESENT(prec_)) THEN 687 prec__tmp = cxios_is_defined_axisgroup_prec & 688 (axisgroup_hdl%daddr) 689 prec_ = prec__tmp 690 ENDIF 691 624 692 IF (PRESENT(standard_name_)) THEN 625 693 standard_name__tmp = cxios_is_defined_axisgroup_standard_name & -
XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90
r966 r1052 15 15 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 16 16 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 17 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )17 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 18 18 19 19 IMPLICIT NONE … … 52 52 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 53 53 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 54 INTEGER , OPTIONAL, INTENT(IN) :: prec 54 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 55 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 61 62 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 62 63 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 63 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )64 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 64 65 65 66 END SUBROUTINE xios(set_domain_attr) … … 69 70 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 70 71 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 71 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )72 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 72 73 73 74 IMPLICIT NONE … … 105 106 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 106 107 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 108 INTEGER , OPTIONAL, INTENT(IN) :: prec 107 109 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 108 110 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 112 114 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 113 115 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 114 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )116 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 115 117 116 118 END SUBROUTINE xios(set_domain_attr_hdl) … … 120 122 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 121 123 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 122 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &124 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 123 125 , type_ ) 124 126 … … 157 159 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_ 158 160 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 161 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 159 162 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 160 163 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 314 317 ENDIF 315 318 319 IF (PRESENT(prec_)) THEN 320 CALL cxios_set_domain_prec & 321 (domain_hdl%daddr, prec_) 322 ENDIF 323 316 324 IF (PRESENT(standard_name_)) THEN 317 325 CALL cxios_set_domain_standard_name & … … 330 338 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 331 339 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 332 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )340 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 333 341 334 342 IMPLICIT NONE … … 367 375 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 368 376 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 377 INTEGER , OPTIONAL, INTENT(OUT) :: prec 369 378 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 370 379 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 376 385 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 377 386 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 378 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )387 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 379 388 380 389 END SUBROUTINE xios(get_domain_attr) … … 384 393 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 385 394 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 386 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )395 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 387 396 388 397 IMPLICIT NONE … … 420 429 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 421 430 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 431 INTEGER , OPTIONAL, INTENT(OUT) :: prec 422 432 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 423 433 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 427 437 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 428 438 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 429 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )439 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 430 440 431 441 END SUBROUTINE xios(get_domain_attr_hdl) … … 435 445 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 436 446 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 437 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &447 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 438 448 , type_ ) 439 449 … … 472 482 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_ 473 483 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 484 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 474 485 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 475 486 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 629 640 ENDIF 630 641 642 IF (PRESENT(prec_)) THEN 643 CALL cxios_get_domain_prec & 644 (domain_hdl%daddr, prec_) 645 ENDIF 646 631 647 IF (PRESENT(standard_name_)) THEN 632 648 CALL cxios_get_domain_standard_name & … … 645 661 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 646 662 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 647 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )663 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 648 664 649 665 IMPLICIT NONE … … 710 726 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 711 727 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 728 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 729 LOGICAL(KIND=C_BOOL) :: prec_tmp 712 730 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 713 731 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 721 739 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 722 740 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 723 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )741 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 724 742 725 743 END SUBROUTINE xios(is_defined_domain_attr) … … 729 747 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 730 748 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 731 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )749 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 732 750 733 751 IMPLICIT NONE … … 793 811 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 794 812 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 813 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 814 LOGICAL(KIND=C_BOOL) :: prec_tmp 795 815 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 796 816 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 802 822 , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index & 803 823 , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name & 804 , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )824 , ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 805 825 806 826 END SUBROUTINE xios(is_defined_domain_attr_hdl) … … 810 830 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 811 831 , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 812 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &832 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 813 833 , type_ ) 814 834 … … 875 895 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 876 896 LOGICAL(KIND=C_BOOL) :: nvertex__tmp 897 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 898 LOGICAL(KIND=C_BOOL) :: prec__tmp 877 899 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 878 900 LOGICAL(KIND=C_BOOL) :: standard_name__tmp … … 1060 1082 ENDIF 1061 1083 1084 IF (PRESENT(prec_)) THEN 1085 prec__tmp = cxios_is_defined_domain_prec & 1086 (domain_hdl%daddr) 1087 prec_ = prec__tmp 1088 ENDIF 1089 1062 1090 IF (PRESENT(standard_name_)) THEN 1063 1091 standard_name__tmp = cxios_is_defined_domain_standard_name & -
XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90
r966 r1052 15 15 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 16 16 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 17 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )17 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 18 18 19 19 IMPLICIT NONE … … 53 53 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 54 54 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 55 INTEGER , OPTIONAL, INTENT(IN) :: prec 55 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 56 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 62 63 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 63 64 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 64 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )65 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 65 66 66 67 END SUBROUTINE xios(set_domaingroup_attr) … … 70 71 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 71 72 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 72 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )73 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 73 74 74 75 IMPLICIT NONE … … 107 108 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo 108 109 INTEGER , OPTIONAL, INTENT(IN) :: nvertex 110 INTEGER , OPTIONAL, INTENT(IN) :: prec 109 111 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 110 112 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 114 116 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 115 117 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 116 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )118 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 117 119 118 120 END SUBROUTINE xios(set_domaingroup_attr_hdl) … … 122 124 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 123 125 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 124 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &126 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 125 127 , type_ ) 126 128 … … 160 162 INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_ 161 163 INTEGER , OPTIONAL, INTENT(IN) :: nvertex_ 164 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 162 165 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 163 166 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ … … 322 325 ENDIF 323 326 327 IF (PRESENT(prec_)) THEN 328 CALL cxios_set_domaingroup_prec & 329 (domaingroup_hdl%daddr, prec_) 330 ENDIF 331 324 332 IF (PRESENT(standard_name_)) THEN 325 333 CALL cxios_set_domaingroup_standard_name & … … 338 346 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 339 347 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 340 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )348 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 341 349 342 350 IMPLICIT NONE … … 376 384 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 377 385 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 386 INTEGER , OPTIONAL, INTENT(OUT) :: prec 378 387 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 379 388 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 385 394 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 386 395 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 387 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )396 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 388 397 389 398 END SUBROUTINE xios(get_domaingroup_attr) … … 393 402 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 394 403 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 395 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )404 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 396 405 397 406 IMPLICIT NONE … … 430 439 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo 431 440 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex 441 INTEGER , OPTIONAL, INTENT(OUT) :: prec 432 442 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 433 443 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 437 447 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 438 448 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 439 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )449 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 440 450 441 451 END SUBROUTINE xios(get_domaingroup_attr_hdl) … … 445 455 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 446 456 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 447 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &457 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 448 458 , type_ ) 449 459 … … 483 493 INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_ 484 494 INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_ 495 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 485 496 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 486 497 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ … … 645 656 ENDIF 646 657 658 IF (PRESENT(prec_)) THEN 659 CALL cxios_get_domaingroup_prec & 660 (domaingroup_hdl%daddr, prec_) 661 ENDIF 662 647 663 IF (PRESENT(standard_name_)) THEN 648 664 CALL cxios_get_domaingroup_standard_name & … … 661 677 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 662 678 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 663 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )679 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 664 680 665 681 IMPLICIT NONE … … 728 744 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 729 745 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 746 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 747 LOGICAL(KIND=C_BOOL) :: prec_tmp 730 748 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 731 749 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 739 757 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 740 758 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 741 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )759 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 742 760 743 761 END SUBROUTINE xios(is_defined_domaingroup_attr) … … 747 765 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 748 766 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 749 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )767 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 750 768 751 769 IMPLICIT NONE … … 813 831 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 814 832 LOGICAL(KIND=C_BOOL) :: nvertex_tmp 833 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 834 LOGICAL(KIND=C_BOOL) :: prec_tmp 815 835 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 816 836 LOGICAL(KIND=C_BOOL) :: standard_name_tmp … … 822 842 , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref & 823 843 , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d & 824 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )844 , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 825 845 826 846 END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) … … 830 850 , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ & 831 851 , group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ & 832 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &852 , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_ & 833 853 , type_ ) 834 854 … … 897 917 LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 898 918 LOGICAL(KIND=C_BOOL) :: nvertex__tmp 919 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 920 LOGICAL(KIND=C_BOOL) :: prec__tmp 899 921 LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 900 922 LOGICAL(KIND=C_BOOL) :: standard_name__tmp … … 1088 1110 ENDIF 1089 1111 1112 IF (PRESENT(prec_)) THEN 1113 prec__tmp = cxios_is_defined_domaingroup_prec & 1114 (domaingroup_hdl%daddr) 1115 prec_ = prec__tmp 1116 ENDIF 1117 1090 1118 IF (PRESENT(standard_name_)) THEN 1091 1119 standard_name__tmp = cxios_is_defined_domaingroup_standard_name & -
XIOS/trunk/src/interface/fortran_attr/ifile_attr.F90
r966 r1052 14 14 ( file_id, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 15 15 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 16 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &17 )16 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 17 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 18 18 19 19 IMPLICIT NONE … … 43 43 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 44 44 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 45 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name 47 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units 45 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 46 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 47 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 52 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 48 53 49 54 CALL xios(get_file_handle) & … … 52 57 ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 53 58 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 54 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &55 )59 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 60 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 56 61 57 62 END SUBROUTINE xios(set_file_attr) … … 60 65 ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 61 66 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 62 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &63 )67 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 68 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 64 69 65 70 IMPLICIT NONE … … 88 93 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 89 94 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 95 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format 96 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name 97 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units 90 98 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 91 99 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 92 100 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 101 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 102 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 93 103 94 104 CALL xios(set_file_attr_hdl_) & 95 105 ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 96 106 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 97 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &98 )107 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 108 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 99 109 100 110 END SUBROUTINE xios(set_file_attr_hdl) … … 103 113 ( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_ & 104 114 , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ & 105 , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time series_ &106 , t s_prefix_, type_ )115 , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_ & 116 , time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 107 117 108 118 IMPLICIT NONE … … 131 141 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ 132 142 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_ 143 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_ 144 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_ 145 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_ 133 146 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_ 134 147 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 135 148 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 149 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 150 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 136 151 137 152 IF (PRESENT(append_)) THEN … … 238 253 ENDIF 239 254 255 IF (PRESENT(time_stamp_format_)) THEN 256 CALL cxios_set_file_time_stamp_format & 257 (file_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) 258 ENDIF 259 260 IF (PRESENT(time_stamp_name_)) THEN 261 CALL cxios_set_file_time_stamp_name & 262 (file_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) 263 ENDIF 264 265 IF (PRESENT(time_units_)) THEN 266 CALL cxios_set_file_time_units & 267 (file_hdl%daddr, time_units_, len(time_units_)) 268 ENDIF 269 240 270 IF (PRESENT(timeseries_)) THEN 241 271 CALL cxios_set_file_timeseries & … … 253 283 ENDIF 254 284 285 IF (PRESENT(uuid_format_)) THEN 286 CALL cxios_set_file_uuid_format & 287 (file_hdl%daddr, uuid_format_, len(uuid_format_)) 288 ENDIF 289 290 IF (PRESENT(uuid_name_)) THEN 291 CALL cxios_set_file_uuid_name & 292 (file_hdl%daddr, uuid_name_, len(uuid_name_)) 293 ENDIF 294 255 295 END SUBROUTINE xios(set_file_attr_hdl_) 256 296 … … 258 298 ( file_id, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 259 299 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 260 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &261 )300 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 301 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 262 302 263 303 IMPLICIT NONE … … 287 327 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 288 328 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 329 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format 330 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name 331 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units 289 332 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 290 333 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 291 334 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 335 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 336 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 292 337 293 338 CALL xios(get_file_handle) & … … 296 341 ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 297 342 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 298 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &299 )343 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 344 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 300 345 301 346 END SUBROUTINE xios(get_file_attr) … … 304 349 ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 305 350 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 306 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &307 )351 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 352 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 308 353 309 354 IMPLICIT NONE … … 332 377 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 333 378 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 379 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format 380 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name 381 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units 334 382 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 335 383 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 336 384 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 385 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 386 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 337 387 338 388 CALL xios(get_file_attr_hdl_) & 339 389 ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 340 390 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 341 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &342 )391 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 392 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 343 393 344 394 END SUBROUTINE xios(get_file_attr_hdl) … … 347 397 ( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_ & 348 398 , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ & 349 , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time series_ &350 , t s_prefix_, type_ )399 , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_ & 400 , time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 351 401 352 402 IMPLICIT NONE … … 375 425 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ 376 426 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_ 427 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_ 428 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_ 429 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_ 377 430 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_ 378 431 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 379 432 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 433 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 434 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 380 435 381 436 IF (PRESENT(append_)) THEN … … 482 537 ENDIF 483 538 539 IF (PRESENT(time_stamp_format_)) THEN 540 CALL cxios_get_file_time_stamp_format & 541 (file_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) 542 ENDIF 543 544 IF (PRESENT(time_stamp_name_)) THEN 545 CALL cxios_get_file_time_stamp_name & 546 (file_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) 547 ENDIF 548 549 IF (PRESENT(time_units_)) THEN 550 CALL cxios_get_file_time_units & 551 (file_hdl%daddr, time_units_, len(time_units_)) 552 ENDIF 553 484 554 IF (PRESENT(timeseries_)) THEN 485 555 CALL cxios_get_file_timeseries & … … 497 567 ENDIF 498 568 569 IF (PRESENT(uuid_format_)) THEN 570 CALL cxios_get_file_uuid_format & 571 (file_hdl%daddr, uuid_format_, len(uuid_format_)) 572 ENDIF 573 574 IF (PRESENT(uuid_name_)) THEN 575 CALL cxios_get_file_uuid_name & 576 (file_hdl%daddr, uuid_name_, len(uuid_name_)) 577 ENDIF 578 499 579 END SUBROUTINE xios(get_file_attr_hdl_) 500 580 … … 502 582 ( file_id, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 503 583 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 504 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &505 )584 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 585 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 506 586 507 587 IMPLICIT NONE … … 548 628 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 549 629 LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 630 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format 631 LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp 632 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name 633 LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp 634 LOGICAL, OPTIONAL, INTENT(OUT) :: time_units 635 LOGICAL(KIND=C_BOOL) :: time_units_tmp 550 636 LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 551 637 LOGICAL(KIND=C_BOOL) :: timeseries_tmp … … 554 640 LOGICAL, OPTIONAL, INTENT(OUT) :: type 555 641 LOGICAL(KIND=C_BOOL) :: type_tmp 642 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 643 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 644 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 645 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 556 646 557 647 CALL xios(get_file_handle) & … … 560 650 ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 561 651 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 562 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &563 )652 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 653 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 564 654 565 655 END SUBROUTINE xios(is_defined_file_attr) … … 568 658 ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 569 659 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 570 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &571 )660 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 661 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 572 662 573 663 IMPLICIT NONE … … 613 703 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 614 704 LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 705 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format 706 LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp 707 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name 708 LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp 709 LOGICAL, OPTIONAL, INTENT(OUT) :: time_units 710 LOGICAL(KIND=C_BOOL) :: time_units_tmp 615 711 LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 616 712 LOGICAL(KIND=C_BOOL) :: timeseries_tmp … … 619 715 LOGICAL, OPTIONAL, INTENT(OUT) :: type 620 716 LOGICAL(KIND=C_BOOL) :: type_tmp 717 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 718 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 719 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 720 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 621 721 622 722 CALL xios(is_defined_file_attr_hdl_) & 623 723 ( file_hdl, append, compression_level, convention, cyclic, description, enabled, format, min_digits & 624 724 , mode, name, name_suffix, output_freq, output_level, par_access, record_offset, split_freq & 625 , split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix, type &626 )725 , split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name & 726 , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 627 727 628 728 END SUBROUTINE xios(is_defined_file_attr_hdl) … … 631 731 ( file_hdl, append_, compression_level_, convention_, cyclic_, description_, enabled_, format_ & 632 732 , min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_ & 633 , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time series_ &634 , t s_prefix_, type_ )733 , split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_ & 734 , time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ ) 635 735 636 736 IMPLICIT NONE … … 676 776 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_ 677 777 LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp 778 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_ 779 LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp 780 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_ 781 LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp 782 LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_ 783 LOGICAL(KIND=C_BOOL) :: time_units__tmp 678 784 LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_ 679 785 LOGICAL(KIND=C_BOOL) :: timeseries__tmp … … 682 788 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 683 789 LOGICAL(KIND=C_BOOL) :: type__tmp 790 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 791 LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 792 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 793 LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 684 794 685 795 IF (PRESENT(append_)) THEN … … 803 913 ENDIF 804 914 915 IF (PRESENT(time_stamp_format_)) THEN 916 time_stamp_format__tmp = cxios_is_defined_file_time_stamp_format & 917 (file_hdl%daddr) 918 time_stamp_format_ = time_stamp_format__tmp 919 ENDIF 920 921 IF (PRESENT(time_stamp_name_)) THEN 922 time_stamp_name__tmp = cxios_is_defined_file_time_stamp_name & 923 (file_hdl%daddr) 924 time_stamp_name_ = time_stamp_name__tmp 925 ENDIF 926 927 IF (PRESENT(time_units_)) THEN 928 time_units__tmp = cxios_is_defined_file_time_units & 929 (file_hdl%daddr) 930 time_units_ = time_units__tmp 931 ENDIF 932 805 933 IF (PRESENT(timeseries_)) THEN 806 934 timeseries__tmp = cxios_is_defined_file_timeseries & … … 821 949 ENDIF 822 950 951 IF (PRESENT(uuid_format_)) THEN 952 uuid_format__tmp = cxios_is_defined_file_uuid_format & 953 (file_hdl%daddr) 954 uuid_format_ = uuid_format__tmp 955 ENDIF 956 957 IF (PRESENT(uuid_name_)) THEN 958 uuid_name__tmp = cxios_is_defined_file_uuid_name & 959 (file_hdl%daddr) 960 uuid_name_ = uuid_name__tmp 961 ENDIF 962 823 963 END SUBROUTINE xios(is_defined_file_attr_hdl_) 824 964 -
XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
r966 r1052 14 14 ( filegroup_id, append, compression_level, convention, cyclic, description, enabled, format & 15 15 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 16 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&17 , t ype )16 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 17 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 18 18 19 19 IMPLICIT NONE … … 44 44 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 45 45 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format 47 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units 46 49 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 47 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 48 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 52 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 53 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 49 54 50 55 CALL xios(get_filegroup_handle) & … … 53 58 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 54 59 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 55 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&56 , t ype )60 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 61 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 57 62 58 63 END SUBROUTINE xios(set_filegroup_attr) … … 61 66 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 62 67 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 63 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&64 , t ype )68 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 69 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 65 70 66 71 IMPLICIT NONE … … 90 95 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter 91 96 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name 97 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format 98 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name 99 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units 92 100 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries 93 101 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix 94 102 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 103 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format 104 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name 95 105 96 106 CALL xios(set_filegroup_attr_hdl_) & 97 107 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 98 108 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 99 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&100 , t ype )109 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 110 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 101 111 102 112 END SUBROUTINE xios(set_filegroup_attr_hdl) … … 106 116 , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 107 117 , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ & 108 , timeseries_, ts_prefix_, type_ ) 118 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 119 , uuid_name_ ) 109 120 110 121 IMPLICIT NONE … … 134 145 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_ 135 146 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_ 147 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_ 148 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_ 149 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_ 136 150 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_ 137 151 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_ 138 152 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 153 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_ 154 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_ 139 155 140 156 IF (PRESENT(append_)) THEN … … 246 262 ENDIF 247 263 264 IF (PRESENT(time_stamp_format_)) THEN 265 CALL cxios_set_filegroup_time_stamp_format & 266 (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) 267 ENDIF 268 269 IF (PRESENT(time_stamp_name_)) THEN 270 CALL cxios_set_filegroup_time_stamp_name & 271 (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) 272 ENDIF 273 274 IF (PRESENT(time_units_)) THEN 275 CALL cxios_set_filegroup_time_units & 276 (filegroup_hdl%daddr, time_units_, len(time_units_)) 277 ENDIF 278 248 279 IF (PRESENT(timeseries_)) THEN 249 280 CALL cxios_set_filegroup_timeseries & … … 261 292 ENDIF 262 293 294 IF (PRESENT(uuid_format_)) THEN 295 CALL cxios_set_filegroup_uuid_format & 296 (filegroup_hdl%daddr, uuid_format_, len(uuid_format_)) 297 ENDIF 298 299 IF (PRESENT(uuid_name_)) THEN 300 CALL cxios_set_filegroup_uuid_name & 301 (filegroup_hdl%daddr, uuid_name_, len(uuid_name_)) 302 ENDIF 303 263 304 END SUBROUTINE xios(set_filegroup_attr_hdl_) 264 305 … … 266 307 ( filegroup_id, append, compression_level, convention, cyclic, description, enabled, format & 267 308 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 268 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&269 , t ype )309 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 310 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 270 311 271 312 IMPLICIT NONE … … 296 337 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 297 338 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 339 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format 340 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name 341 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units 298 342 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 299 343 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 300 344 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 345 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 346 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 301 347 302 348 CALL xios(get_filegroup_handle) & … … 305 351 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 306 352 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 307 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&308 , t ype )353 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 354 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 309 355 310 356 END SUBROUTINE xios(get_filegroup_attr) … … 313 359 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 314 360 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 315 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&316 , t ype )361 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 362 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 317 363 318 364 IMPLICIT NONE … … 342 388 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter 343 389 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name 390 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format 391 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name 392 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units 344 393 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries 345 394 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix 346 395 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 396 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format 397 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name 347 398 348 399 CALL xios(get_filegroup_attr_hdl_) & 349 400 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 350 401 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 351 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&352 , t ype )402 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 403 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 353 404 354 405 END SUBROUTINE xios(get_filegroup_attr_hdl) … … 358 409 , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 359 410 , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ & 360 , timeseries_, ts_prefix_, type_ ) 411 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 412 , uuid_name_ ) 361 413 362 414 IMPLICIT NONE … … 386 438 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_ 387 439 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_ 440 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_ 441 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_ 442 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_ 388 443 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_ 389 444 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_ 390 445 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 446 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_ 447 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_ 391 448 392 449 IF (PRESENT(append_)) THEN … … 498 555 ENDIF 499 556 557 IF (PRESENT(time_stamp_format_)) THEN 558 CALL cxios_get_filegroup_time_stamp_format & 559 (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_)) 560 ENDIF 561 562 IF (PRESENT(time_stamp_name_)) THEN 563 CALL cxios_get_filegroup_time_stamp_name & 564 (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_)) 565 ENDIF 566 567 IF (PRESENT(time_units_)) THEN 568 CALL cxios_get_filegroup_time_units & 569 (filegroup_hdl%daddr, time_units_, len(time_units_)) 570 ENDIF 571 500 572 IF (PRESENT(timeseries_)) THEN 501 573 CALL cxios_get_filegroup_timeseries & … … 513 585 ENDIF 514 586 587 IF (PRESENT(uuid_format_)) THEN 588 CALL cxios_get_filegroup_uuid_format & 589 (filegroup_hdl%daddr, uuid_format_, len(uuid_format_)) 590 ENDIF 591 592 IF (PRESENT(uuid_name_)) THEN 593 CALL cxios_get_filegroup_uuid_name & 594 (filegroup_hdl%daddr, uuid_name_, len(uuid_name_)) 595 ENDIF 596 515 597 END SUBROUTINE xios(get_filegroup_attr_hdl_) 516 598 … … 518 600 ( filegroup_id, append, compression_level, convention, cyclic, description, enabled, format & 519 601 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 520 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&521 , t ype )602 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 603 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 522 604 523 605 IMPLICIT NONE … … 566 648 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 567 649 LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 650 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format 651 LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp 652 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name 653 LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp 654 LOGICAL, OPTIONAL, INTENT(OUT) :: time_units 655 LOGICAL(KIND=C_BOOL) :: time_units_tmp 568 656 LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 569 657 LOGICAL(KIND=C_BOOL) :: timeseries_tmp … … 572 660 LOGICAL, OPTIONAL, INTENT(OUT) :: type 573 661 LOGICAL(KIND=C_BOOL) :: type_tmp 662 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 663 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 664 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 665 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 574 666 575 667 CALL xios(get_filegroup_handle) & … … 578 670 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 579 671 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 580 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&581 , t ype )672 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 673 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 582 674 583 675 END SUBROUTINE xios(is_defined_filegroup_attr) … … 586 678 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 587 679 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 588 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&589 , t ype )680 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 681 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 590 682 591 683 IMPLICIT NONE … … 633 725 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name 634 726 LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp 727 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format 728 LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp 729 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name 730 LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp 731 LOGICAL, OPTIONAL, INTENT(OUT) :: time_units 732 LOGICAL(KIND=C_BOOL) :: time_units_tmp 635 733 LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries 636 734 LOGICAL(KIND=C_BOOL) :: timeseries_tmp … … 639 737 LOGICAL, OPTIONAL, INTENT(OUT) :: type 640 738 LOGICAL(KIND=C_BOOL) :: type_tmp 739 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format 740 LOGICAL(KIND=C_BOOL) :: uuid_format_tmp 741 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name 742 LOGICAL(KIND=C_BOOL) :: uuid_name_tmp 641 743 642 744 CALL xios(is_defined_filegroup_attr_hdl_) & 643 745 ( filegroup_hdl, append, compression_level, convention, cyclic, description, enabled, format & 644 746 , group_ref, min_digits, mode, name, name_suffix, output_freq, output_level, par_access, record_offset & 645 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time series, ts_prefix&646 , t ype )747 , split_freq, split_freq_format, sync_freq, time_counter, time_counter_name, time_stamp_format & 748 , time_stamp_name, time_units, timeseries, ts_prefix, type, uuid_format, uuid_name ) 647 749 648 750 END SUBROUTINE xios(is_defined_filegroup_attr_hdl) … … 652 754 , group_ref_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_ & 653 755 , record_offset_, split_freq_, split_freq_format_, sync_freq_, time_counter_, time_counter_name_ & 654 , timeseries_, ts_prefix_, type_ ) 756 , time_stamp_format_, time_stamp_name_, time_units_, timeseries_, ts_prefix_, type_, uuid_format_ & 757 , uuid_name_ ) 655 758 656 759 IMPLICIT NONE … … 698 801 LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_ 699 802 LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp 803 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_ 804 LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp 805 LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_ 806 LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp 807 LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_ 808 LOGICAL(KIND=C_BOOL) :: time_units__tmp 700 809 LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_ 701 810 LOGICAL(KIND=C_BOOL) :: timeseries__tmp … … 704 813 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 705 814 LOGICAL(KIND=C_BOOL) :: type__tmp 815 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_ 816 LOGICAL(KIND=C_BOOL) :: uuid_format__tmp 817 LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_ 818 LOGICAL(KIND=C_BOOL) :: uuid_name__tmp 706 819 707 820 IF (PRESENT(append_)) THEN … … 831 944 ENDIF 832 945 946 IF (PRESENT(time_stamp_format_)) THEN 947 time_stamp_format__tmp = cxios_is_defined_filegroup_time_stamp_format & 948 (filegroup_hdl%daddr) 949 time_stamp_format_ = time_stamp_format__tmp 950 ENDIF 951 952 IF (PRESENT(time_stamp_name_)) THEN 953 time_stamp_name__tmp = cxios_is_defined_filegroup_time_stamp_name & 954 (filegroup_hdl%daddr) 955 time_stamp_name_ = time_stamp_name__tmp 956 ENDIF 957 958 IF (PRESENT(time_units_)) THEN 959 time_units__tmp = cxios_is_defined_filegroup_time_units & 960 (filegroup_hdl%daddr) 961 time_units_ = time_units__tmp 962 ENDIF 963 833 964 IF (PRESENT(timeseries_)) THEN 834 965 timeseries__tmp = cxios_is_defined_filegroup_timeseries & … … 849 980 ENDIF 850 981 982 IF (PRESENT(uuid_format_)) THEN 983 uuid_format__tmp = cxios_is_defined_filegroup_uuid_format & 984 (filegroup_hdl%daddr) 985 uuid_format_ = uuid_format__tmp 986 ENDIF 987 988 IF (PRESENT(uuid_name_)) THEN 989 uuid_name__tmp = cxios_is_defined_filegroup_uuid_name & 990 (filegroup_hdl%daddr) 991 uuid_name_ = uuid_name__tmp 992 ENDIF 993 851 994 END SUBROUTINE xios(is_defined_filegroup_attr_hdl_) 852 995 -
XIOS/trunk/src/interface/fortran_attr/iscalar_attr.F90
r966 r1052 12 12 13 13 SUBROUTINE xios(set_scalar_attr) & 14 ( scalar_id, long_name, name, scalar_ref, standard_name, unit, value )14 ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value ) 15 15 16 16 IMPLICIT NONE … … 19 19 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 20 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 21 INTEGER , OPTIONAL, INTENT(IN) :: prec 21 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 22 23 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name … … 27 28 (scalar_id,scalar_hdl) 28 29 CALL xios(set_scalar_attr_hdl_) & 29 ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )30 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 30 31 31 32 END SUBROUTINE xios(set_scalar_attr) 32 33 33 34 SUBROUTINE xios(set_scalar_attr_hdl) & 34 ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )35 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 35 36 36 37 IMPLICIT NONE … … 38 39 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 39 40 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 41 INTEGER , OPTIONAL, INTENT(IN) :: prec 40 42 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 41 43 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name … … 44 46 45 47 CALL xios(set_scalar_attr_hdl_) & 46 ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )48 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 47 49 48 50 END SUBROUTINE xios(set_scalar_attr_hdl) 49 51 50 52 SUBROUTINE xios(set_scalar_attr_hdl_) & 51 ( scalar_hdl, long_name_, name_, scalar_ref_, standard_name_, unit_, value_ )53 ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 52 54 53 55 IMPLICIT NONE … … 55 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 56 58 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 59 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 57 60 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_ 58 61 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ … … 70 73 ENDIF 71 74 75 IF (PRESENT(prec_)) THEN 76 CALL cxios_set_scalar_prec & 77 (scalar_hdl%daddr, prec_) 78 ENDIF 79 72 80 IF (PRESENT(scalar_ref_)) THEN 73 81 CALL cxios_set_scalar_scalar_ref & … … 93 101 94 102 SUBROUTINE xios(get_scalar_attr) & 95 ( scalar_id, long_name, name, scalar_ref, standard_name, unit, value )103 ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value ) 96 104 97 105 IMPLICIT NONE … … 100 108 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 101 109 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 110 INTEGER , OPTIONAL, INTENT(OUT) :: prec 102 111 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 103 112 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name … … 108 117 (scalar_id,scalar_hdl) 109 118 CALL xios(get_scalar_attr_hdl_) & 110 ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )119 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 111 120 112 121 END SUBROUTINE xios(get_scalar_attr) 113 122 114 123 SUBROUTINE xios(get_scalar_attr_hdl) & 115 ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )124 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 116 125 117 126 IMPLICIT NONE … … 119 128 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 120 129 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 130 INTEGER , OPTIONAL, INTENT(OUT) :: prec 121 131 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 122 132 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name … … 125 135 126 136 CALL xios(get_scalar_attr_hdl_) & 127 ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )137 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 128 138 129 139 END SUBROUTINE xios(get_scalar_attr_hdl) 130 140 131 141 SUBROUTINE xios(get_scalar_attr_hdl_) & 132 ( scalar_hdl, long_name_, name_, scalar_ref_, standard_name_, unit_, value_ )142 ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 133 143 134 144 IMPLICIT NONE … … 136 146 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 137 147 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 148 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 138 149 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_ 139 150 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ … … 151 162 ENDIF 152 163 164 IF (PRESENT(prec_)) THEN 165 CALL cxios_get_scalar_prec & 166 (scalar_hdl%daddr, prec_) 167 ENDIF 168 153 169 IF (PRESENT(scalar_ref_)) THEN 154 170 CALL cxios_get_scalar_scalar_ref & … … 174 190 175 191 SUBROUTINE xios(is_defined_scalar_attr) & 176 ( scalar_id, long_name, name, scalar_ref, standard_name, unit, value )192 ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value ) 177 193 178 194 IMPLICIT NONE … … 183 199 LOGICAL, OPTIONAL, INTENT(OUT) :: name 184 200 LOGICAL(KIND=C_BOOL) :: name_tmp 201 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 202 LOGICAL(KIND=C_BOOL) :: prec_tmp 185 203 LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref 186 204 LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp … … 195 213 (scalar_id,scalar_hdl) 196 214 CALL xios(is_defined_scalar_attr_hdl_) & 197 ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )215 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 198 216 199 217 END SUBROUTINE xios(is_defined_scalar_attr) 200 218 201 219 SUBROUTINE xios(is_defined_scalar_attr_hdl) & 202 ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )220 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 203 221 204 222 IMPLICIT NONE … … 208 226 LOGICAL, OPTIONAL, INTENT(OUT) :: name 209 227 LOGICAL(KIND=C_BOOL) :: name_tmp 228 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 229 LOGICAL(KIND=C_BOOL) :: prec_tmp 210 230 LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref 211 231 LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp … … 218 238 219 239 CALL xios(is_defined_scalar_attr_hdl_) & 220 ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value )240 ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 221 241 222 242 END SUBROUTINE xios(is_defined_scalar_attr_hdl) 223 243 224 244 SUBROUTINE xios(is_defined_scalar_attr_hdl_) & 225 ( scalar_hdl, long_name_, name_, scalar_ref_, standard_name_, unit_, value_ )245 ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 226 246 227 247 IMPLICIT NONE … … 231 251 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 232 252 LOGICAL(KIND=C_BOOL) :: name__tmp 253 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 254 LOGICAL(KIND=C_BOOL) :: prec__tmp 233 255 LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_ 234 256 LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp … … 252 274 ENDIF 253 275 276 IF (PRESENT(prec_)) THEN 277 prec__tmp = cxios_is_defined_scalar_prec & 278 (scalar_hdl%daddr) 279 prec_ = prec__tmp 280 ENDIF 281 254 282 IF (PRESENT(scalar_ref_)) THEN 255 283 scalar_ref__tmp = cxios_is_defined_scalar_scalar_ref & -
XIOS/trunk/src/interface/fortran_attr/iscalargroup_attr.F90
r966 r1052 12 12 13 13 SUBROUTINE xios(set_scalargroup_attr) & 14 ( scalargroup_id, group_ref, long_name, name, scalar_ref, standard_name, unit, value )14 ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 15 15 16 16 IMPLICIT NONE … … 20 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 21 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 22 INTEGER , OPTIONAL, INTENT(IN) :: prec 22 23 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 23 24 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name … … 28 29 (scalargroup_id,scalargroup_hdl) 29 30 CALL xios(set_scalargroup_attr_hdl_) & 30 ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 31 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value & 32 ) 31 33 32 34 END SUBROUTINE xios(set_scalargroup_attr) 33 35 34 36 SUBROUTINE xios(set_scalargroup_attr_hdl) & 35 ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 37 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value & 38 ) 36 39 37 40 IMPLICIT NONE … … 40 43 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 41 44 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 45 INTEGER , OPTIONAL, INTENT(IN) :: prec 42 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 43 47 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name … … 46 50 47 51 CALL xios(set_scalargroup_attr_hdl_) & 48 ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 52 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value & 53 ) 49 54 50 55 END SUBROUTINE xios(set_scalargroup_attr_hdl) 51 56 52 57 SUBROUTINE xios(set_scalargroup_attr_hdl_) & 53 ( scalargroup_hdl, group_ref_, long_name_, name_, scalar_ref_, standard_name_, unit_, value_ &54 )58 ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_ & 59 , value_ ) 55 60 56 61 IMPLICIT NONE … … 59 64 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 60 65 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 66 INTEGER , OPTIONAL, INTENT(IN) :: prec_ 61 67 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_ 62 68 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ … … 79 85 ENDIF 80 86 87 IF (PRESENT(prec_)) THEN 88 CALL cxios_set_scalargroup_prec & 89 (scalargroup_hdl%daddr, prec_) 90 ENDIF 91 81 92 IF (PRESENT(scalar_ref_)) THEN 82 93 CALL cxios_set_scalargroup_scalar_ref & … … 102 113 103 114 SUBROUTINE xios(get_scalargroup_attr) & 104 ( scalargroup_id, group_ref, long_name, name, scalar_ref, standard_name, unit, value )115 ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 105 116 106 117 IMPLICIT NONE … … 110 121 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 111 122 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 123 INTEGER , OPTIONAL, INTENT(OUT) :: prec 112 124 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 113 125 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name … … 118 130 (scalargroup_id,scalargroup_hdl) 119 131 CALL xios(get_scalargroup_attr_hdl_) & 120 ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 132 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value & 133 ) 121 134 122 135 END SUBROUTINE xios(get_scalargroup_attr) 123 136 124 137 SUBROUTINE xios(get_scalargroup_attr_hdl) & 125 ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 138 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value & 139 ) 126 140 127 141 IMPLICIT NONE … … 130 144 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 131 145 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 146 INTEGER , OPTIONAL, INTENT(OUT) :: prec 132 147 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 133 148 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name … … 136 151 137 152 CALL xios(get_scalargroup_attr_hdl_) & 138 ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 153 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value & 154 ) 139 155 140 156 END SUBROUTINE xios(get_scalargroup_attr_hdl) 141 157 142 158 SUBROUTINE xios(get_scalargroup_attr_hdl_) & 143 ( scalargroup_hdl, group_ref_, long_name_, name_, scalar_ref_, standard_name_, unit_, value_ &144 )159 ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_ & 160 , value_ ) 145 161 146 162 IMPLICIT NONE … … 149 165 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 150 166 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 167 INTEGER , OPTIONAL, INTENT(OUT) :: prec_ 151 168 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_ 152 169 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ … … 169 186 ENDIF 170 187 188 IF (PRESENT(prec_)) THEN 189 CALL cxios_get_scalargroup_prec & 190 (scalargroup_hdl%daddr, prec_) 191 ENDIF 192 171 193 IF (PRESENT(scalar_ref_)) THEN 172 194 CALL cxios_get_scalargroup_scalar_ref & … … 192 214 193 215 SUBROUTINE xios(is_defined_scalargroup_attr) & 194 ( scalargroup_id, group_ref, long_name, name, scalar_ref, standard_name, unit, value )216 ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 195 217 196 218 IMPLICIT NONE … … 203 225 LOGICAL, OPTIONAL, INTENT(OUT) :: name 204 226 LOGICAL(KIND=C_BOOL) :: name_tmp 227 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 228 LOGICAL(KIND=C_BOOL) :: prec_tmp 205 229 LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref 206 230 LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp … … 215 239 (scalargroup_id,scalargroup_hdl) 216 240 CALL xios(is_defined_scalargroup_attr_hdl_) & 217 ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 241 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value & 242 ) 218 243 219 244 END SUBROUTINE xios(is_defined_scalargroup_attr) 220 245 221 246 SUBROUTINE xios(is_defined_scalargroup_attr_hdl) & 222 ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 247 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value & 248 ) 223 249 224 250 IMPLICIT NONE … … 230 256 LOGICAL, OPTIONAL, INTENT(OUT) :: name 231 257 LOGICAL(KIND=C_BOOL) :: name_tmp 258 LOGICAL, OPTIONAL, INTENT(OUT) :: prec 259 LOGICAL(KIND=C_BOOL) :: prec_tmp 232 260 LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref 233 261 LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp … … 240 268 241 269 CALL xios(is_defined_scalargroup_attr_hdl_) & 242 ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 270 ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value & 271 ) 243 272 244 273 END SUBROUTINE xios(is_defined_scalargroup_attr_hdl) 245 274 246 275 SUBROUTINE xios(is_defined_scalargroup_attr_hdl_) & 247 ( scalargroup_hdl, group_ref_, long_name_, name_, scalar_ref_, standard_name_, unit_, value_ &248 )276 ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_ & 277 , value_ ) 249 278 250 279 IMPLICIT NONE … … 256 285 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 257 286 LOGICAL(KIND=C_BOOL) :: name__tmp 287 LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 288 LOGICAL(KIND=C_BOOL) :: prec__tmp 258 289 LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_ 259 290 LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp … … 283 314 ENDIF 284 315 316 IF (PRESENT(prec_)) THEN 317 prec__tmp = cxios_is_defined_scalargroup_prec & 318 (scalargroup_hdl%daddr) 319 prec_ = prec__tmp 320 ENDIF 321 285 322 IF (PRESENT(scalar_ref_)) THEN 286 323 scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref & -
XIOS/trunk/src/interface/fortran_attr/scalar_interface_attr.F90
r891 r1052 50 50 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 51 51 END FUNCTION cxios_is_defined_scalar_name 52 53 54 SUBROUTINE cxios_set_scalar_prec(scalar_hdl, prec) BIND(C) 55 USE ISO_C_BINDING 56 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 57 INTEGER (KIND=C_INT) , VALUE :: prec 58 END SUBROUTINE cxios_set_scalar_prec 59 60 SUBROUTINE cxios_get_scalar_prec(scalar_hdl, prec) BIND(C) 61 USE ISO_C_BINDING 62 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 63 INTEGER (KIND=C_INT) :: prec 64 END SUBROUTINE cxios_get_scalar_prec 65 66 FUNCTION cxios_is_defined_scalar_prec(scalar_hdl) BIND(C) 67 USE ISO_C_BINDING 68 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_prec 69 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 70 END FUNCTION cxios_is_defined_scalar_prec 52 71 53 72 -
XIOS/trunk/src/interface/fortran_attr/scalargroup_interface_attr.F90
r891 r1052 71 71 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 72 72 END FUNCTION cxios_is_defined_scalargroup_name 73 74 75 SUBROUTINE cxios_set_scalargroup_prec(scalargroup_hdl, prec) BIND(C) 76 USE ISO_C_BINDING 77 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 78 INTEGER (KIND=C_INT) , VALUE :: prec 79 END SUBROUTINE cxios_set_scalargroup_prec 80 81 SUBROUTINE cxios_get_scalargroup_prec(scalargroup_hdl, prec) BIND(C) 82 USE ISO_C_BINDING 83 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 84 INTEGER (KIND=C_INT) :: prec 85 END SUBROUTINE cxios_get_scalargroup_prec 86 87 FUNCTION cxios_is_defined_scalargroup_prec(scalargroup_hdl) BIND(C) 88 USE ISO_C_BINDING 89 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_prec 90 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 91 END FUNCTION cxios_is_defined_scalargroup_prec 73 92 74 93
Note: See TracChangeset
for help on using the changeset viewer.