Changeset 934 for XIOS/trunk/src/interface/fortran/ixml_tree.F90
- Timestamp:
- 09/22/16 10:58:44 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.