Changeset 5526 for branches

Timestamp:

2015-07-01T15:19:59+02:00 (9 years ago)

Author:

dancopsey

Message:

Removed one fromt he date of the iceberg restarts as it was a day later than the other restarts.

File:

• branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90 (modified) (2 diffs)

branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

@@ -237 +237 @@
       CHARACTER(len=256)     :: cl_path
       CHARACTER(len=256)     :: cl_filename
-      CHARACTER(LEN=20)      :: clkt     ! ocean time-step defined as a character
+      CHARACTER(len=20)      :: clkt     ! ocean time-step defined as a character
       TYPE(iceberg), POINTER :: this
       TYPE(point)  , POINTER :: pt
@@ -244 +244 @@
       ! Date or timestep in the filename
       IF ( ln_rstdate ) THEN 
-         CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )            
+         CALL ju2ymds( fjulday + (rdttra(1) / rday) - 1, iyear, imonth, iday, zsec )            
          WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 
       ELSE