Changeset 12961 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/step.F90

Timestamp:

2020-05-22T13:51:12+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: read/write restart with XIOS in TOP (with debug print statements)

File:

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

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

@@ -127 +127 @@
          CALL iom_init_closedef(cwxios_context)
          CALL iom_setkt( kstp - nit000 + 1,      cwxios_context          )
+#if defined key_top
+         CALL iom_swap(      cwtxios_context          )
+         CALL iom_init_closedef(cwtxios_context)
+         CALL iom_setkt( kstp - nit000 + 1,      cwtxios_context          )
+#endif
       ENDIF
 #if defined key_si3
@@ -346 +351 @@
       IF( kstp == nit000 ) THEN                          ! 1st time step only
                                         CALL iom_close( numror )   ! close input  ocean restart file
+         IF( lrxios )                   CALL iom_context_finalize(      crxios_context         )
          IF(lwm)                        CALL FLUSH    ( numond )   ! flush output namelist oce
          IF(lwm .AND. numoni /= -1 )    CALL FLUSH    ( numoni )   ! flush output namelist ice (if exist)
@@ -362 +368 @@
       IF( kstp == nitend .OR. indic < 0 ) THEN 
                       CALL iom_context_finalize(      cxios_context          ) ! needed for XIOS+AGRIF
-         IF( lrxios ) THEN
-                      CALL iom_context_finalize(      crxios_context         )
-#if defined key_si3
-                      CALL iom_context_finalize(      crixios_context         )
-#endif
-         ENDIF
          IF( ln_crs ) CALL iom_context_finalize( trim(cxios_context)//"_crs" ) ! 
       ENDIF