Changeset 5526


Ignore:
Timestamp:
2015-07-01T15:19:59+02:00 (5 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r5525 r5526  
    237237      CHARACTER(len=256)     :: cl_path 
    238238      CHARACTER(len=256)     :: cl_filename 
    239       CHARACTER(LEN=20)      :: clkt     ! ocean time-step defined as a character 
     239      CHARACTER(len=20)      :: clkt     ! ocean time-step defined as a character 
    240240      TYPE(iceberg), POINTER :: this 
    241241      TYPE(point)  , POINTER :: pt 
     
    244244      ! Date or timestep in the filename 
    245245      IF ( ln_rstdate ) THEN  
    246          CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec )             
     246         CALL ju2ymds( fjulday + (rdttra(1) / rday) - 1, iyear, imonth, iday, zsec )             
    247247         WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday  
    248248      ELSE  
Note: See TracChangeset for help on using the changeset viewer.