Changeset 8208 for branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

Timestamp:

2017-06-22T15:44:14+02:00 (7 years ago)

Author:

andmirek

Message:

open write context at time write-1 as for default write

File:

• branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (2 diffs)

branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -87 +87 @@
       ! except if we write ocean restart files every time step or if an ocean restart file was writen at nitend - 1
       ! NO, because the data is written 2 times on nitrst - 1 and nitrst
-!     IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN
-      IF( kt == nitrst .OR. nstock == 1 ) THEN
+      IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN
          IF( nitrst <= nitend .AND. nitrst > 0 ) THEN 
             IF ( ln_rstdate ) THEN
@@ -131 +130 @@
                CALL iom_swap(      cxios_context          )
             ENDIF
-!HAVE TO set lrst_oce to FALSE after XIOS restart is written !!!!!!
-!           THIS CALL SHOULDN't be here we open restart file on iter-1, move it
-!           to SUBROUTINE day to set the flag on the step when we save data
             lrst_oce = .TRUE.
          ENDIF