Changeset 934 for XIOS/trunk/src/interface/fortran
- Timestamp:
- 09/22/16 10:58:44 (8 years ago)
- Location:
- XIOS/trunk/src/interface/fortran
- Files:
-
- 2 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/ixios.F90
r891 r934 106 106 xios(is_defined_reduce_axis_to_scalar_attr) 107 107 108 USE icompute_connectivity_domain, ONLY : txios(compute_connectivity_domain), xios(is_valid_compute_connectivity_domain) 109 110 USE icompute_connectivity_domain_attr, ONLY : xios(set_compute_connectivity_domain_attr), & 111 xios(get_compute_connectivity_domain_attr), & 112 xios(is_defined_compute_connectivity_domain_attr) 113 108 114 USE XIOS_INTERFACES, ONLY : xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), xios(add_child), & 109 115 xios(send_field), xios(recv_field), xios(field_is_active), xios(getVar), xios(setVar) -
XIOS/trunk/src/interface/fortran/ixios_interfaces.F90
r932 r934 88 88 xios(get_generate_rectilinear_domain_attr_hdl), & 89 89 xios(is_defined_generate_rectilinear_domain_attr_hdl) 90 USE icompute_connectivity_domain, ONLY : xios(get_compute_connectivity_domain_handle) 91 92 USE icompute_connectivity_domain_attr, ONLY : xios(set_compute_connectivity_domain_attr_hdl), & 93 xios(get_compute_connectivity_domain_attr_hdl), & 94 xios(is_defined_compute_connectivity_domain_attr_hdl) 90 95 91 96 USE ireduce_axis_to_scalar, ONLY : xios(get_reduce_axis_to_scalar_handle) … … 103 108 xios(add_generatedomaintodomain), xios(add_zoomaxistoaxis), & 104 109 xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis), xios(add_scalar), & 105 xios(add_scalargroup), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar) 110 xios(add_scalargroup), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar), & 111 xios(add_computeconnectivitydomaintodomain) 106 112 107 113 PRIVATE … … 116 122 xios(set_interpolate_domain_attr_hdl), xios(set_inverse_axis_attr_hdl), & 117 123 xios(set_generate_rectilinear_domain_attr_hdl), xios(set_scalar_attr_hdl), & 118 xios(set_scalargroup_attr_hdl), xios(set_reduce_axis_to_scalar_attr_hdl) 124 xios(set_scalargroup_attr_hdl), xios(set_reduce_axis_to_scalar_attr_hdl), & 125 xios(set_compute_connectivity_domain_attr_hdl) 119 126 END INTERFACE xios(set_attr) 120 127 … … 128 135 xios(get_interpolate_domain_attr_hdl), xios(get_inverse_axis_attr_hdl), & 129 136 xios(get_generate_rectilinear_domain_attr_hdl), xios(get_scalar_attr_hdl), & 130 xios(get_scalargroup_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl) 137 xios(get_scalargroup_attr_hdl), xios(get_reduce_axis_to_scalar_attr_hdl), & 138 xios(get_compute_connectivity_domain_attr_hdl) 131 139 END INTERFACE xios(get_attr) 132 140 … … 141 149 xios(is_defined_inverse_axis_attr_hdl), xios(is_defined_generate_rectilinear_domain_attr_hdl), & 142 150 xios(is_defined_scalar_attr_hdl), xios(is_defined_scalargroup_attr_hdl), & 143 xios(is_defined_reduce_axis_to_scalar_attr_hdl) 151 xios(is_defined_reduce_axis_to_scalar_attr_hdl), xios(is_defined_compute_connectivity_domain_attr_hdl) 144 152 END INTERFACE xios(is_defined_attr) 145 153 … … 153 161 xios(get_interpolate_domain_handle), xios(get_inverse_axis_handle), & 154 162 xios(get_generate_rectilinear_domain_handle), xios(get_scalar_handle), & 155 xios(get_scalargroup_handle), xios(get_reduce_axis_to_scalar_handle) 163 xios(get_scalargroup_handle), xios(get_reduce_axis_to_scalar_handle), & 164 xios(get_compute_connectivity_domain_handle) 156 165 END INTERFACE xios(get_handle) 157 166 … … 164 173 xios(add_interpolatedomaintodomain), xios(add_generatedomaintodomain), & 165 174 xios(add_zoomaxistoaxis), xios(add_interpolateaxistoaxis), xios(add_inverseaxistoaxis), & 166 xios(add_scalar), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar) 175 xios(add_scalar), xios(add_scalartogrid), xios(add_reduceaxistoscalartoscalar), & 176 xios(add_computeconnectivitydomaintodomain) 167 177 END INTERFACE xios(add_child) 168 178 -
XIOS/trunk/src/interface/fortran/ixml_tree.F90
r903 r934 13 13 USE IINTERPOLATE_DOMAIN 14 14 USE IGENERATE_RECTILINEAR_DOMAIN 15 USE ICOMPUTE_CONNECTIVITY_DOMAIN 15 16 USE IZOOM_AXIS 16 17 USE IINTERPOLATE_AXIS … … 214 215 END SUBROUTINE cxios_xml_tree_add_generatedomaintodomain 215 216 217 SUBROUTINE cxios_xml_tree_add_computeconnectivitydomaintodomain(parent_, child_, child_id, child_id_size) BIND(C) 218 USE ISO_C_BINDING 219 INTEGER (kind = C_INTPTR_T), VALUE :: parent_ 220 INTEGER (kind = C_INTPTR_T) :: child_ 221 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: child_id 222 INTEGER (kind = C_INT) , VALUE :: child_id_size 223 END SUBROUTINE cxios_xml_tree_add_computeconnectivitydomaintodomain 224 216 225 SUBROUTINE cxios_xml_tree_add_zoomaxistoaxis(parent_, child_, child_id, child_id_size) BIND(C) 217 226 USE ISO_C_BINDING … … 582 591 END SUBROUTINE xios(add_generatedomaintodomain) 583 592 593 SUBROUTINE xios(add_computeconnectivitydomaintodomain)(parent_hdl, child_hdl, child_id) 594 TYPE(txios(domain)) , INTENT(IN) :: parent_hdl 595 TYPE(txios(compute_connectivity_domain)) , INTENT(OUT):: child_hdl 596 CHARACTER(len = *), OPTIONAL , INTENT(IN) :: child_id 597 598 IF (PRESENT(child_id)) THEN 599 CALL cxios_xml_tree_add_computeconnectivitydomaintodomain(parent_hdl%daddr, child_hdl%daddr, child_id, len(child_id)) 600 ELSE 601 CALL cxios_xml_tree_add_computeconnectivitydomaintodomain(parent_hdl%daddr, child_hdl%daddr, "NONE", -1) 602 END IF 603 604 END SUBROUTINE xios(add_computeconnectivitydomaintodomain) 605 584 606 SUBROUTINE xios(add_zoomaxistoaxis)(parent_hdl, child_hdl, child_id) 585 607 TYPE(txios(axis)) , INTENT(IN) :: parent_hdl
Note: See TracChangeset
for help on using the changeset viewer.