Ignore:
Timestamp:
2020-05-19T12:53:16+02:00 (5 months ago)
Author:
andmirek
Message:

Ticket #2462: new XIOS restart read/write interfaces

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/OCE/step.F90

    r12650 r12950  
    122122                             CALL iom_init_closedef 
    123123         IF( ln_crs      )   CALL iom_init( TRIM(cxios_context)//"_crs" )  ! for coarse grid 
     124      ELSEIF((kstp == nitrst) .AND. lwxios) THEN 
     125         CALL iom_swap(      cwxios_context          ) 
     126         CALL iom_init_closedef(cwxios_context) 
     127         CALL iom_setkt( kstp - nit000 + 1,      cwxios_context          ) 
     128         CALL iom_swap(      cwxios_context          ) 
    124129      ENDIF 
    125130      IF( kstp /= nit000 )   CALL day( kstp )         ! Calendar (day was already called at nit000 in day_init) 
Note: See TracChangeset for help on using the changeset viewer.