Changeset 3629 for LMDZ5/branches/IPSLCM5A2.1/libf/misc
- Timestamp:
- Feb 10, 2020, 9:54:26 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/IPSLCM5A2.1/libf/misc/wxios.F90
r2509 r3629 342 342 CALL xios_set_domain_attr_hdl(dom, nj_glo=nj_glo, jbegin=jbegin-1, nj=nj, data_dim=2) 343 343 CALL xios_set_domain_attr_hdl(dom, lonvalue_1d=io_lon(ibegin:iend), latvalue_1d=io_lat(jbegin:jend)) 344 IF (xios_is_valid_axis("axis_lat")) THEN 345 CALL xios_set_axis_attr( "axis_lat", n_glo=nj_glo, n=nj, begin=jbegin-1, value=io_lat(jbegin:jend)) 346 ENDIF 344 347 #endif 345 348 IF (.NOT.is_sequential) THEN … … 372 375 ! Pour déclarer un axe vertical !!!!!!!!!!!!!!! 373 376 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 374 SUBROUTINE wxios_add_vaxis(axis_id, axis_size, axis_value) 377 SUBROUTINE wxios_add_vaxis(axis_id, axis_size, axis_value, & 378 positif, bnds) 375 379 USE print_control_mod, ONLY : prt_level, lunout 376 380 IMPLICIT NONE … … 379 383 INTEGER, INTENT(IN) :: axis_size 380 384 REAL, DIMENSION(axis_size), INTENT(IN) :: axis_value 385 CHARACTER (len=*), INTENT(IN), OPTIONAL :: positif 386 REAL, DIMENSION(axis_size, 2), INTENT(IN), OPTIONAL :: bnds 381 387 382 388 ! TYPE(xios_axisgroup) :: axgroup … … 404 410 CALL xios_set_axis_attr(trim(axis_id),size=axis_size,value=axis_value) 405 411 #else 406 CALL xios_set_axis_attr(trim(axis_id),n_glo=axis_size,value=axis_value) 412 if (PRESENT(positif) .AND. PRESENT(bnds)) then 413 CALL xios_set_axis_attr(trim(axis_id),n_glo=axis_size,value=axis_value, & 414 positive=positif, bounds=bnds) 415 else if (PRESENT(positif)) then 416 CALL xios_set_axis_attr(trim(axis_id),n_glo=axis_size,value=axis_value, & 417 positive=positif) 418 else if (PRESENT(bnds)) then 419 CALL xios_set_axis_attr(trim(axis_id),n_glo=axis_size,value=axis_value, & 420 bounds=bnds) 421 else 422 CALL xios_set_axis_attr(trim(axis_id),n_glo=axis_size,value=axis_value) 423 endif 407 424 #endif 408 425 !Vérification:
Note: See TracChangeset
for help on using the changeset viewer.