Changeset 10765 for NEMO/branches/UKMO/r8395_restart_datestamp/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

Timestamp:

2019-03-15T13:14:30+01:00 (5 years ago)

Author:

jcastill

Message:

First set of changes

File:

• NEMO/branches/UKMO/r8395_restart_datestamp/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90 (modified) (3 diffs)

NEMO/branches/UKMO/r8395_restart_datestamp/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

@@ -22 +22 @@
    USE sbc_ice        ! Surface boundary condition: ice fields
    USE in_out_manager ! I/O manager
+   USE ioipsl  , ONLY : ju2ymds    ! for calendar
    USE iom            ! I/O library
    USE lib_mpp        ! MPP library
@@ -51 +52 @@
       !! ** purpose  :   output of sea-ice variable in a netcdf file
       !!----------------------------------------------------------------------
+      INTEGER             ::   iyear, imonth, iday 
+      REAL (wp)           ::   zsec 
+      REAL (wp)           ::   zfjulday      !!
       INTEGER, INTENT(in) ::   kt       ! number of iteration
       !
@@ -67 +71 @@
          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( nitrst > 99999999 ) THEN   ;   WRITE(clkt, *       ) nitrst
-            ELSE                           ;   WRITE(clkt, '(i8.8)') nitrst
+            IF ( ln_rstdate ) THEN 
+               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 )            
+               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