- Timestamp:
- 2018-03-09T14:41:46+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90
r9235 r9390 23 23 USE in_out_manager ! I/O manager 24 24 USE iom ! I/O library 25 USE ioipsl, ONLY : ju2ymds ! for calendar 25 26 USE lib_mpp ! MPP library 26 27 USE wrk_nemo ! work arrays … … 53 54 INTEGER, INTENT(in) :: kt ! number of iteration 54 55 ! 56 INTEGER :: iyear, imonth, iday 57 REAL (wp) :: zsec 58 REAL (wp) :: zfjulday 55 59 CHARACTER(len=20) :: clkt ! ocean time-step define as a character 56 60 CHARACTER(len=50) :: clname ! ice output restart file name … … 67 71 IF( nitrst <= nitend .AND. nitrst > 0 ) THEN 68 72 ! beware of the format used to write kt (default is i8.8, that should be large enough...) 69 IF( nitrst > 99999999 ) THEN ; WRITE(clkt, * ) nitrst 70 ELSE ; WRITE(clkt, '(i8.8)') nitrst 73 IF ( ln_rstdate ) THEN 74 zfjulday = fjulday + rdttra(1) / rday 75 IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday ) zfjulday = REAL(NINT(zfjulday),wp) ! avoid truncation error 76 CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec ) 77 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 78 ELSE 79 IF( nitrst > 99999999 ) THEN ; WRITE(clkt, * ) nitrst 80 ELSE ; WRITE(clkt, '(i8.8)') nitrst 81 ENDIF 71 82 ENDIF 72 83 ! create the file
Note: See TracChangeset
for help on using the changeset viewer.