- Timestamp:
- 2020-12-23T09:59:45+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/src/iom.F90
r12414 r14243 26 26 USE in_out_manager ! I/O manager 27 27 USE lib_mpp ! MPP library 28 #if defined key_ iomput28 #if defined key_xios 29 29 USE sbc_oce , ONLY : nn_fsbc ! ocean space and time domain 30 30 USE trc_oce , ONLY : nn_dttrc ! !: frequency of step on passive tracers … … 46 46 PUBLIC ! must be public to be able to access iom_def through iom 47 47 48 #if defined key_ iomput48 #if defined key_xios 49 49 LOGICAL, PUBLIC, PARAMETER :: lk_iomput = .TRUE. !: iom_put flag 50 50 #else … … 58 58 PRIVATE iom_g0d, iom_g1d, iom_g2d, iom_g3d, iom_get_123d 59 59 PRIVATE iom_p1d, iom_p2d, iom_p3d 60 #if defined key_ iomput60 #if defined key_xios 61 61 PRIVATE iom_set_domain_attr, iom_set_axis_attr, iom_set_field_attr, iom_set_file_attr, iom_get_file_attr, iom_set_grid_attr 62 62 PRIVATE set_grid, set_grid_bounds, set_scalar, set_xmlatt, set_mooring, iom_update_file_name, iom_sdate … … 98 98 CHARACTER(len=*), OPTIONAL, INTENT(in) :: fname 99 99 LOGICAL , OPTIONAL, INTENT(in) :: ld_tmppatch 100 #if defined key_ iomput100 #if defined key_xios 101 101 ! 102 102 TYPE(xios_duration) :: dtime = xios_duration(0, 0, 0, 0, 0, 0) … … 268 268 CHARACTER(LEN=256) :: clinfo ! info character 269 269 270 #if defined key_ iomput270 #if defined key_xios 271 271 llis_set = .FALSE. 272 272 … … 284 284 ENDIF 285 285 #else 286 clinfo = 'iom_set_rstw_var_active: key_ iomputis needed to use XIOS restart read/write functionality'286 clinfo = 'iom_set_rstw_var_active: key_xios is needed to use XIOS restart read/write functionality' 287 287 CALL ctl_stop('STOP', TRIM(clinfo)) 288 288 #endif … … 301 301 CHARACTER(len=256) :: rst_file 302 302 303 #if defined key_ iomput303 #if defined key_xios 304 304 TYPE(xios_field) :: field_hdl 305 305 TYPE(xios_file) :: file_hdl … … 476 476 !sets enabled = .TRUE. for each field in restart file 477 477 CHARACTER(len=*) :: cdrst_file 478 #if defined key_ iomput478 #if defined key_xios 479 479 TYPE(xios_field) :: field_hdl 480 480 TYPE(xios_file) :: file_hdl … … 531 531 !ld_rstr is true for restart context. There is no need to define grid for 532 532 !restart read, because it's read from file 533 #if defined key_ iomput533 #if defined key_xios 534 534 TYPE(xios_domaingroup) :: domaingroup_hdl 535 535 TYPE(xios_domain) :: domain_hdl … … 562 562 !!--------------------------------------------------------------------- 563 563 CHARACTER(len=*), INTENT(in) :: cdname 564 #if defined key_ iomput564 #if defined key_xios 565 565 TYPE(xios_context) :: nemo_hdl 566 566 … … 913 913 ENDIF 914 914 ELSE 915 #if defined key_ iomput915 #if defined key_xios 916 916 IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 917 917 CALL iom_swap( TRIM(crxios_context) ) … … 1267 1267 ! 1268 1268 ELSE ! read using XIOS. Only if KEY_IOMPUT is defined 1269 #if defined key_ iomput1269 #if defined key_xios 1270 1270 !would be good to be able to check which context is active and swap only if current is not restart 1271 1271 CALL iom_swap( TRIM(crxios_context) ) … … 1484 1484 IF(PRESENT(ldxios)) llx = ldxios 1485 1485 IF( llx ) THEN 1486 #ifdef key_ iomput1486 #ifdef key_xios 1487 1487 IF( kt == kwrite ) THEN 1488 1488 IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) … … 1514 1514 IF(PRESENT(ldxios)) llx = ldxios 1515 1515 IF( llx ) THEN 1516 #ifdef key_ iomput1516 #ifdef key_xios 1517 1517 IF( kt == kwrite ) THEN 1518 1518 IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) … … 1544 1544 IF(PRESENT(ldxios)) llx = ldxios 1545 1545 IF( llx ) THEN 1546 #ifdef key_ iomput1546 #ifdef key_xios 1547 1547 IF( kt == kwrite ) THEN 1548 1548 IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) … … 1574 1574 IF(PRESENT(ldxios)) llx = ldxios 1575 1575 IF( llx ) THEN 1576 #ifdef key_ iomput1576 #ifdef key_xios 1577 1577 IF( kt == kwrite ) THEN 1578 1578 IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) … … 1644 1644 REAL(wp) , INTENT(in) :: pfield0d 1645 1645 REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson 1646 #if defined key_ iomput1646 #if defined key_xios 1647 1647 zz(:,:)=pfield0d 1648 1648 CALL xios_send_field(cdname, zz) … … 1656 1656 CHARACTER(LEN=*) , INTENT(in) :: cdname 1657 1657 REAL(wp), DIMENSION(:), INTENT(in) :: pfield1d 1658 #if defined key_ iomput1658 #if defined key_xios 1659 1659 CALL xios_send_field( cdname, RESHAPE( (/pfield1d/), (/1,1,SIZE(pfield1d)/) ) ) 1660 1660 #else … … 1666 1666 CHARACTER(LEN=*) , INTENT(in) :: cdname 1667 1667 REAL(wp), DIMENSION(:,:), INTENT(in) :: pfield2d 1668 #if defined key_ iomput1668 #if defined key_xios 1669 1669 CALL xios_send_field(cdname, pfield2d) 1670 1670 #else … … 1676 1676 CHARACTER(LEN=*) , INTENT(in) :: cdname 1677 1677 REAL(wp), DIMENSION(:,:,:), INTENT(in) :: pfield3d 1678 #if defined key_ iomput1678 #if defined key_xios 1679 1679 CALL xios_send_field( cdname, pfield3d ) 1680 1680 #else … … 1683 1683 END SUBROUTINE iom_p3d 1684 1684 1685 #if defined key_ iomput1685 #if defined key_xios 1686 1686 !!---------------------------------------------------------------------- 1687 !! 'key_ iomput' XIOS interface1687 !! 'key_xios' XIOS interface 1688 1688 !!---------------------------------------------------------------------- 1689 1689 … … 2361 2361 #else 2362 2362 !!---------------------------------------------------------------------- 2363 !! NOT 'key_ iomput' a few dummy routines2363 !! NOT 'key_xios' a few dummy routines 2364 2364 !!---------------------------------------------------------------------- 2365 2365 … … 2382 2382 CHARACTER(LEN=*), INTENT(in) :: cdname 2383 2383 !!---------------------------------------------------------------------- 2384 #if defined key_ iomput2384 #if defined key_xios 2385 2385 iom_use = xios_field_is_active( cdname ) 2386 2386 #else
Note: See TracChangeset
for help on using the changeset viewer.