Ignore:
Timestamp:
01/14/19 11:42:58 (5 years ago)
Author:
oabramkina
Message:

Backporting r1626 to dev before merging it to trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_olga/src/interface/fortran_attr/domaingroup_interface_attr.F90

    r1492 r1636  
    803803 
    804804 
     805    SUBROUTINE cxios_set_domaingroup_radius(domaingroup_hdl, radius) BIND(C) 
     806      USE ISO_C_BINDING 
     807      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     808      REAL (KIND=C_DOUBLE)      , VALUE :: radius 
     809    END SUBROUTINE cxios_set_domaingroup_radius 
     810 
     811    SUBROUTINE cxios_get_domaingroup_radius(domaingroup_hdl, radius) BIND(C) 
     812      USE ISO_C_BINDING 
     813      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     814      REAL (KIND=C_DOUBLE)             :: radius 
     815    END SUBROUTINE cxios_get_domaingroup_radius 
     816 
     817    FUNCTION cxios_is_defined_domaingroup_radius(domaingroup_hdl) BIND(C) 
     818      USE ISO_C_BINDING 
     819      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_radius 
     820      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     821    END FUNCTION cxios_is_defined_domaingroup_radius 
     822 
     823 
    805824    SUBROUTINE cxios_set_domaingroup_standard_name(domaingroup_hdl, standard_name, standard_name_size) BIND(C) 
    806825      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.