Changeset 11 for SCHWARZ_ORCA2LIM3/SOURCES/NEMO/restart.F90

Timestamp:

06/27/19 14:15:12 (4 years ago)

Author:

snguyen

Message:

removed bug : not writing restart when doing several periods of computation

File:

• SCHWARZ_ORCA2LIM3/SOURCES/NEMO/restart.F90 (modified) (2 diffs)

SCHWARZ_ORCA2LIM3/SOURCES/NEMO/restart.F90

@@ -60 +60 @@
       !!----------------------------------------------------------------------
       !
-      IF( kt == nit000 .AND. kswr == 1 ) THEN   ! default definitions
+      IF( kt == nit000 .AND. kswr == 0 ) THEN   ! default definitions
          lrst_oce = .FALSE.   
          IF( ln_rst_list ) THEN
@@ -76 +76 @@
          IF( nitrst > nitend )   nitrst = nitend   ! make sure we write a restart at the end of the run
       ENDIF
+
       ! to get better performances with NetCDF format:
       ! we open and define the ocean restart file one time step before writing the data (-> at nitrst - 1)