Changeset 8208


Ignore:
Timestamp:
2017-06-22T15:44:14+02:00 (3 years ago)
Author:
andmirek
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r8079 r8208  
    8787      ! except if we write ocean restart files every time step or if an ocean restart file was writen at nitend - 1 
    8888      ! NO, because the data is written 2 times on nitrst - 1 and nitrst 
    89 !     IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
    90       IF( kt == nitrst .OR. nstock == 1 ) THEN 
     89      IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 
    9190         IF( nitrst <= nitend .AND. nitrst > 0 ) THEN  
    9291            IF ( ln_rstdate ) THEN 
     
    131130               CALL iom_swap(      cxios_context          ) 
    132131            ENDIF 
    133 !HAVE TO set lrst_oce to FALSE after XIOS restart is written !!!!!! 
    134 !           THIS CALL SHOULDN't be here we open restart file on iter-1, move it 
    135 !           to SUBROUTINE day to set the flag on the step when we save data 
    136132            lrst_oce = .TRUE. 
    137133         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.