Changeset 5649 for branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
- Timestamp:
- 2015-07-30T17:11:19+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5107_restart_func_and_date/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r5630 r5649 91 91 IF( nitrst > 999999999 ) THEN ; WRITE(clkt, * ) nitrst 92 92 ELSE ; WRITE(clkt, '(i8.8)') nitrst 93 ENDIF 93 94 ENDIF 94 95 ! create the file
Note: See TracChangeset
for help on using the changeset viewer.