Changeset 9391 for branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

Timestamp:

2018-03-09T15:26:30+01:00 (6 years ago)

Author:

davestorkey

Message:

UKMO/dev_r8864_restart_date branch: bug fixes

File:

• branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90 (modified) (1 diff)

branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

@@ -173 +173 @@
       IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/'
       IF ( ln_rstdate ) THEN
-         zfjulday = fjulday + rdttra(1) / rday
+         zfjulday = fjulday + rdt / 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 )