- Timestamp:
- 2017-06-28T10:53:34+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8079 r8227 1447 1447 IF( lx ) THEN 1448 1448 #ifdef key_iomput 1449 if(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 1450 CALL xios_send_field(trim(cdvar), pvar) 1449 IF( kt == kwrite ) THEN 1450 IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 1451 CALL xios_send_field(trim(cdvar), pvar) 1452 ENDIF 1451 1453 #endif 1452 1454 ELSE … … 1481 1483 IF( lx ) THEN 1482 1484 #ifdef key_iomput 1483 if(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 1484 CALL xios_send_field(trim(cdvar), pvar) 1485 IF( kt == kwrite ) THEN 1486 IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 1487 CALL xios_send_field(trim(cdvar), pvar) 1488 ENDIF 1485 1489 #endif 1486 1490 ELSE … … 1515 1519 IF( lx ) THEN 1516 1520 #ifdef key_iomput 1517 if(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 1518 CALL xios_send_field(trim(cdvar), pvar) 1521 IF( kt == kwrite ) THEN 1522 IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 1523 CALL xios_send_field(trim(cdvar), pvar) 1524 ENDIF 1519 1525 #endif 1520 1526 ELSE … … 1549 1555 IF( lx ) THEN 1550 1556 #ifdef key_iomput 1551 if(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 1552 CALL xios_send_field(trim(cdvar), pvar) 1557 IF( kt == kwrite ) THEN 1558 IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 1559 CALL xios_send_field(trim(cdvar), pvar) 1560 ENDIF 1553 1561 #endif 1554 1562 ELSE
Note: See TracChangeset
for help on using the changeset viewer.