Changeset 12180
- Timestamp:
- 2019-12-11T12:16:36+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12114_ticket_2263/src/OCE/DOM/daymod.F90
r12116 r12180 95 95 CALL ymds2ju( nyear, nmonth, nday, REAL(isecrst,wp), fjulday ) 96 96 IF( ABS(fjulday - REAL(NINT(fjulday),wp)) < 0.1 / rday ) fjulday = REAL(NINT(fjulday),wp) ! avoid truncation error 97 IF( n n_time0*NINT(rhhmm*rmmss) - ndt05 .LT. 0 ) fjulday = fjulday+1.! move back to the day at nit000 (and not at nit000 - 1)97 IF( nhour*NINT(rhhmm*rmmss) + nminute*NINT(rmmss) - ndt05 .LT. 0 ) fjulday = fjulday+1. ! move back to the day at nit000 (and not at nit000 - 1) 98 98 99 99 nsec1jan000 = 0
Note: See TracChangeset
for help on using the changeset viewer.