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 6310 for branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/ICB – NEMO

Ignore:
Timestamp:
2016-02-12T18:09:29+01:00 (8 years ago)
Author:
dancopsey
Message:

Making use of ANINT to round the date of the dumps to the nearest whole number. This stops it rounding down to the day before the date of the actual dump.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r5630 r6310  
    244244      ! Date or timestep in the filename 
    245245      IF ( ln_rstdate ) THEN  
    246          CALL ju2ymds( fjulday + (rdttra(1) / rday) - 1, iyear, imonth, iday, zsec )             
     246         CALL ju2ymds( ANINT(fjulday), iyear, imonth, iday, zsec )             
    247247         WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday  
    248248      ELSE  
Note: See TracChangeset for help on using the changeset viewer.