Changeset 6741

Timestamp:

2016-06-24T15:51:52+02:00 (9 years ago)

Author:

malcolmroberts

Message:

Fix the date stamp for the age tracer restart file (use UKMO/restart_datestamp code)

File:

• branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -51 +51 @@
       INTEGER             ::   iyear, imonth, iday
       REAL (wp)           ::   zsec
+      REAL (wp)           ::   zfjulday
       !
       CHARACTER(LEN=20)   ::   clkt     ! ocean time-step define as a character
@@ -82 +83 @@
       IF( kt == nitrst - 2*nn_dttrc .OR. nstock == nn_dttrc .OR. ( kt == nitend - nn_dttrc .AND. .NOT. lrst_trc ) ) THEN
          IF ( ln_rstdate ) THEN
-            CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )           
+!            CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )           
+            zfjulday = fjulday + rdttra(1) / rday
+            IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday )   zfjulday = REAL(NINT(zfjulday),wp)   ! avoid truncation error
+            CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec )          
+
             WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday
          ELSE