New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9391 for branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 – NEMO

Ignore:
Timestamp:
2018-03-09T15:26:30+01:00 (6 years ago)
Author:
davestorkey
Message:

UKMO/dev_r8864_restart_date branch: bug fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r9390 r9391  
    9090            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    9191            IF ( ln_rstdate ) THEN 
    92                zfjulday = fjulday + rdttra(1) / rday 
     92               zfjulday = fjulday + rdt / rday 
    9393               IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error 
    9494               CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )            
Note: See TracChangeset for help on using the changeset viewer.