- Timestamp:
- 2016-10-12T16:10:13+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r7019 r7023 27 27 USE in_out_manager ! I/O manager 28 28 USE iom ! I/O module 29 USE ioipsl, ONLY : ju2ymds ! for calendar 29 30 USE diurnal_bulk 30 31 … … 57 58 !!---------------------------------------------------------------------- 58 59 INTEGER, INTENT(in) :: kt ! ocean time-step 60 INTEGER :: iyear, imonth, iday 61 REAL (wp) :: zsec 59 62 !! 60 63 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character … … 84 87 IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 85 88 IF( nitrst <= nitend .AND. nitrst > 0 ) THEN 86 ! beware of the format used to write kt (default is i8.8, that should be large enough...) 87 IF( nitrst > 999999999 ) THEN ; WRITE(clkt, * ) nitrst 88 ELSE ; WRITE(clkt, '(i8.8)') nitrst 89 IF ( ln_rstdate ) THEN 90 CALL ju2ymds( fjulday + rdt / rday, iyear, imonth, iday, zsec ) 91 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 92 ELSE 93 ! beware of the format used to write kt (default is i8.8, that should be large enough...) 94 IF( nitrst > 999999999 ) THEN ; WRITE(clkt, * ) nitrst 95 ELSE ; WRITE(clkt, '(i8.8)') nitrst 96 ENDIF 89 97 ENDIF 90 98 ! create the file
Note: See TracChangeset
for help on using the changeset viewer.