Changeset 11870 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/IOM/restart.F90

Timestamp:

2019-11-07T12:27:28+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2323: open single restart write context for all restart files

File:

• NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/IOM/restart.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/IOM/restart.F90

@@ -108 +108 @@
             ENDIF
             !
-            IF(.NOT.lwxios) THEN
+            IF(lwxios) THEN
+               CALL iom_setkt( nitrst, cwxios_context )
+            ELSE
                CALL iom_open( TRIM(clpath)//TRIM(clname), numrow, ldwrt = .TRUE. )
-            ELSE
-#if defined key_iomput
-               cwxios_context = "rstw_"//TRIM(ADJUSTL(clkt))
-               IF( TRIM(Agrif_CFixed()) == '0' ) THEN
-                  clpname = clname
-               ELSE
-                  clpname = TRIM(Agrif_CFixed())//"_"//clname   
-               ENDIF
-               CALL iom_init( cwxios_context, TRIM(clpath)//TRIM(clpname), .false. )
-               CALL xios_update_calendar(nitrst)
-               CALL iom_swap(      cxios_context          )
-#else
-               clinfo = 'Can not use XIOS in rst_opn'
-               CALL ctl_stop(TRIM(clinfo))
-#endif
             ENDIF
             lrst_oce = .TRUE.
@@ -179 +166 @@
          IF(.NOT.lwxios) THEN
             CALL iom_close( numrow )     ! close the restart file (only at last time step)
-         ELSE
-            CALL iom_context_finalize(      cwxios_context          )
          ENDIF
 !!gm         IF( .NOT. lk_trdmld )   lrst_oce = .FALSE.