- Timestamp:
- 2018-03-09T15:26:30+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r9390 r9391 90 90 ! beware of the format used to write kt (default is i8.8, that should be large enough...) 91 91 IF ( ln_rstdate ) THEN 92 zfjulday = fjulday + rdt tra(1)/ rday92 zfjulday = fjulday + rdt / rday 93 93 IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday ) zfjulday = REAL(NINT(zfjulday),wp) ! avoid truncation error 94 94 CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )
Note: See TracChangeset
for help on using the changeset viewer.