Changeset 8816


Ignore:
Timestamp:
2017-11-27T12:01:56+01:00 (3 years ago)
Author:
andmirek
Message:

#1953 and #1962 XIOS read/write in SAS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/SAS_SRC/step.F90

    r7761 r8816  
    122122 
    123123#if defined key_iomput 
    124       IF( kstp == nitend .OR. indic < 0 ) THEN  
     124      IF( kstp == nitrst ) THEN 
     125         IF(.NOT.lwxios) THEN 
     126            CALL iom_close( numrow )      
     127         ELSE 
     128            CALL iom_context_finalize( cwxios_context ) 
     129         ENDIF 
     130         lrst_oce = .FALSE. 
     131      ENDIF 
     132      IF( kstp == nitend .OR. indic < 0 ) THEN 
    125133                             CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 
    126134      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.