- Timestamp:
- 06/06/17 17:58:16 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/iexpand_domain_attr.F90
r981 r1158 12 12 13 13 SUBROUTINE xios(set_expand_domain_attr) & 14 ( expand_domain_id, order, type )14 ( expand_domain_id, i_periodic, j_periodic, order, type ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(expand_domain)) :: expand_domain_hdl 18 18 CHARACTER(LEN=*), INTENT(IN) ::expand_domain_id 19 LOGICAL , OPTIONAL, INTENT(IN) :: i_periodic 20 LOGICAL (KIND=C_BOOL) :: i_periodic_tmp 21 LOGICAL , OPTIONAL, INTENT(IN) :: j_periodic 22 LOGICAL (KIND=C_BOOL) :: j_periodic_tmp 19 23 INTEGER , OPTIONAL, INTENT(IN) :: order 20 24 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 23 27 (expand_domain_id,expand_domain_hdl) 24 28 CALL xios(set_expand_domain_attr_hdl_) & 25 ( expand_domain_hdl, order, type )29 ( expand_domain_hdl, i_periodic, j_periodic, order, type ) 26 30 27 31 END SUBROUTINE xios(set_expand_domain_attr) 28 32 29 33 SUBROUTINE xios(set_expand_domain_attr_hdl) & 30 ( expand_domain_hdl, order, type ) 31 32 IMPLICIT NONE 33 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 34 ( expand_domain_hdl, i_periodic, j_periodic, order, type ) 35 36 IMPLICIT NONE 37 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 38 LOGICAL , OPTIONAL, INTENT(IN) :: i_periodic 39 LOGICAL (KIND=C_BOOL) :: i_periodic_tmp 40 LOGICAL , OPTIONAL, INTENT(IN) :: j_periodic 41 LOGICAL (KIND=C_BOOL) :: j_periodic_tmp 34 42 INTEGER , OPTIONAL, INTENT(IN) :: order 35 43 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 36 44 37 45 CALL xios(set_expand_domain_attr_hdl_) & 38 ( expand_domain_hdl, order, type )46 ( expand_domain_hdl, i_periodic, j_periodic, order, type ) 39 47 40 48 END SUBROUTINE xios(set_expand_domain_attr_hdl) 41 49 42 50 SUBROUTINE xios(set_expand_domain_attr_hdl_) & 43 ( expand_domain_hdl, order_, type_ ) 44 45 IMPLICIT NONE 46 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 51 ( expand_domain_hdl, i_periodic_, j_periodic_, order_, type_ ) 52 53 IMPLICIT NONE 54 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 55 LOGICAL , OPTIONAL, INTENT(IN) :: i_periodic_ 56 LOGICAL (KIND=C_BOOL) :: i_periodic__tmp 57 LOGICAL , OPTIONAL, INTENT(IN) :: j_periodic_ 58 LOGICAL (KIND=C_BOOL) :: j_periodic__tmp 47 59 INTEGER , OPTIONAL, INTENT(IN) :: order_ 48 60 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 61 62 IF (PRESENT(i_periodic_)) THEN 63 i_periodic__tmp = i_periodic_ 64 CALL cxios_set_expand_domain_i_periodic & 65 (expand_domain_hdl%daddr, i_periodic__tmp) 66 ENDIF 67 68 IF (PRESENT(j_periodic_)) THEN 69 j_periodic__tmp = j_periodic_ 70 CALL cxios_set_expand_domain_j_periodic & 71 (expand_domain_hdl%daddr, j_periodic__tmp) 72 ENDIF 49 73 50 74 IF (PRESENT(order_)) THEN … … 61 85 62 86 SUBROUTINE xios(get_expand_domain_attr) & 63 ( expand_domain_id, order, type )87 ( expand_domain_id, i_periodic, j_periodic, order, type ) 64 88 65 89 IMPLICIT NONE 66 90 TYPE(txios(expand_domain)) :: expand_domain_hdl 67 91 CHARACTER(LEN=*), INTENT(IN) ::expand_domain_id 92 LOGICAL , OPTIONAL, INTENT(OUT) :: i_periodic 93 LOGICAL (KIND=C_BOOL) :: i_periodic_tmp 94 LOGICAL , OPTIONAL, INTENT(OUT) :: j_periodic 95 LOGICAL (KIND=C_BOOL) :: j_periodic_tmp 68 96 INTEGER , OPTIONAL, INTENT(OUT) :: order 69 97 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 72 100 (expand_domain_id,expand_domain_hdl) 73 101 CALL xios(get_expand_domain_attr_hdl_) & 74 ( expand_domain_hdl, order, type )102 ( expand_domain_hdl, i_periodic, j_periodic, order, type ) 75 103 76 104 END SUBROUTINE xios(get_expand_domain_attr) 77 105 78 106 SUBROUTINE xios(get_expand_domain_attr_hdl) & 79 ( expand_domain_hdl, order, type ) 80 81 IMPLICIT NONE 82 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 107 ( expand_domain_hdl, i_periodic, j_periodic, order, type ) 108 109 IMPLICIT NONE 110 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 111 LOGICAL , OPTIONAL, INTENT(OUT) :: i_periodic 112 LOGICAL (KIND=C_BOOL) :: i_periodic_tmp 113 LOGICAL , OPTIONAL, INTENT(OUT) :: j_periodic 114 LOGICAL (KIND=C_BOOL) :: j_periodic_tmp 83 115 INTEGER , OPTIONAL, INTENT(OUT) :: order 84 116 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 85 117 86 118 CALL xios(get_expand_domain_attr_hdl_) & 87 ( expand_domain_hdl, order, type )119 ( expand_domain_hdl, i_periodic, j_periodic, order, type ) 88 120 89 121 END SUBROUTINE xios(get_expand_domain_attr_hdl) 90 122 91 123 SUBROUTINE xios(get_expand_domain_attr_hdl_) & 92 ( expand_domain_hdl, order_, type_ ) 93 94 IMPLICIT NONE 95 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 124 ( expand_domain_hdl, i_periodic_, j_periodic_, order_, type_ ) 125 126 IMPLICIT NONE 127 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 128 LOGICAL , OPTIONAL, INTENT(OUT) :: i_periodic_ 129 LOGICAL (KIND=C_BOOL) :: i_periodic__tmp 130 LOGICAL , OPTIONAL, INTENT(OUT) :: j_periodic_ 131 LOGICAL (KIND=C_BOOL) :: j_periodic__tmp 96 132 INTEGER , OPTIONAL, INTENT(OUT) :: order_ 97 133 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 134 135 IF (PRESENT(i_periodic_)) THEN 136 CALL cxios_get_expand_domain_i_periodic & 137 (expand_domain_hdl%daddr, i_periodic__tmp) 138 i_periodic_ = i_periodic__tmp 139 ENDIF 140 141 IF (PRESENT(j_periodic_)) THEN 142 CALL cxios_get_expand_domain_j_periodic & 143 (expand_domain_hdl%daddr, j_periodic__tmp) 144 j_periodic_ = j_periodic__tmp 145 ENDIF 98 146 99 147 IF (PRESENT(order_)) THEN … … 110 158 111 159 SUBROUTINE xios(is_defined_expand_domain_attr) & 112 ( expand_domain_id, order, type )160 ( expand_domain_id, i_periodic, j_periodic, order, type ) 113 161 114 162 IMPLICIT NONE 115 163 TYPE(txios(expand_domain)) :: expand_domain_hdl 116 164 CHARACTER(LEN=*), INTENT(IN) ::expand_domain_id 165 LOGICAL, OPTIONAL, INTENT(OUT) :: i_periodic 166 LOGICAL(KIND=C_BOOL) :: i_periodic_tmp 167 LOGICAL, OPTIONAL, INTENT(OUT) :: j_periodic 168 LOGICAL(KIND=C_BOOL) :: j_periodic_tmp 117 169 LOGICAL, OPTIONAL, INTENT(OUT) :: order 118 170 LOGICAL(KIND=C_BOOL) :: order_tmp … … 123 175 (expand_domain_id,expand_domain_hdl) 124 176 CALL xios(is_defined_expand_domain_attr_hdl_) & 125 ( expand_domain_hdl, order, type )177 ( expand_domain_hdl, i_periodic, j_periodic, order, type ) 126 178 127 179 END SUBROUTINE xios(is_defined_expand_domain_attr) 128 180 129 181 SUBROUTINE xios(is_defined_expand_domain_attr_hdl) & 130 ( expand_domain_hdl, order, type ) 131 132 IMPLICIT NONE 133 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 182 ( expand_domain_hdl, i_periodic, j_periodic, order, type ) 183 184 IMPLICIT NONE 185 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 186 LOGICAL, OPTIONAL, INTENT(OUT) :: i_periodic 187 LOGICAL(KIND=C_BOOL) :: i_periodic_tmp 188 LOGICAL, OPTIONAL, INTENT(OUT) :: j_periodic 189 LOGICAL(KIND=C_BOOL) :: j_periodic_tmp 134 190 LOGICAL, OPTIONAL, INTENT(OUT) :: order 135 191 LOGICAL(KIND=C_BOOL) :: order_tmp … … 138 194 139 195 CALL xios(is_defined_expand_domain_attr_hdl_) & 140 ( expand_domain_hdl, order, type )196 ( expand_domain_hdl, i_periodic, j_periodic, order, type ) 141 197 142 198 END SUBROUTINE xios(is_defined_expand_domain_attr_hdl) 143 199 144 200 SUBROUTINE xios(is_defined_expand_domain_attr_hdl_) & 145 ( expand_domain_hdl, order_, type_ ) 146 147 IMPLICIT NONE 148 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 201 ( expand_domain_hdl, i_periodic_, j_periodic_, order_, type_ ) 202 203 IMPLICIT NONE 204 TYPE(txios(expand_domain)) , INTENT(IN) :: expand_domain_hdl 205 LOGICAL, OPTIONAL, INTENT(OUT) :: i_periodic_ 206 LOGICAL(KIND=C_BOOL) :: i_periodic__tmp 207 LOGICAL, OPTIONAL, INTENT(OUT) :: j_periodic_ 208 LOGICAL(KIND=C_BOOL) :: j_periodic__tmp 149 209 LOGICAL, OPTIONAL, INTENT(OUT) :: order_ 150 210 LOGICAL(KIND=C_BOOL) :: order__tmp … … 152 212 LOGICAL(KIND=C_BOOL) :: type__tmp 153 213 214 IF (PRESENT(i_periodic_)) THEN 215 i_periodic__tmp = cxios_is_defined_expand_domain_i_periodic & 216 (expand_domain_hdl%daddr) 217 i_periodic_ = i_periodic__tmp 218 ENDIF 219 220 IF (PRESENT(j_periodic_)) THEN 221 j_periodic__tmp = cxios_is_defined_expand_domain_j_periodic & 222 (expand_domain_hdl%daddr) 223 j_periodic_ = j_periodic__tmp 224 ENDIF 225 154 226 IF (PRESENT(order_)) THEN 155 227 order__tmp = cxios_is_defined_expand_domain_order &
Note: See TracChangeset
for help on using the changeset viewer.