Changeset 13542
- Timestamp:
- 2020-09-29T15:36:20+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12377_ticket2386/src/OCE/IOM/iom.F90
r13540 r13542 1574 1574 IF( kt == kwrite ) THEN 1575 1575 IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 1576 CALL xios_send_field(trim(cdvar), pvar)1576 CALL iom_put(trim(cdvar), pvar) 1577 1577 ENDIF 1578 1578 #endif … … 1604 1604 IF( kt == kwrite ) THEN 1605 1605 IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 1606 CALL xios_send_field(trim(cdvar), pvar)1606 CALL iom_put(trim(cdvar), pvar) 1607 1607 ENDIF 1608 1608 #endif … … 1635 1635 IF( kt == kwrite ) THEN 1636 1636 IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 1637 CALL xios_send_field(trim(cdvar), pvar)1637 CALL iom_put(trim(cdvar), pvar) 1638 1638 ENDIF 1639 1639 #endif … … 1665 1665 IF( kt == kwrite ) THEN 1666 1666 IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 1667 CALL xios_send_field(trim(cdvar), pvar)1667 CALL iom_put(trim(cdvar), pvar) 1668 1668 ENDIF 1669 1669 #endif … … 1696 1696 IF( kt == kwrite ) THEN 1697 1697 IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 1698 CALL xios_send_field(trim(cdvar), pvar)1698 CALL iom_put(trim(cdvar), pvar) 1699 1699 ENDIF 1700 1700 #endif … … 1726 1726 IF( kt == kwrite ) THEN 1727 1727 IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 1728 CALL xios_send_field(trim(cdvar), pvar)1728 CALL iom_put(trim(cdvar), pvar) 1729 1729 ENDIF 1730 1730 #endif … … 1757 1757 IF( kt == kwrite ) THEN 1758 1758 IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 1759 CALL xios_send_field(trim(cdvar), pvar)1759 CALL iom_put(trim(cdvar), pvar) 1760 1760 ENDIF 1761 1761 #endif … … 1787 1787 IF( kt == kwrite ) THEN 1788 1788 IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 1789 CALL xios_send_field(trim(cdvar), pvar)1789 CALL iom_put(trim(cdvar), pvar) 1790 1790 ENDIF 1791 1791 #endif
Note: See TracChangeset
for help on using the changeset viewer.