Changeset 7650
- Timestamp:
- 2017-02-06T16:24:31+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_5518_xios_definitions/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r5426 r7650 1159 1159 1160 1160 IF ( xios_is_valid_domain (cdid) ) THEN 1161 CALL xios_set_domain_attr ( cdid, ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, jbegin=jbegin, ni=ni, nj=nj, & 1162 & data_dim=data_dim, data_ibegin=data_ibegin, data_ni=data_ni, data_jbegin=data_jbegin, data_nj=data_nj , & 1163 & zoom_ibegin=zoom_ibegin, zoom_jbegin=zoom_jbegin, zoom_ni=zoom_ni, zoom_nj=zoom_nj, & 1164 & lonvalue=lonvalue, latvalue=latvalue, mask=mask, nvertex=nvertex, bounds_lon=bounds_lon, & 1165 & bounds_lat=bounds_lat, area=area ) 1161 IF(PRESENT (ni_glo)) CALL xios_set_domain_attr ( cdid, ni_glo=ni_glo) 1162 IF(PRESENT (nj_glo)) CALL xios_set_domain_attr ( cdid, nj_glo=nj_glo) 1163 IF(PRESENT (ibegin)) CALL xios_set_domain_attr ( cdid, ibegin=ibegin) 1164 IF(PRESENT (jbegin)) CALL xios_set_domain_attr ( cdid, jbegin=jbegin) 1165 IF(PRESENT (ni)) CALL xios_set_domain_attr ( cdid, ni=ni) 1166 IF(PRESENT (nj)) CALL xios_set_domain_attr ( cdid, nj=nj) 1167 IF(PRESENT (data_dim)) CALL xios_set_domain_attr ( cdid, data_dim=data_dim) 1168 IF(PRESENT (data_ibegin)) CALL xios_set_domain_attr ( cdid, data_ibegin=data_ibegin) 1169 IF(PRESENT (data_ni)) CALL xios_set_domain_attr ( cdid, data_ni=data_ni) 1170 IF(PRESENT (data_jbegin)) CALL xios_set_domain_attr ( cdid, data_jbegin=data_jbegin) 1171 IF(PRESENT (data_nj)) CALL xios_set_domain_attr ( cdid, data_nj=data_nj) 1172 IF(PRESENT (zoom_ibegin)) CALL xios_set_domain_attr ( cdid, zoom_ibegin=zoom_ibegin) 1173 IF(PRESENT (zoom_jbegin)) CALL xios_set_domain_attr ( cdid, zoom_jbegin=zoom_jbegin) 1174 IF(PRESENT (zoom_ni)) CALL xios_set_domain_attr ( cdid, zoom_ni=zoom_ni) 1175 IF(PRESENT (zoom_nj)) CALL xios_set_domain_attr ( cdid, zoom_nj=zoom_nj) 1176 IF(PRESENT (lonvalue)) CALL xios_set_domain_attr ( cdid, lonvalue_1D=lonvalue) 1177 IF(PRESENT (latvalue)) CALL xios_set_domain_attr ( cdid, latvalue_1D=latvalue) 1178 IF(PRESENT (mask)) CALL xios_set_domain_attr ( cdid, mask_1D=mask) 1179 IF(PRESENT (nvertex)) CALL xios_set_domain_attr ( cdid, nvertex=nvertex) 1180 IF(PRESENT (bounds_lon)) CALL xios_set_domain_attr ( cdid, bounds_lon_1D=bounds_lon ) 1181 IF(PRESENT (bounds_lat)) CALL xios_set_domain_attr ( cdid, bounds_lat_1D=bounds_lat) 1182 IF(PRESENT (area)) CALL xios_set_domain_attr ( cdid, area=area) 1166 1183 ENDIF 1167 1184 1168 1185 IF ( xios_is_valid_domaingroup(cdid) ) THEN 1169 CALL xios_set_domaingroup_attr( cdid, ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, jbegin=jbegin, ni=ni, nj=nj, & 1170 & data_dim=data_dim, data_ibegin=data_ibegin, data_ni=data_ni, data_jbegin=data_jbegin, data_nj=data_nj , & 1171 & zoom_ibegin=zoom_ibegin, zoom_jbegin=zoom_jbegin, zoom_ni=zoom_ni, zoom_nj=zoom_nj, & 1172 & lonvalue=lonvalue, latvalue=latvalue, mask=mask, nvertex=nvertex, bounds_lon=bounds_lon, & 1173 & bounds_lat=bounds_lat, area=area ) 1186 IF(PRESENT (ni_glo)) CALL xios_set_domaingroup_attr ( cdid, ni_glo=ni_glo) 1187 IF(PRESENT (nj_glo)) CALL xios_set_domaingroup_attr ( cdid, nj_glo=nj_glo) 1188 IF(PRESENT (ibegin)) CALL xios_set_domaingroup_attr ( cdid, ibegin=ibegin) 1189 IF(PRESENT (jbegin)) CALL xios_set_domaingroup_attr ( cdid, jbegin=jbegin) 1190 IF(PRESENT (ni)) CALL xios_set_domaingroup_attr ( cdid, ni=ni) 1191 IF(PRESENT (nj)) CALL xios_set_domaingroup_attr ( cdid, nj=nj) 1192 IF(PRESENT (data_dim)) CALL xios_set_domaingroup_attr ( cdid, data_dim=data_dim) 1193 IF(PRESENT (data_ibegin)) CALL xios_set_domaingroup_attr ( cdid, data_ibegin=data_ibegin) 1194 IF(PRESENT (data_ni)) CALL xios_set_domaingroup_attr ( cdid, data_ni=data_ni) 1195 IF(PRESENT (data_jbegin)) CALL xios_set_domaingroup_attr ( cdid, data_jbegin=data_jbegin) 1196 IF(PRESENT (data_nj)) CALL xios_set_domaingroup_attr ( cdid, data_nj=data_nj) 1197 IF(PRESENT (zoom_ibegin)) CALL xios_set_domaingroup_attr ( cdid, zoom_ibegin=zoom_ibegin) 1198 IF(PRESENT (zoom_jbegin)) CALL xios_set_domaingroup_attr ( cdid, zoom_jbegin=zoom_jbegin) 1199 IF(PRESENT (zoom_ni)) CALL xios_set_domaingroup_attr ( cdid, zoom_ni=zoom_ni) 1200 IF(PRESENT (zoom_nj)) CALL xios_set_domaingroup_attr ( cdid, zoom_nj=zoom_nj) 1201 IF(PRESENT (lonvalue)) CALL xios_set_domaingroup_attr ( cdid, lonvalue_1D=lonvalue) 1202 IF(PRESENT (latvalue)) CALL xios_set_domaingroup_attr ( cdid, latvalue_1D=latvalue) 1203 IF(PRESENT (mask)) CALL xios_set_domaingroup_attr ( cdid, mask_1D=mask) 1204 IF(PRESENT (nvertex)) CALL xios_set_domaingroup_attr ( cdid, nvertex=nvertex) 1205 IF(PRESENT (bounds_lon)) CALL xios_set_domaingroup_attr ( cdid, bounds_lon_1D=bounds_lon ) 1206 IF(PRESENT (bounds_lat)) CALL xios_set_domaingroup_attr ( cdid, bounds_lat_1D=bounds_lat) 1207 IF(PRESENT (area)) CALL xios_set_domaingroup_attr ( cdid, area=area) 1174 1208 ENDIF 1175 1209 CALL xios_solve_inheritance() … … 1186 1220 IF ( xios_is_valid_axisgroup(cdid) ) CALL xios_set_axisgroup_attr( cdid, size=SIZE(paxis), value=paxis ) 1187 1221 ENDIF 1188 IF ( xios_is_valid_axis (cdid) ) CALL xios_set_axis_attr ( cdid, bounds=bounds ) 1189 IF ( xios_is_valid_axisgroup(cdid) ) CALL xios_set_axisgroup_attr( cdid, bounds=bounds ) 1222 IF ( PRESENT(bounds) ) THEN 1223 IF ( xios_is_valid_axis (cdid) ) CALL xios_set_axis_attr ( cdid, bounds=bounds ) 1224 IF ( xios_is_valid_axisgroup(cdid) ) CALL xios_set_axisgroup_attr( cdid, bounds=bounds ) 1225 ENDIF 1190 1226 CALL xios_solve_inheritance() 1191 1227 END SUBROUTINE iom_set_axis_attr … … 1196 1232 CHARACTER(LEN=*),OPTIONAL , INTENT(in) :: freq_op 1197 1233 CHARACTER(LEN=*),OPTIONAL , INTENT(in) :: freq_offset 1198 IF ( xios_is_valid_field (cdid) ) CALL xios_set_field_attr ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1199 IF ( xios_is_valid_fieldgroup(cdid) ) CALL xios_set_fieldgroup_attr( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1234 IF ( xios_is_valid_field (cdid) .AND. PRESENT(freq_op) ) & 1235 CALL xios_set_field_attr ( cdid, freq_op=freq_op ) 1236 CALL xios_set_fieldgroup_attr( cdid, freq_op=freq_op ) 1237 IF ( xios_is_valid_fieldgroup(cdid) .AND. PRESENT(freq_offset) ) & 1238 CALL xios_set_field_attr ( cdid, freq_offset=freq_offset ) 1239 CALL xios_set_fieldgroup_attr( cdid, freq_offset=freq_offset ) 1200 1240 CALL xios_solve_inheritance() 1201 1241 END SUBROUTINE iom_set_field_attr … … 1205 1245 CHARACTER(LEN=*) , INTENT(in) :: cdid 1206 1246 CHARACTER(LEN=*),OPTIONAL , INTENT(in) :: name, name_suffix 1207 IF ( xios_is_valid_file (cdid) ) CALL xios_set_file_attr ( cdid, name=name, name_suffix=name_suffix ) 1208 IF ( xios_is_valid_filegroup(cdid) ) CALL xios_set_filegroup_attr( cdid, name=name, name_suffix=name_suffix ) 1247 IF( PRESENT( name ) ) THEN 1248 IF ( xios_is_valid_file (cdid) ) CALL xios_set_file_attr ( cdid, name=name ) 1249 IF ( xios_is_valid_filegroup(cdid) ) CALL xios_set_filegroup_attr( cdid, name=name ) 1250 ENDIF 1251 IF( PRESENT( name_suffix ) ) THEN 1252 IF ( xios_is_valid_file (cdid) ) CALL xios_set_file_attr ( cdid, name_suffix=name_suffix ) 1253 IF ( xios_is_valid_filegroup(cdid) ) CALL xios_set_filegroup_attr( cdid, name_suffix=name_suffix ) 1254 ENDIF 1209 1255 CALL xios_solve_inheritance() 1210 1256 END SUBROUTINE iom_set_file_attr … … 1239 1285 CHARACTER(LEN=*) , INTENT(in) :: cdid 1240 1286 LOGICAL, DIMENSION(:,:,:), OPTIONAL, INTENT(in) :: mask 1241 IF ( xios_is_valid_grid (cdid) ) CALL xios_set_grid_attr ( cdid, mask=mask ) 1242 IF ( xios_is_valid_gridgroup(cdid) ) CALL xios_set_gridgroup_attr( cdid, mask=mask ) 1243 CALL xios_solve_inheritance() 1287 IF( PRESENT(mask) ) THEN 1288 IF ( xios_is_valid_grid (cdid) ) CALL xios_set_grid_attr ( cdid, mask=mask ) 1289 IF ( xios_is_valid_gridgroup(cdid) ) CALL xios_set_gridgroup_attr( cdid, mask=mask ) 1290 CALL xios_solve_inheritance() 1291 ENDIF 1244 1292 END SUBROUTINE iom_set_grid_attr 1245 1293
Note: See TracChangeset
for help on using the changeset viewer.