Changeset 9411


Ignore:
Timestamp:
2018-03-19T13:49:39+01:00 (2 years ago)
Author:
davestorkey
Message:

UKMO/dev_r8864_restart_date branch: bug fix.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r9391 r9411  
    7272            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    7373            IF ( ln_rstdate ) THEN 
    74                zfjulday = fjulday + rdt / rday 
     74               zfjulday = fjulday + (2*nn_fsbc+1)*rdt / rday 
    7575               IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error 
    7676               CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )            
Note: See TracChangeset for help on using the changeset viewer.