Changeset 15723 for NEMO/branches/UKMO/NEMO_4.0.4_GO8_paquage_branch
- Timestamp:
- 2022-02-22T12:57:05+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_GO8_paquage_branch/src/TOP/trcrst.F90
r15703 r15723 88 88 ! beware of the format used to write kt (default is i8.8, that should be large enough) 89 89 IF ( ln_rstdate ) THEN 90 zfjulday = fjulday + rdt / rday90 zfjulday = fjulday + 2*rdt / rday 91 91 IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday ) zfjulday = REAL(NINT(zfjulday),wp) ! avoid truncation error 92 92 CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )
Note: See TracChangeset
for help on using the changeset viewer.