Changeset 5746 for branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

Timestamp:

2015-09-15T18:06:54+02:00 (9 years ago)

Author:

rfurner

Message:

changes to name restart files with date instead of time stamp

File:

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

branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -25 +25 @@
    USE divcur          ! hor. divergence and curl      (div & cur routines)
    USE sbc_ice, ONLY : lk_lim3
+! for ln_rstdate....
+   USE ioipsl, ONLY : ju2ymds    ! for calendar
 
    IMPLICIT NONE
@@ -58 +60 @@
       CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character
       CHARACTER(LEN=50)   ::   clname   ! ice output restart file name
+! Included for ln_rstdate
+      INTEGER             ::   iyear, imonth, iday
+      REAL (wp)           ::   zsec
+
       !!----------------------------------------------------------------------
       !
@@ -73 +79 @@
       ! except if we write ocean restart files every time step or if an ocean restart file was writen at nitend - 1
       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
+! changes for ln_rstdate....
+!         ! 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
+              ! 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
+              ENDIF
+! end
          ENDIF
          ! create the file