New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12180 – NEMO

Changeset 12180


Ignore:
Timestamp:
2019-12-11T12:16:36+01:00 (4 years ago)
Author:
smasson
Message:

dev_r12114_ticket_2263: minor bugfix in daymod to follow [12158], see #2263

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12114_ticket_2263/src/OCE/DOM/daymod.F90

    r12116 r12180  
    9595      CALL ymds2ju( nyear, nmonth, nday, REAL(isecrst,wp), fjulday )   
    9696      IF( ABS(fjulday - REAL(NINT(fjulday),wp)) < 0.1 / rday )   fjulday = REAL(NINT(fjulday),wp)   ! avoid truncation error 
    97       IF( nn_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) 
    9898 
    9999      nsec1jan000 = 0 
Note: See TracChangeset for help on using the changeset viewer.