- Timestamp:
- 2012-03-20T14:26:17+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/daymod.F90
r3331 r3334 266 266 ENDIF 267 267 268 ! since we no longer call rst_opn, need to define nitrst here, used by ice restart routine 269 IF( kt == nit000 ) nitrst = nitend 270 IF( MOD( kt - 1, nstock ) == 0 ) THEN 271 ! we use kt - 1 and not kt - nit000 to keep the same periodicity from the beginning of the experiment 272 nitrst = kt + nstock - 1 ! define the next value of nitrst for restart writing 273 IF( nitrst > nitend ) nitrst = nitend ! make sure we write a restart at the end of the run 274 ENDIF 275 268 276 IF( nn_timing == 1 ) CALL timing_stop('day') 269 277 !
Note: See TracChangeset
for help on using the changeset viewer.