Changeset 1335


Ignore:
Timestamp:
2009-03-03T15:46:24+01:00 (12 years ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DOM/domain.F90

    r1312 r1335  
    178178 
    179179      ! ... Control of output frequency 
    180       IF ( nstock == 0 .OR. nstock > nitend - nit000 + 1 ) THEN 
    181          WRITE(ctmp1,*) '           nstock = ', nstock, ' it is forced to ', nitend - nit000 + 1 
     180      IF ( nstock == 0 .OR. nstock > nitend ) THEN 
     181         WRITE(ctmp1,*) '           nstock = ', nstock, ' it is forced to ', nitend 
    182182         CALL ctl_warn( ctmp1 ) 
    183          nstock = nitend - nit000 + 1 
     183         nstock = nitend 
    184184      ENDIF 
    185185      IF ( nwrite == 0 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.