Changeset 10113 for branches


Ignore:
Timestamp:
2018-09-11T12:50:31+02:00 (3 years ago)
Author:
timgraham
Message:

Bug fix for case where start time is within half a time step of midnight.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r10005 r10113  
    100100      CALL ymds2ju( nyear, nmonth, nday, nhour*3600._wp+nminute*60._wp, fjulday )   
    101101      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) 
    103103 
    104104      nsec1jan000 = 0 
Note: See TracChangeset for help on using the changeset viewer.