source: XMLIO_V2/dev/common/src/xmlio/fortran/gridgroup_interface.f90 @ 286

Last change on this file since 286 was 286, checked in by ymipsl, 13 years ago

reprise en main de la version de H. Ozdoba. Correction de différentes erreurs de conception et bug.
Version NEMO operationnel en client/server, interoperabilita avec OASIS, reconstition de fichiers via netcdf4/HDF5

YM
File size: 2.3 KB
Line 
1MODULE GRIDGROUP_INTERFACE
2   USE, INTRINSIC :: ISO_C_BINDING
3     
4   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
5     
6      SUBROUTINE cxios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C)
7         USE ISO_C_BINDING
8         INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl
9         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: name
10         INTEGER (kind = C_INT)     , VALUE        :: name_size
11      END SUBROUTINE cxios_set_gridgroup_name
12
13      SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C)
14         USE ISO_C_BINDING
15         INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl
16         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: description
17         INTEGER (kind = C_INT)     , VALUE        :: description_size
18      END SUBROUTINE cxios_set_gridgroup_description
19
20      SUBROUTINE cxios_set_gridgroup_domain_ref(gridgroup_hdl, domain_ref, domain_ref_size) BIND(C)
21         USE ISO_C_BINDING
22         INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl
23         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: domain_ref
24         INTEGER (kind = C_INT)     , VALUE        :: domain_ref_size
25      END SUBROUTINE cxios_set_gridgroup_domain_ref
26
27      SUBROUTINE cxios_set_gridgroup_axis_ref(gridgroup_hdl, axis_ref, axis_ref_size) BIND(C)
28         USE ISO_C_BINDING
29         INTEGER  (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl
30         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
31         INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
32      END SUBROUTINE cxios_set_gridgroup_axis_ref
33     
34      SUBROUTINE cxios_domaingroup_handle_create(ret, idt, idt_size) BIND(C)
35         USE ISO_C_BINDING
36         INTEGER  (kind = C_INTPTR_T)               :: ret
37         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
38         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
39      END SUBROUTINE cxios_domaingroup_handle_create
40
41      SUBROUTINE cxios_gridgroup_valid_id(ret, idt, idt_size) BIND(C)
42         USE ISO_C_BINDING
43         LOGICAL  (kind = C_BOOL)                   :: ret
44         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
45         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
46      END SUBROUTINE cxios_gridgroup_valid_id
47
48   END INTERFACE
49     
50END MODULE GRIDGROUP_INTERFACE
Note: See TracBrowser for help on using the repository browser.