Changeset 3594 for branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

Timestamp:

2012-11-19T13:28:55+01:00 (11 years ago)

Author:

rfurner

Message:

code not tested through SETTEE, builds and runs, but has not been thoroughly tested, so will not be included in 2012 merge, however submitted back to keep record of work done for 2013 developments

File:

• branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90 (modified) (3 diffs)

branches/2012/dev_r3452_UKMO9_RESTART/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

@@ -35 +35 @@
    INTEGER       ::   nn_istate     = 0           !: initial state output flag (0/1)
    INTEGER       ::   nn_write      =   10        !: model standard output frequency
-   INTEGER       ::   nn_stock      =   10        !: restart file frequency
+   INTEGER, PARAMETER            :: jp_stocks = 15   !: maximum number of restarts
+   INTEGER, DIMENSION(jp_stocks) :: nn_stock = 0     !: restart dump times
    LOGICAL       ::   ln_dimgnnn    = .FALSE.     !: type of dimgout. (F): 1 file for all proc
                                                        !:                  (T): 1 file per proc
@@ -75 +76 @@
    INTEGER       ::   ninist                      !: initial state output flag (0/1)
    INTEGER       ::   nwrite                      !: model standard output frequency
-   INTEGER       ::   nstock                      !: restart file frequency
 
    !!----------------------------------------------------------------------
@@ -81 +81 @@
    !!----------------------------------------------------------------------
    INTEGER ::   nitrst   !: time step at which restart file should be written
+   INTEGER ::   nrst     !: index of next restart dump
 
    !!----------------------------------------------------------------------