Changeset 12977 for NEMO/branches/2020/dev_12905_xios_restart/src/SAS/step.F90

Timestamp:

2020-05-27T09:35:03+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462 read restart with XIOS in SAS

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/SAS/step.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/SAS/step.F90

@@ -95 +95 @@
                                                           ! need to keep the same interface 
       IF( kstp == nit000 )   CALL iom_init( cxios_context ) ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
-      IF( kstp /= nit000 )   CALL day( kstp )             ! Calendar (day was already called at nit000 in day_init)
                              CALL iom_setkt( kstp - nit000 + 1, cxios_context )   ! tell iom we are at time step kstp
       IF((kstp == nitrst) .AND. lwxios) THEN
@@ -107 +106 @@
 #endif
       ENDIF
+      IF( kstp /= nit000 )   CALL day( kstp )             ! Calendar (day was already called at nit000 in day_init)
+
 #if defined key_si3
       IF(((kstp + nn_fsbc - 1) == nitrst) .AND. lwxios) THEN
@@ -153 +154 @@
       ! File manipulation at the end of the first time step
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<                         
-      IF( kstp == nit000   ) CALL iom_close( numror )                          ! close input  ocean restart file
+      IF( kstp == nit000   ) THEN
+            CALL iom_close( numror )                          ! close input  ocean restart file
+            IF( lroxios )     CALL iom_context_finalize(      crxios_context      )
+      ENDIF
       
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>