Changeset 5494 for branches/UKMO/dev_r5107_restart_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

Timestamp:

2015-06-26T12:30:56+02:00 (9 years ago)

Author:

dancopsey

Message:

Upgraded NEMO3,5 branch dev/hadco/vn3.5_beta_restart_date to this revision.

File:

• branches/UKMO/dev_r5107_restart_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (3 diffs)

branches/UKMO/dev_r5107_restart_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -21 +21 @@
    USE in_out_manager  ! I/O manager
    USE iom             ! I/O module
+   USE ioipsl, ONLY : ju2ymds    ! for calendar
    USE eosbn2          ! equation of state            (eos bn2 routine)
    USE trdmxl_oce      ! ocean active mixed layer tracers trends variables
@@ -55 +56 @@
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt     ! ocean time-step
+      INTEGER             ::   iyear, imonth, iday
+      REAL (wp)           ::   zsec
       !!
       CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character
@@ -74 +77 @@
       IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN
          ! beware of the format used to write kt (default is i8.8, that should be large enough...)
-         IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst
-         ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst
+         IF ( ln_rstdate ) THEN
+            CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )           
+            WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday
+         ELSE
+            IF( nitrst > 999999999 ) THEN   ;   WRITE(clkt, *       ) nitrst
+            ELSE                            ;   WRITE(clkt, '(i8.8)') nitrst
+            ENDIF
          ENDIF
          ! create the file