- Timestamp:
- 2019-03-15T13:14:30+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/r8395_restart_datestamp/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90
r10758 r10765 20 20 !!---------------------------------------------------------------------- 21 21 USE par_oce ! NEMO parameters 22 USE phycst ! for rday 22 23 USE dom_oce ! NEMO domain 23 24 USE in_out_manager ! NEMO IO routines 25 USE ioipsl, ONLY : ju2ymds ! for calendar 24 26 USE lib_mpp ! NEMO MPI library, lk_mpp in particular 25 27 USE netcdf ! netcdf routines for IO … … 161 163 CHARACTER(len=256) :: cl_filename 162 164 TYPE(iceberg), POINTER :: this 165 INTEGER :: iyear, imonth, iday 166 REAL (wp) :: zsec 167 REAL (wp) :: zfjulday 168 CHARACTER(LEN=20) :: clkt ! ocean time-step define as a character TYPE(iceberg), POINTER :: this 163 169 TYPE(point) , POINTER :: pt 164 170 !!---------------------------------------------------------------------- … … 167 173 cl_path = TRIM(cn_ocerst_outdir) 168 174 IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/' 175 IF ( ln_rstdate ) THEN 176 zfjulday = fjulday + rdt / rday 177 IF( ABS(zfjulday - REAL(NINT(zfjulday),wp)) < 0.1 / rday ) zfjulday = REAL(NINT(zfjulday),wp) ! avoid truncation error 178 CALL ju2ymds( zfjulday, iyear, imonth, iday, zsec ) 179 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 180 ELSE 181 IF( kt > 999999999 ) THEN ; WRITE(clkt, * ) kt 182 ELSE ; WRITE(clkt, '(i8.8)') kt 183 ENDIF 184 ENDIF 185 169 186 IF( lk_mpp ) THEN 170 WRITE(cl_filename,'(A,"_icebergs_", I8.8,"_restart_",I4.4,".nc")') TRIM(cexper), kt, narea-1187 WRITE(cl_filename,'(A,"_icebergs_",A,"_restart_",I4.4,".nc")') TRIM(cexper), TRIM(ADJUSTL(clkt)), narea-1 171 188 ELSE 172 WRITE(cl_filename,'(A,"_icebergs_", I8.8,"_restart.nc")') TRIM(cexper), kt189 WRITE(cl_filename,'(A,"_icebergs_",A,"_restart.nc")') TRIM(cexper), TRIM(ADJUSTL(clkt)) 173 190 ENDIF 174 191 IF (nn_verbose_level >= 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ',TRIM(cl_path)//TRIM(cl_filename)
Note: See TracChangeset
for help on using the changeset viewer.