Changeset 14553 for NEMO/trunk/src/OCE/stpmlf.F90

Timestamp:

2021-02-26T18:01:43+01:00 (3 years ago)

Author:

gsamson

Message:

merge ticket2628_r14502_abl_restart_xios branch into trunk; sette identical between r14502 and r14544; ticket #2628

File:

• NEMO/trunk/src/OCE/stpmlf.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/stpmlf.F90

@@ -141 +141 @@
 #endif
       ENDIF
+      IF( kstp + nn_fsbc - 1 == nitrst .AND. lwxios ) THEN
 #if defined key_si3
-      IF( kstp + nn_fsbc - 1 == nitrst .AND. lwxios ) THEN
                              CALL iom_swap(                     cw_icerst_cxt )
                              CALL iom_init_closedef(            cw_icerst_cxt )
                              CALL iom_setkt( kstp - nit000 + 1, cw_icerst_cxt )
-      ENDIF
-#endif
+#endif
+         IF( ln_abl      ) THEN
+                             CALL iom_swap(                     cw_ablrst_cxt )
+                             CALL iom_init_closedef(            cw_ablrst_cxt )
+                             CALL iom_setkt( kstp - nit000 + 1, cw_ablrst_cxt )
+         ENDIF
+      ENDIF
       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