Changeset 15701 for NEMO

Timestamp:

2022-02-16T13:08:58+01:00 (2 years ago)

Author:

jpalmier

Message:

enable TOP restart with date instead of time-step

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GO8_paquage_branch/src/TOP/trcrst.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_GO8_paquage_branch/src/TOP/trcrst.F90

@@ -46 +46 @@
       !! ** purpose  :   output of sea-trc variable in a netcdf file
       !!----------------------------------------------------------------------
+      USE in_out_manager, ONLY : ln_rstdate  ! I/O manager
+      USE ioipsl,         ONLY : ju2ymds    ! for calendar
+      !
       INTEGER, INTENT(in) ::   kt       ! number of iteration
       !
@@ -80 +83 @@
       IF( kt == nitrst - 2*nn_dttrc .OR. nn_stock == nn_dttrc .OR. ( kt == nitend - nn_dttrc .AND. .NOT. lrst_trc ) ) THEN
          ! beware of the format used to write kt (default is i8.8, that should be large enough)
-         IF( nitrst > 1.0e9 ) 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 > 1.0e9 ) THEN   ;   WRITE(clkt,*       ) nitrst
+            ELSE                        ;   WRITE(clkt,'(i8.8)') nitrst
+            ENDIF
          ENDIF
          ! create the file