Changeset 9495 for branches/UKMO/dev_merge_2017_restart_datestamp_GO6_mixing/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

Timestamp:

2018-04-23T16:34:55+02:00 (6 years ago)

Author:

davestorkey

Message:

branches/UKMO/dev_merge_2017_restart_datestamp_GO6_mixing : revert previous change so I can remove SVN keywords first.

File:

• branches/UKMO/dev_merge_2017_restart_datestamp_GO6_mixing/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90 (modified) (3 diffs)

branches/UKMO/dev_merge_2017_restart_datestamp_GO6_mixing/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

@@ -24 +24 @@
    USE in_out_manager ! I/O manager
    USE iom            ! I/O manager library
-   USE ioipsl, ONLY : ju2ymds    ! for calendar
    USE lib_mpp        ! MPP library
    USE lib_fortran    ! fortran utilities (glob_sum + no signed zero)
@@ -50 +49 @@
       INTEGER, INTENT(in) ::   kt       ! number of iteration
       !
-      INTEGER             ::   iyear, imonth, iday
-      REAL (wp)           ::   zsec
-      REAL (wp)           ::   zfjulday
       CHARACTER(len=20)   ::   clkt     ! ocean time-step define as a character
       CHARACTER(len=50)   ::   clname   ! ice output restart file name
@@ -67 +63 @@
          IF( nitrst <= nitend .AND. nitrst > 0 ) THEN
             ! beware of the format used to write kt (default is i8.8, that should be large enough...)
-            IF ( ln_rstdate ) THEN
-               zfjulday = fjulday + (2*nn_fsbc+1)*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 )           
-               WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday
-            ELSE
-               IF( nitrst > 99999999 ) THEN   ;   WRITE(clkt, *       ) nitrst
-               ELSE                           ;   WRITE(clkt, '(i8.8)') nitrst
-               ENDIF
+            IF( nitrst > 99999999 ) THEN   ;   WRITE(clkt, *       ) nitrst
+            ELSE                           ;   WRITE(clkt, '(i8.8)') nitrst
             ENDIF
             ! create the file