Changeset 12149 for NEMO/branches/2019/ENHANCE-03_closea/src/OCE/TRD/trdmxl_rst.F90

Timestamp:

2019-12-10T15:03:24+01:00 (4 years ago)

Author:

ayoung

Message:

Updated trunk to 12072

File:

• NEMO/branches/2019/ENHANCE-03_closea/src/OCE/TRD/trdmxl_rst.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-03_closea/src/OCE/TRD/trdmxl_rst.F90

@@ -47 +47 @@
       !!--------------------------------------------------------------------------------
 
+      IF( .NOT. ln_rst_list .AND. nn_stock == -1 )   RETURN   ! we will never do any restart
+
       ! to get better performances with NetCDF format:
       ! we open and define the ocean restart_mxl file one time step before writing the data (-> at nitrst - 1)
       ! except if we write ocean restart_mxl files every time step or if an ocean restart_mxl file was writen at nitend - 1
-      IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. MOD( nitend - 1, nstock ) == 0 ) ) THEN
+      IF( kt == nitrst - 1 .OR. nn_stock == 1 .OR. ( kt == nitend .AND. MOD( nitend - 1, nn_stock ) == 0 ) ) THEN
          ! beware of the format used to write kt (default is i8.8, that should be large enough...)
          IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst