source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/expand_domain_interface_attr.F90 @ 1205

Last change on this file since 1205 was 1078, checked in by mhnguyen, 7 years ago

Adding rectilinear and curvilinear domain for expand_domain transformation
-) Rectilinear/curvilinear is expanded not only locally but also globally, its global size ni_glo, nj_glo become ni_glo+2 and nj_glo+2
-) Two attributes i_periodic, j_periodic are only used for rectilinear/curvilinear to process priodic condition

+) Do some minor modification

Test
+) Add test_connectivity_expand
+) On Curie
+) Work (but need more real tests)

File size: 3.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE expand_domain_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_expand_domain_i_periodic(expand_domain_hdl, i_periodic) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
15      LOGICAL (KIND=C_BOOL)      , VALUE :: i_periodic
16    END SUBROUTINE cxios_set_expand_domain_i_periodic
17
18    SUBROUTINE cxios_get_expand_domain_i_periodic(expand_domain_hdl, i_periodic) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
21      LOGICAL (KIND=C_BOOL)             :: i_periodic
22    END SUBROUTINE cxios_get_expand_domain_i_periodic
23
24    FUNCTION cxios_is_defined_expand_domain_i_periodic(expand_domain_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_expand_domain_i_periodic
27      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
28    END FUNCTION cxios_is_defined_expand_domain_i_periodic
29
30
31    SUBROUTINE cxios_set_expand_domain_j_periodic(expand_domain_hdl, j_periodic) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
34      LOGICAL (KIND=C_BOOL)      , VALUE :: j_periodic
35    END SUBROUTINE cxios_set_expand_domain_j_periodic
36
37    SUBROUTINE cxios_get_expand_domain_j_periodic(expand_domain_hdl, j_periodic) BIND(C)
38      USE ISO_C_BINDING
39      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
40      LOGICAL (KIND=C_BOOL)             :: j_periodic
41    END SUBROUTINE cxios_get_expand_domain_j_periodic
42
43    FUNCTION cxios_is_defined_expand_domain_j_periodic(expand_domain_hdl) BIND(C)
44      USE ISO_C_BINDING
45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_expand_domain_j_periodic
46      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
47    END FUNCTION cxios_is_defined_expand_domain_j_periodic
48
49
50    SUBROUTINE cxios_set_expand_domain_order(expand_domain_hdl, order) BIND(C)
51      USE ISO_C_BINDING
52      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
53      INTEGER (KIND=C_INT)      , VALUE :: order
54    END SUBROUTINE cxios_set_expand_domain_order
55
56    SUBROUTINE cxios_get_expand_domain_order(expand_domain_hdl, order) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
59      INTEGER (KIND=C_INT)             :: order
60    END SUBROUTINE cxios_get_expand_domain_order
61
62    FUNCTION cxios_is_defined_expand_domain_order(expand_domain_hdl) BIND(C)
63      USE ISO_C_BINDING
64      LOGICAL(kind=C_BOOL) :: cxios_is_defined_expand_domain_order
65      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
66    END FUNCTION cxios_is_defined_expand_domain_order
67
68
69    SUBROUTINE cxios_set_expand_domain_type(expand_domain_hdl, type, type_size) BIND(C)
70      USE ISO_C_BINDING
71      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
72      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
73      INTEGER  (kind = C_INT)     , VALUE        :: type_size
74    END SUBROUTINE cxios_set_expand_domain_type
75
76    SUBROUTINE cxios_get_expand_domain_type(expand_domain_hdl, type, type_size) BIND(C)
77      USE ISO_C_BINDING
78      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
79      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
80      INTEGER  (kind = C_INT)     , VALUE        :: type_size
81    END SUBROUTINE cxios_get_expand_domain_type
82
83    FUNCTION cxios_is_defined_expand_domain_type(expand_domain_hdl) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_expand_domain_type
86      INTEGER (kind = C_INTPTR_T), VALUE :: expand_domain_hdl
87    END FUNCTION cxios_is_defined_expand_domain_type
88
89  END INTERFACE
90
91END MODULE expand_domain_interface_attr
Note: See TracBrowser for help on using the repository browser.