- Timestamp:
- 06/10/15 10:39:11 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/branchs/xios-1.0/src/interface/fortran_attr/domain_interface_attr.f90
r501 r611 9 9 10 10 11 SUBROUTINE cxios_set_domain_area(domain_hdl, area, extent1, extent2) BIND(C) 12 USE ISO_C_BINDING 13 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 14 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area 15 INTEGER (kind = C_INT), VALUE :: extent1 16 INTEGER (kind = C_INT), VALUE :: extent2 17 END SUBROUTINE cxios_set_domain_area 18 19 SUBROUTINE cxios_get_domain_area(domain_hdl, area, extent1, extent2) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 22 REAL (KIND=C_DOUBLE) , DIMENSION(*) :: area 23 INTEGER (kind = C_INT), VALUE :: extent1 24 INTEGER (kind = C_INT), VALUE :: extent2 25 END SUBROUTINE cxios_get_domain_area 26 27 FUNCTION cxios_is_defined_domain_area(domain_hdl ) BIND(C) 28 USE ISO_C_BINDING 29 LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_area 30 INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 31 END FUNCTION cxios_is_defined_domain_area 32 33 11 34 SUBROUTINE cxios_set_domain_bounds_lat(domain_hdl, bounds_lat, extent1, extent2) BIND(C) 12 35 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.