Changeset 3334 for branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/daymod.F90

Timestamp:

2012-03-20T14:26:17+01:00 (12 years ago)

Author:

sga

Message:

NEMO 2012 development branch dev_r3322_NOCS09_SAS: add some lines from rst_opn in order to allow correct ice restart creation;

and a little bit of light dusting.

File:

• branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/daymod.F90 (modified) (1 diff)

branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/daymod.F90

@@ -266 +266 @@
       ENDIF
 
+      ! since we no longer call rst_opn, need to define nitrst here, used by ice restart routine
+      IF( kt == nit000 ) nitrst = nitend
+      IF( MOD( kt - 1, nstock ) == 0 ) THEN
+         ! we use kt - 1 and not kt - nit000 to keep the same periodicity from the beginning of the experiment
+         nitrst = kt + nstock - 1                  ! define the next value of nitrst for restart writing
+         IF( nitrst > nitend )   nitrst = nitend   ! make sure we write a restart at the end of the run
+      ENDIF
+
       IF( nn_timing == 1 )  CALL timing_stop('day')
       !