Changeset 10113
- Timestamp:
- 2018-09-11T12:50:31+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r10005 r10113 100 100 CALL ymds2ju( nyear, nmonth, nday, nhour*3600._wp+nminute*60._wp, fjulday ) 101 101 IF( ABS(fjulday - REAL(NINT(fjulday),wp)) < 0.1 / rday ) fjulday = REAL(NINT(fjulday),wp) ! avoid truncation error 102 IF( nn_time0*3600 - ndt05 .lt. 0 )fjulday = fjulday + 1. ! move back to the day at nit000 (and not at nit000 - 1)102 IF(nhour*3600 + nminute*60 - ndt05 .lt. 0) fjulday = fjulday + 1. ! move back to the day at nit000 (and not at nit000 - 1) 103 103 104 104 nsec1jan000 = 0
Note: See TracChangeset
for help on using the changeset viewer.