Changeset 1335 for trunk/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2009-03-03T15:46:24+01:00 (15 years ago)

Author:

smasson

Message:

bugfix with restarts frequency when running with different lenght for each run, see ticket:339

File:

• trunk/NEMO/OPA_SRC/DOM/domain.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -178 +178 @@
 
       ! ... Control of output frequency
-      IF ( nstock == 0 .OR. nstock > nitend - nit000 + 1 ) THEN
-         WRITE(ctmp1,*) '           nstock = ', nstock, ' it is forced to ', nitend - nit000 + 1
+      IF ( nstock == 0 .OR. nstock > nitend ) THEN
+         WRITE(ctmp1,*) '           nstock = ', nstock, ' it is forced to ', nitend
          CALL ctl_warn( ctmp1 )
-         nstock = nitend - nit000 + 1
+         nstock = nitend
       ENDIF
       IF ( nwrite == 0 ) THEN