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

Changeset 15723


Ignore:
Timestamp:
2022-02-22T12:57:05+01:00 (2 years ago)
Author:
jpalmier
Message:

fix TOP restart date

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_GO8_paquage_branch/src/TOP/trcrst.F90

    r15703 r15723  
    8888         ! beware of the format used to write kt (default is i8.8, that should be large enough) 
    8989         IF ( ln_rstdate ) THEN 
    90             zfjulday = fjulday + rdt / rday 
     90            zfjulday = fjulday + 2*rdt / rday 
    9191            IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error 
    9292            CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )            
Note: See TracChangeset for help on using the changeset viewer.