Changeset 13647
- Timestamp:
- 2020-10-20T17:48:54+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.3_GO8_package/src/OCE/ICB/icbrst.F90
r13590 r13647 198 198 CHARACTER(len=256) :: cl_filename 199 199 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character 200 CHARACTER(len=8 ) :: cl_kt201 200 CHARACTER(LEN=12 ) :: clfmt ! writing format 202 201 TYPE(iceberg), POINTER :: this … … 224 223 ENDIF 225 224 ENDIF 226 cl_filename = TRIM(cexper)//"_icebergs_"// cl_kt//"_restart"225 cl_filename = TRIM(cexper)//"_icebergs_"//TRIM(ADJUSTL(clkt))//"_restart" 227 226 IF( lk_mpp ) THEN 228 227 idg = MAX( INT(LOG10(REAL(MAX(1,jpnij-1),wp))) + 1, 4 ) ! how many digits to we need to write? min=4, max=9
Note: See TracChangeset
for help on using the changeset viewer.