- Timestamp:
- 2015-09-15T18:06:54+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90
r3614 r5746 24 24 USE icb_oce ! define iceberg arrays 25 25 USE icbutl ! iceberg utility routines 26 ! added for ln_rstdate, should include separate branch at later date... 27 USE phycst ! for rday 28 USE ioipsl, ONLY : ju2ymds ! for calendar 26 29 27 30 IMPLICIT NONE … … 231 234 TYPE(iceberg), POINTER :: this 232 235 TYPE(point) , POINTER :: pt 233 !!---------------------------------------------------------------------- 234 236 ! included for ln_rstdate.... 237 INTEGER :: iyear, imonth, iday 238 REAL (wp) :: zsec 239 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character 240 !!---------------------------------------------------------------------- 241 242 IF ( ln_rstdate ) THEN 243 CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec ) 244 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 245 ELSE 246 IF( kt > 999999999 ) THEN ; WRITE(clkt, * ) kt 247 ELSE ; WRITE(clkt, '(i8.8)') kt 248 ENDIF 249 ENDIF 250 251 ! changed for ln_rstdate.... 235 252 IF( lk_mpp ) THEN 236 WRITE(cl_filename,'("icebergs_",I8.8,"_restart_",I4.4,".nc")') kt, narea-1 253 !WRITE(cl_filename,'("icebergs_",I8.8,"_restart_",I4.4,".nc")') kt, narea-1 254 WRITE(cl_filename,'("icebergs_",A,"_restart_",I4.4,".nc")') TRIM(ADJUSTL(clkt)), narea-1 237 255 ELSE 238 WRITE(cl_filename,'("icebergs_",I8.8,"_restart.nc")') kt 256 !WRITE(cl_filename,'("icebergs_",I8.8,"_restart.nc")') kt 257 WRITE(cl_filename,'("_icebergs_",A,"_restart.nc")') TRIM(ADJUSTL(clkt)) 239 258 ENDIF 240 259 IF (nn_verbose_level >= 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ',TRIM(cl_filename)
Note: See TracChangeset
for help on using the changeset viewer.