Changeset 7203 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

Timestamp:

2016-11-07T17:59:36+01:00 (7 years ago)

Author:

timgraham

Message:

Remove age tracer as this conflicts with changes for MEDUSA. This will need to be added as a separate branch in suites

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -27 +27 @@
    USE trcnam_trp
    USE iom
-   USE in_out_manager , ONLY : ln_rstdate
    USE daymod
    IMPLICIT NONE
@@ -49 +48 @@
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt       ! number of iteration
-      INTEGER             ::   iyear, imonth, iday
-      REAL (wp)           ::   zsec
       !
       CHARACTER(LEN=20)   ::   clkt     ! ocean time-step define as a character
@@ -81 +78 @@
       ! except if we write tracer restart files every tracer time step or if a tracer restart file was writen at nitend - 2*nn_dttrc + 1
       IF( kt == nitrst - 2*nn_dttrc .OR. nstock == nn_dttrc .OR. ( kt == nitend - nn_dttrc .AND. .NOT. lrst_trc ) ) THEN
-         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
+         ! 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
          ENDIF
          ! create the file