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 – NEMO

Changeset 6310


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.

Location:
branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC
Files:
2 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  

  • branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r5649 r6310  
    8686            ! beware of the format used to write kt (default is i8.8, that should be large enough...) 
    8787            IF ( ln_rstdate ) THEN   
    88                CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )              
     88               CALL ju2ymds( ANINT(fjulday + rdttra(1) / rday), iyear, imonth, iday, zsec )              
    8989               WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday   
    9090            ELSE   
Note: See TracChangeset for help on using the changeset viewer.